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 <>
* 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.
......@@ -887,7 +887,7 @@ This returns a language environment name as a string."
(name (completing-read prompt
(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)
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