diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-05-01 00:29:13 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-05-01 00:29:13 +0000 |
| commit | 469a1a32a45f287e96e79b5e134cbe2acb19bbaa (patch) | |
| tree | b7c97f494ee757d39a3b9538ae178c93a858a9b5 /lisp | |
| parent | b12d33d7e4288780419d6cb45e28a08da06bd144 (diff) | |
| download | emacs-469a1a32a45f287e96e79b5e134cbe2acb19bbaa.tar.gz emacs-469a1a32a45f287e96e79b5e134cbe2acb19bbaa.tar.bz2 emacs-469a1a32a45f287e96e79b5e134cbe2acb19bbaa.zip | |
gnus-util.el (gnus-emacs-completing-read): Fix a filter for XEmacs
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-util.el | 9 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b4d3627d711..a48d2d1d1de 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +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): diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 331f9556710..a121c27b547 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -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") |