Commit ca429a25 authored by Pavel Janík's avatar Pavel Janík
Browse files

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

parent c793c600
2002-04-28 Pavel Jan,Bm(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> 2002-04-27 Richard M. Stallman <rms@gnu.org>
* info.el (Info-header-line): Mark it as risky-local-variable. * info.el (Info-header-line): Mark it as risky-local-variable.
......
...@@ -887,7 +887,7 @@ This returns a language environment name as a string." ...@@ -887,7 +887,7 @@ This returns a language environment name as a string."
(name (completing-read prompt (name (completing-read prompt
language-info-alist language-info-alist
(and key (and key
(function (lambda (elm) (assq key elm)))) (function (lambda (elm) (and (listp elm) (assq key elm)))))
t nil nil default))) t nil nil default)))
(if (and (> (length name) 0) (if (and (> (length name) 0)
(or (not key) (or (not key)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment