[gnus git] branch master updated: m0-7-186-ga8b5192 =1= gnus-util.el (gnus-emacs-completing-read): Isolate XEmacs stuff
Katsumi Yamaoka <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via a8b5192d574a012e14a92748f904a5cffce0ece6 (commit)
from 72a58393e70fa1c15e7b3e251d052e8384fcf281 (commit)
- Log -----------------------------------------------------------------
commit a8b5192d574a012e14a92748f904a5cffce0ece6
Author: Katsumi Yamaoka <[email protected]>
Date: Thu Aug 1 03:51:45 2013 +0000
gnus-util.el (gnus-emacs-completing-read): Isolate XEmacs stuff
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb7d56b..a8f9f7e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-08-01 Katsumi Yamaoka <[email protected]>
+
+ * gnus-util.el (gnus-emacs-completing-read): Isolate XEmacs stuff.
+
2013-07-30 Lars Magne Ingebrigtsen <[email protected]>
* gnus-start.el (gnus-read-active-for-groups): Always mark the data as
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 0f0e967..1d2ab2d 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -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
+ (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)
+ (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")
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 4 ++++
lisp/gnus-util.el | 15 +++++++++------
2 files changed, 13 insertions(+), 6 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project