[Emacs-diffs] /srv/bzr/emacs/trunk r107967: lisp/imenu.el (imenu-progress-message): Restore.

[Juanma Barranquero]

------------------------------------------------------------
revno: 107967
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2012-04-19 23:34:49 +0200
message:
  lisp/imenu.el (imenu-progress-message): Restore.
modified:
  lisp/ChangeLog
  lisp/imenu.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-19 17:20:26 +0000
+++ b/lisp/ChangeLog    2012-04-19 21:34:49 +0000
@@ -1,5 +1,10 @@
 2012-04-19  Juanma Barranquero  <address@hidden>
 
+       * imenu.el (imenu-progress-message): Restore; it is "used" in
+       erc/erc-imenu.el and net/snmp-mode.el.
+
+2012-04-19  Juanma Barranquero  <address@hidden>
+
        * avoid.el (mouse-avoidance-mode): Mark unused arg.
        (mouse-avoidance-nudge-mouse): Remove unused binding.
 

=== modified file 'lisp/imenu.el'
--- a/lisp/imenu.el     2012-04-19 17:20:26 +0000
+++ b/lisp/imenu.el     2012-04-19 21:34:49 +0000
@@ -266,6 +266,29 @@
   (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)))))
+)
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;