(imenu): Support integers used as positions.
authorKarl Heuer <kwzh@gnu.org>
Fri, 6 Dec 1996 23:20:14 +0000 (23:20 +0000)
committerKarl Heuer <kwzh@gnu.org>
Fri, 6 Dec 1996 23:20:14 +0000 (23:20 +0000)
lisp/imenu.el

index fbc184a..ff909cd 100644 (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))