diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-01 06:56:38 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-01 06:56:38 +0000 |
| commit | 6f76a31e7723329c32b5a0a8010acfb777c54b3f (patch) | |
| tree | dc0223f959f529af6dc2fd397b1a48607bc044f4 /lisp/gnus/gnus-util.el | |
| parent | 4b36c6d4debd2fe02b6ce77e5e90c78655b6f37f (diff) | |
| download | emacs-6f76a31e7723329c32b5a0a8010acfb777c54b3f.tar.gz | |
gnus-util.el (gnus-completing-read-function): Exclude gnus-icompleting-read and gnus-ido-completing-read from candidates for XEmacs.
Silence the byte compiler.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 2f9bdd62e6e..3451cde6730 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -48,13 +48,16 @@ #'gnus-std-completing-read "Function to do a completing read." :group 'gnus-meta - :type '(radio (function-item + :type `(radio (function-item :doc "Use Emacs' standard `completing-read' function." gnus-std-completing-read) - (function-item :doc "Use iswitchb's completing-read function." - gnus-icompleting-read) - (function-item :doc "Use ido's completing-read function." - gnus-ido-completing-read) + ,@(unless (featurep 'xemacs) + '((function-item + :doc "Use iswitchb's completing-read function." + gnus-icompleting-read) + (function-item + :doc "Use ido's completing-read function." + gnus-ido-completing-read))) (function))) (defcustom gnus-completion-styles @@ -1595,6 +1598,11 @@ SPEC is a predicate specifier that contains stuff like `or', `and', (completing-read prompt collection nil require-match initial-input history def)) +(defvar iswitchb-mode) +(defvar iswitchb-temp-buflist) +(declare-function iswitchb-read-buffer "iswitchb" + (prompt &optional default require-match start matches-set)) + (defun gnus-icompleting-read (prompt collection &optional require-match initial-input history def) (require 'iswitchb) |