Mercurial > emacs
changeset 89182:5a3996f4ee8b
(select-safe-coding-system): If
:mime-charset property of a coding system is not equal to that
coding system, don't show that :mime-charset name.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 09 Oct 2002 06:13:57 +0000 |
| parents | be75d5934738 |
| children | 676dae22b5b1 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Oct 09 05:24:48 2002 +0000 +++ b/lisp/international/mule-cmds.el Wed Oct 09 06:13:57 2002 +0000 @@ -619,7 +619,8 @@ 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))))