Mercurial > emacs
changeset 89107:fe24d6d52760
(find-coding-systems-for-charsets): Check charset type before
getting :charset-list.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 13 Sep 2002 23:31:42 +0000 |
| parents | 4b0c0e0d0458 |
| children | 62a5c86c4303 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Fri Sep 13 23:25:53 2002 +0000 +++ b/lisp/international/mule-cmds.el Fri Sep 13 23:31:42 2002 +0000 @@ -457,7 +457,9 @@ (t (let (codings) (dolist (cs (coding-system-list t)) - (let ((cs-charsets (coding-system-get cs :charset-list)) + (let ((cs-charsets (and (eq 'charset + (coding-system-get cs :coding-type)) + (coding-system-get cs :charset-list))) (charsets charsets)) (if (coding-system-get cs :ascii-compatible-p) (add-to-list 'cs-charsets 'ascii))