diff options
| author | Kenichi Handa | 2002-10-09 06:13:57 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-10-09 06:13:57 +0000 |
| commit | ae748897d2ce46bbaf2e6c79f56928d7de672859 (patch) | |
| tree | 09a91015cab7bd37ad1f9e5236989b781d44ae4c | |
| parent | e3d8eb8c6659fcefb3d2dbb1cc83d95b3b9a5bff (diff) | |
| download | emacs-ae748897d2ce46bbaf2e6c79f56928d7de672859.tar.gz emacs-ae748897d2ce46bbaf2e6c79f56928d7de672859.zip | |
(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.
| -rw-r--r-- | lisp/international/mule-cmds.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 273c26a319a..06c2d557841 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -619,7 +619,8 @@ and TO is ignored." | |||
| 619 | mime-charset) | 619 | mime-charset) |
| 620 | (while l | 620 | (while l |
| 621 | (setq mime-charset (coding-system-get (car l) :mime-charset)) | 621 | (setq mime-charset (coding-system-get (car l) :mime-charset)) |
| 622 | (if (and mime-charset (coding-system-p mime-charset)) | 622 | (if (and mime-charset (coding-system-p mime-charset) |
| 623 | (coding-system-equal (car l) mime-charset)) | ||
| 623 | (setcar l mime-charset)) | 624 | (setcar l mime-charset)) |
| 624 | (setq l (cdr l)))) | 625 | (setq l (cdr l)))) |
| 625 | 626 | ||