Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 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 | 3c5c3d139eab |
| children | dd1e66eb7db0 |
comparison
equal
deleted
inserted
replaced
| 89181:be75d5934738 | 89182:5a3996f4ee8b |
|---|---|
| 617 ;; is more friendly to users. | 617 ;; is more friendly to users. |
| 618 (let ((l codings) | 618 (let ((l codings) |
| 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 |
| 626 ;; Make sure the offending buffer is displayed. | 627 ;; Make sure the offending buffer is displayed. |
| 627 (or (stringp from) | 628 (or (stringp from) |