Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 04:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(find-safe-coding-system): New function.

Browse source
This commit is contained in:
Kenichi Handa 1997-10-23 12:05:45 +00:00
parent a6acd8a293
commit e481690d87
1 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
lisp/international/mule-util.el
View file

@ -287,6 +287,38 @@ or one is an alias of the other."
(or (eq eol-type-1 eol-type-2)
(and (vectorp eol-type-1) (vectorp eol-type-2)))))))
;;;###autoload
(defun find-safe-coding-system (from to)
"Return a list of proper coding systems to encode a text between FROM and TO.
All coding systems in the list can safely encode any multibyte characters
in the region.
If the region contains no multibyte charcters, the returned list
contains a single element `undecided'.
Kludgy feature: if FROM is a string, then that string is the target
for finding proper coding systems, and TO is ignored."
(let ((found (if (stringp from)
(find-charset-string from)
(find-charset-region from to)))
(l coding-system-list)
codings coding safe)
(if (and (= (length found) 1)
(eq 'ascii (car found)))
'(undecided)
(while l
(setq coding (car l) l (cdr l))
(if (and (eq coding (coding-system-base coding))
(setq safe (coding-system-get coding 'safe-charsets))
(or (eq safe t)
(catch 'tag
(mapcar (function (lambda (x)
(if (not (memq x safe))
(throw 'tag nil))))
found))))
(setq codings (cons coding codings))))
codings)))
;;; Composite charcater manipulations.