From ca429a2557b926ec53915848adee4049790109a1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sat, 27 Apr 2002 22:34:06 +0000 Subject: [PATCH] (read-language-name): Take of non-list values. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.11.4.GIT