/[emacs]/emacs/lisp/imenu.el
ViewVC logotype

Diff of /emacs/lisp/imenu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.94.4.6 by miles, Wed Oct 27 05:42:00 2004 UTC revision 1.94.4.7 by miles, Thu Nov 4 08:55:37 2004 UTC
# Line 161  element should come before the second. Line 161  element should come before the second.
161    :type 'integer    :type 'integer
162    :group 'imenu)    :group 'imenu)
163    
164  (defcustom imenu-scanning-message "Scanning buffer for index (%3d%%)"  ;; No longer used.  KFS 2004-10-27
165    "*Progress message during the index scanning of the buffer.  ;; (defcustom imenu-scanning-message "Scanning buffer for index (%3d%%)"
166  If non-nil, user gets a message during the scanning of the buffer.  ;;   "*Progress message during the index scanning of the buffer.
167    ;; If non-nil, user gets a message during the scanning of the buffer.
168  Relevant only if the mode-specific function that creates the buffer  ;;
169  index use `imenu-progress-message', and not useful if that is fast, in  ;; Relevant only if the mode-specific function that creates the buffer
170  which case you might as well set this to nil."  ;; index use `imenu-progress-message', and not useful if that is fast, in
171    :type '(choice string  ;; which case you might as well set this to nil."
172                   (const :tag "None" nil))  ;;   :type '(choice string
173    :group 'imenu)  ;;               (const :tag "None" nil))
174    ;;   :group 'imenu)
175    
176  (defcustom imenu-space-replacement "."  (defcustom imenu-space-replacement "."
177    "*The replacement string for spaces in index names.    "*The replacement string for spaces in index names.
# Line 300  The function in this variable is called Line 301  The function in this variable is called
301  ;; is calculated.  ;; is calculated.
302  ;; PREVPOS is the variable in which we store the last position displayed.  ;; PREVPOS is the variable in which we store the last position displayed.
303  (defmacro imenu-progress-message (prevpos &optional relpos reverse)  (defmacro imenu-progress-message (prevpos &optional relpos reverse)
304    `(and  
305      imenu-scanning-message  ;; Made obsolete/empty, as computers are now faster than the eye, and
306      (let ((pos ,(if relpos  ;; it had problems updating the messages correctly, and could shadow
307                      relpos  ;; more important messages/prompts in the minibuffer.  KFS 2004-10-27.
308                    `(imenu--relative-position ,reverse))))  
309        (if ,(if relpos t  ;;  `(and
310               `(> pos (+ 5 ,prevpos)))  ;;    imenu-scanning-message
311            (progn  ;;    (let ((pos ,(if relpos
312              (message imenu-scanning-message pos)  ;;                  relpos
313              (setq ,prevpos pos))))))  ;;                `(imenu--relative-position ,reverse))))
314    ;;      (if ,(if relpos t
315    ;;           `(> pos (+ 5 ,prevpos)))
316    ;;        (progn
317    ;;          (message imenu-scanning-message pos)
318    ;;          (setq ,prevpos pos)))))
319    )
320    
321    
322  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
# Line 765  the alist look like: Line 772  the alist look like:
772   (INDEX-NAME . INDEX-POSITION)   (INDEX-NAME . INDEX-POSITION)
773  or like:  or like:
774   (INDEX-NAME INDEX-POSITION FUNCTION ARGUMENTS...)   (INDEX-NAME INDEX-POSITION FUNCTION ARGUMENTS...)
775  They may also be nested index alists like:  They may also be nested index alists like:
776   (INDEX-NAME . INDEX-ALIST)   (INDEX-NAME . INDEX-ALIST)
777  depending on PATTERNS."  depending on PATTERNS."
778    

Legend:
Removed from v.1.94.4.6  
changed lines
  Added in v.1.94.4.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26