Commit 23456a2c authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-util.el (gnus-emacs-completing-read): Isolate XEmacs stuff

parent 7188b515
2013-08-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-emacs-completing-read): Isolate XEmacs stuff.
2013-07-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* gnus-start.el (gnus-read-active-for-groups): Always mark the data as
......
......@@ -1558,12 +1558,15 @@ 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,
;; in which the car of each element is a string,
;; for collection.
(mapcar (lambda (elem)
(list (format "%s" (or (car-safe elem) elem))))
collection)
(if (featurep 'xemacs)
;; 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)
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