aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2022-08-14 16:37:11 +0200
committerStefan Kangas2022-08-14 23:46:33 +0200
commit005585f6bd3c2add0c553d622e6c2b30d1f69b48 (patch)
tree56590f210e03b9753293eb5035f9157a6b8bea97
parent57259773b4f0b992e38843859a8b93d82317ded3 (diff)
downloademacs-005585f6bd3c2add0c553d622e6c2b30d1f69b48.tar.gz
emacs-005585f6bd3c2add0c553d622e6c2b30d1f69b48.zip
Make gnus-iswitchb-completing-read obsolete
* lisp/gnus/gnus-util.el (gnus-iswitchb-completing-read): Make obsolete. It depends on the obsolete library iswitchb.el. (gnus-completing-read-function): Don't advertise above obsolete function.
-rw-r--r--lisp/gnus/gnus-util.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index d1ad5bd7b2d..4c93814e0dc 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -40,17 +40,14 @@
40 40
41(defcustom gnus-completing-read-function 'gnus-emacs-completing-read 41(defcustom gnus-completing-read-function 'gnus-emacs-completing-read
42 "Function use to do completing read." 42 "Function use to do completing read."
43 :version "24.1" 43 :version "29.1"
44 :group 'gnus-meta 44 :group 'gnus-meta
45 :type '(radio (function-item 45 :type '(radio (function-item
46 :doc "Use Emacs standard `completing-read' function." 46 :doc "Use Emacs standard `completing-read' function."
47 gnus-emacs-completing-read) 47 gnus-emacs-completing-read)
48 (function-item 48 (function-item
49 :doc "Use `ido-completing-read' function." 49 :doc "Use `ido-completing-read' function."
50 gnus-ido-completing-read) 50 gnus-ido-completing-read)))
51 (function-item
52 :doc "Use iswitchb based completing-read function."
53 gnus-iswitchb-completing-read)))
54 51
55(defcustom gnus-completion-styles 52(defcustom gnus-completion-styles
56 (append (when (and (assq 'substring completion-styles-alist) 53 (append (when (and (assq 'substring completion-styles-alist)
@@ -1202,6 +1199,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
1202(defun gnus-iswitchb-completing-read (prompt collection &optional require-match 1199(defun gnus-iswitchb-completing-read (prompt collection &optional require-match
1203 initial-input history def) 1200 initial-input history def)
1204 "`iswitchb' based completing-read function." 1201 "`iswitchb' based completing-read function."
1202 (declare (obsolete nil "29.1"))
1205 ;; Make sure iswitchb is loaded before we let-bind its variables. 1203 ;; Make sure iswitchb is loaded before we let-bind its variables.
1206 ;; If it is loaded inside the let, variables can become unbound afterwards. 1204 ;; If it is loaded inside the let, variables can become unbound afterwards.
1207 (require 'iswitchb) 1205 (require 'iswitchb)