(read-language-name): Take of non-list values.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7690e32e2815f93046cbfbd6c147c8b6a6a0bda2..e8428db7086f5f03d43c16654be77beee6154744 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-28  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * international/mule-cmds.el (read-language-name): Take of
+       non-list values.
+
 2002-04-27  Richard M. Stallman  <rms@gnu.org>
 
        * info.el (Info-header-line): Mark it as risky-local-variable.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index f94f224a0b0c3207145e3f2827059b73905dfc5a..ed11d69fb9bbea519e3ef62618cd164f4d645288 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -887,7 +887,7 @@ This returns a language environment name as a string."
         (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)