# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1019946785 0
# Node ID 3c8d8ff3a848dd3f75a08f29599a23d0b74b2c5b
# Parent  8066615efc753e8795d03786d2f8800c9422e3f2
(read-language-name): Take of non-list values.

diff -r 8066615efc75 -r 3c8d8ff3a848 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sat Apr 27 20:16:17 2002 +0000
+++ b/lisp/international/mule-cmds.el	Sat Apr 27 22:33:05 2002 +0000
@@ -887,7 +887,7 @@
 	 (name (completing-read prompt
 				language-info-alist
 				(and key
-				     (function (lambda (elm) (assq key elm))))
+				     (function (lambda (elm) (and (listp elm) (assq key elm)))))
 				t nil nil default)))
     (if (and (> (length name) 0)
 	     (or (not key)