diff options
| author | Stefan Kangas | 2022-08-14 16:37:11 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-08-14 23:46:33 +0200 |
| commit | 005585f6bd3c2add0c553d622e6c2b30d1f69b48 (patch) | |
| tree | 56590f210e03b9753293eb5035f9157a6b8bea97 | |
| parent | 57259773b4f0b992e38843859a8b93d82317ded3 (diff) | |
| download | emacs-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.el | 8 |
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) |