Commit 5b01685c authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

lisp/imenu.el (imenu-progress-message): Restore.

parent 4d6769e1
2012-04-19 Juanma Barranquero <lekktu@gmail.com>
* imenu.el (imenu-progress-message): Restore; it is "used" in
erc/erc-imenu.el and net/snmp-mode.el.
2012-04-19 Juanma Barranquero <lekktu@gmail.com> 2012-04-19 Juanma Barranquero <lekktu@gmail.com>
* avoid.el (mouse-avoidance-mode): Mark unused arg. * avoid.el (mouse-avoidance-mode): Mark unused arg.
......
...@@ -266,6 +266,29 @@ The function in this variable is called when selecting a normal index-item.") ...@@ -266,6 +266,29 @@ The function in this variable is called when selecting a normal index-item.")
(and (consp (cdr item)) (listp (cadr item)) (and (consp (cdr item)) (listp (cadr item))
(not (eq (car (cadr item)) 'lambda)))) (not (eq (car (cadr item)) 'lambda))))
;; 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.
(defmacro imenu-progress-message (prevpos &optional relpos reverse)
;; 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)))))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment