summaryrefslogtreecommitdiff
path: root/lisp/imenu.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-12-16 07:39:34 +0000
committerRichard M. Stallman <rms@gnu.org>1996-12-16 07:39:34 +0000
commitb43294f6927a58b510f9ff2ed91e0999328fbb10 (patch)
tree69e50010624d78eda139e74de2ec980a973f0659 /lisp/imenu.el
parent8955ed34aa9529eeeade71b5566e9dd6882ee969 (diff)
downloademacs-b43294f6927a58b510f9ff2ed91e0999328fbb10.tar.gz
(imenu-generic-expression): Doc fix.
(imenu--make-index-alist): Do `widen' and save-restriction here. (imenu): Not here.
Diffstat (limited to 'lisp/imenu.el')
-rw-r--r--lisp/imenu.el11
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el
index ff909cd227e..1ddd70dcfd2 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -119,7 +119,7 @@ with name concatenation.")
(defvar imenu-generic-expression nil
"The regex pattern to use for creating a buffer index.
-If non-nil this pattern is passed to `imenu-create-index-with-pattern'
+If non-nil this pattern is passed to `imenu--generic-function'
to create a buffer index.
The value should be an alist with elements that look like this:
@@ -465,7 +465,9 @@ as a way for the user to ask to recalculate the buffer's index alist."
;; Get the index
(setq imenu--index-alist
(save-excursion
- (funcall imenu-create-index-function))))
+ (save-restriction
+ (widen)
+ (funcall imenu-create-index-function)))))
(or imenu--index-alist noerror
(error "No items suitable for an index found in this buffer"))
(or imenu--index-alist
@@ -881,10 +883,7 @@ See the command `imenu' for more information."
(defun imenu (index-item)
"Jump to a place in the buffer chosen using a buffer menu or mouse menu.
See `imenu-choose-buffer-index' for more information."
- (interactive
- (list (save-restriction
- (widen)
- (imenu-choose-buffer-index))))
+ (interactive (list (imenu-choose-buffer-index)))
;; Convert a string to an alist element.
(if (stringp index-item)
(setq index-item (assoc index-item (imenu--make-index-alist))))