Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(select-safe-coding-system): If

Browse source 
:mime-charset property of a coding system is not equal to that
coding system, don't show that :mime-charset name.
This commit is contained in:
Kenichi Handa 2002-10-09 06:13:57 +00:00
parent e3d8eb8c66
commit ae748897d2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/international/mule-cmds.el
View file

@ -619,7 +619,8 @@ and TO is ignored."
mime-charset)
(while l
(setq mime-charset (coding-system-get (car l) :mime-charset))
(if (and mime-charset (coding-system-p mime-charset))
(if (and mime-charset (coding-system-p mime-charset)
(coding-system-equal (car l) mime-charset))
(setcar l mime-charset))
(setq l (cdr l))))