# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1031959902 0
# Node ID fe24d6d52760a1f65e3f4ae9d8839dbdcd858cc2
# Parent  4b0c0e0d0458d7ec9aadd9453cf481ed59d8ab5f
(find-coding-systems-for-charsets): Check charset type before
getting :charset-list.

diff -r 4b0c0e0d0458 -r fe24d6d52760 lisp/international/mule-cmds.el
--- 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))