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. |
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 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
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 |
|
|