(imenu): Support integers used as positions.

This commit is contained in:
Karl Heuer 1996-12-06 23:20:14 +00:00
parent ce1b4c71eb
commit 58e9d9c4bf

View file

@ -904,6 +904,12 @@ See `imenu-choose-buffer-index' for more information."
;; widen if outside narrowing
(widen))
(goto-char (cdr index-item)))
((integerp (cdr index-item))
(if (or (< (cdr index-item) (point-min))
(> (cdr index-item) (point-max)))
;; widen if outside narrowing
(widen))
(goto-char (cdr index-item)))
(t
;; A special item with a function.
(let ((function (cadr index-item))