mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(select-safe-coding-system): Check coding-category-list more rigidly.

Browse Source
This commit is contained in:
Kenichi Handa 2000-12-21 05:45:08 +00:00
parent eeefcfded6
commit c24e49a893
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/international/mule-cmds.el
View File

@ -553,9 +553,14 @@ and TO is ignored."
;; If the most preferred coding system has the property mime-charset,
;; append it to the defaults.
(let* ((preferred (symbol-value (car coding-category-list)))
(base (coding-system-base preferred)))
(and (coding-system-get preferred 'mime-charset)
(let ((tail coding-category-list)
preferred base)
(while (and tail
(not (setq preferred (symbol-name (car tail)))))
(setq tail (cdr tail)))
(and (coding-system-p preferred)
(setq base (coding-system-base preferred))
(coding-system-get preferred 'mime-charset)
(not (assq preferred default-coding-system))
(not (rassq base default-coding-system))
(setq default-coding-system