Mercurial > emacs
diff lisp/international/mule-cmds.el @ 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 | 890a4fa8cbdd |
children | 92a983b0ac0d |
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))