procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-util.el (gnus-completing-read-function): Exclude gnus-icompleting-read and gnus-ido-completing-read from candidates for XEmacs.

Browse source 
Silence the byte compiler.
This commit is contained in:
Katsumi Yamaoka 2010-10-01 06:56:38 +00:00
parent 4b36c6d4de
commit 6f76a31e77
2 changed files with 20 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -1,5 +1,12 @@
2010-10-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-completing-read-function): Exclude
gnus-icompleting-read and gnus-ido-completing-read from candidates for
XEmacs since iswitchb.el is very old and ido.el is unavailable in
XEmacs.
(iswitchb-mode, iswitchb-temp-buflist, iswitchb-read-buffer): Silence
the byte compiler.
* gravatar.el: Don't load image.el that XEmacs doesn't provide.
(gravatar-create-image): New function that's an alias to
gnus-xmas-create-image, gnus-create-image, or create-image.

18
lisp/gnus/gnus-util.el
View file

@ -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)