diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-02-10 13:59:09 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-02-10 14:42:51 +0100 |
commit | 70d562b43e0db4e76fbf51f30ec2f51290f525d1 (patch) | |
tree | 9bf0ee6ffe1fc8615adceb49f4da6ace07c4afb9 /lisp/imenu.el | |
parent | d0826e592ae40d05217e69f28bbf2d1dfe4b9085 (diff) | |
download | emacs-70d562b43e0db4e76fbf51f30ec2f51290f525d1.tar.gz |
Declare empty macro imenu-progress-menu obsolete
* lisp/imenu.el: Remove commented out code.
(imenu-progress-message): Declare macro obsolete.
* lisp/erc/erc-imenu.el (erc-create-imenu-index):
* lisp/net/snmp-mode.el (snmp-mode-imenu-create-index):
* lisp/progmodes/antlr-mode.el (antlr-imenu-create-index-function):
Don't use or mention above obsolete macro.
Diffstat (limited to 'lisp/imenu.el')
-rw-r--r-- | lisp/imenu.el | 31 |
1 files changed, 2 insertions, 29 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index 2a557e04536..72d1c40e9a8 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -151,18 +151,6 @@ element should come before the second. The arguments are cons cells; :type 'integer :group 'imenu) -;; No longer used. KFS 2004-10-27 -;; (defcustom imenu-scanning-message "Scanning buffer for index (%3d%%)" -;; "Progress message during the index scanning of the buffer. -;; If non-nil, user gets a message during the scanning of the buffer. -;; -;; Relevant only if the mode-specific function that creates the buffer -;; index use `imenu-progress-message', and not useful if that is fast, in -;; which case you might as well set this to nil." -;; :type '(choice string -;; (const :tag "None" nil)) -;; :group 'imenu) - (defcustom imenu-space-replacement "." "The replacement string for spaces in index names. Used when presenting the index in a completion buffer to make the @@ -280,26 +268,11 @@ The function in this variable is called when selecting a normal index-item.") (not (functionp (cadr item))))) (defmacro imenu-progress-message (_prevpos &optional _relpos _reverse) - "Macro to display a progress message. -RELPOS is the relative position to display. -If RELPOS is nil, then the relative position in the buffer -is calculated. -PREVPOS is the variable in which we store the last position displayed." - + "This macro is obsolete and does nothing." + (declare (obsolete nil "28.1")) ;; Made obsolete/empty, as computers are now faster than the eye, and ;; it had problems updating the messages correctly, and could shadow ;; more important messages/prompts in the minibuffer. KFS 2004-10-27. - -;; `(and -;; imenu-scanning-message -;; (let ((pos ,(if relpos -;; relpos -;; `(imenu--relative-position ,reverse)))) -;; (if ,(if relpos t -;; `(> pos (+ 5 ,prevpos))) -;; (progn -;; (message imenu-scanning-message pos) -;; (setq ,prevpos pos))))) ) |