From: Pavel Janík Date: Sat, 27 Apr 2002 22:34:06 +0000 (+0000) Subject: (read-language-name): Take of non-list values. X-Git-Tag: ttn-vms-21-2-B4~15363 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca429a2557b926ec53915848adee4049790109a1;p=emacs.git (read-language-name): Take of non-list values. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7690e32e281..e8428db7086 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-04-28 Pavel Jan,Bm(Bk + + * international/mule-cmds.el (read-language-name): Take of + non-list values. + 2002-04-27 Richard M. Stallman * 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 f94f224a0b0..ed11d69fb9b 100644 --- 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)