Mercurial > emacs
changeset 44904:3c8d8ff3a848
(read-language-name): Take of non-list values.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 27 Apr 2002 22:33:05 +0000 |
| parents | 8066615efc75 |
| children | c9d9be47bf80 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)