Commit 469a1a32 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-util.el (gnus-emacs-completing-read): Fix a filter for XEmacs

parent b12d33d7
2013-05-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-emacs-completing-read): Fix a filter for XEmacs.
2013-04-27 Glenn Morris <rgm@gnu.org>
 
* gnus.el (gnus-list-debbugs):
......
......@@ -1549,9 +1549,12 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
"Call standard `completing-read-function'."
(let ((completion-styles gnus-completion-styles))
(completing-read prompt
;; Old XEmacs (at least 21.4) expect an alist for
;; collection.
(mapcar 'list collection)
;; Old XEmacs (at least 21.4) expect an alist,
;; in which the car of each element is a string,
;; for collection.
(mapcar (lambda (elem)
(list (format "%s" (or (car-safe elem) elem))))
collection)
nil require-match initial-input history def)))
(autoload 'ido-completing-read "ido")
......
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