From 5b01685cc194de3d566003bd264b2bf600ab8067 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 19 Apr 2012 23:34:49 +0200 Subject: [PATCH] lisp/imenu.el (imenu-progress-message): Restore. --- lisp/ChangeLog | 5 +++++ lisp/imenu.el | 23 +++++++++++++++++++++++ 2 files changed, 28 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ad019328d6..5131fa112a7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-04-19 Juanma Barranquero + + * imenu.el (imenu-progress-message): Restore; it is "used" in + erc/erc-imenu.el and net/snmp-mode.el. + 2012-04-19 Juanma Barranquero * avoid.el (mouse-avoidance-mode): Mark unused arg. diff --git a/lisp/imenu.el b/lisp/imenu.el index ceea9420c4c..12ac3540925 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -266,6 +266,29 @@ The function in this variable is called when selecting a normal index-item.") (and (consp (cdr item)) (listp (cadr item)) (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))))) +) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; -- 2.39.2