aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1996-06-12 15:00:48 +0000
committerRichard M. Stallman <[email protected]>1996-06-12 15:00:48 +0000
commit27f94c9b4793e83d9bb02e0e0c225201032cf41b (patch)
treec9d0ab6fb4dedc2be23446557abdc46d24f663b6
parenta4ad4d960251ff971cc4933a05c19706d79522c3 (diff)
(imenu--mouse-menu): Don't check imenu-use-keymap-menu.
-rw-r--r--lisp/imenu.el52
1 files changed, 24 insertions, 28 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el
index b555ba83b3..0ad476ad48 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -712,34 +712,30 @@ Returns t for rescan and otherwise a position number."
(cdr menu)
(cdr (cadr menu)))))
(setq position (x-popup-menu event menu))
- (if imenu-use-keymap-menu
- (progn
- (cond
- ((and (listp position)
- (numberp (car position))
- (stringp (nth (1- (length position)) position)))
- (setq position (nth (1- (length position)) position)))
- ((and (stringp (car position))
- (null (cdr position)))
- (setq position (car position))))))
- (cond
- ((eq position nil)
- position)
- ((listp position)
- (imenu--mouse-menu position event
- (if title
- (concat title imenu-level-separator
- (car (rassq position index-alist)))
- (car (rassq position index-alist)))))
- ((stringp position)
- (or (string= position (car imenu--rescan-item))
- (imenu--in-alist position index-alist)))
- ((or (= position (cdr imenu--rescan-item))
- (and (stringp position)
- (string= position (car imenu--rescan-item))))
- t)
- (t
- (rassq position index-alist)))))
+ (cond ((and (listp position)
+ (numberp (car position))
+ (stringp (nth (1- (length position)) position)))
+ (setq position (nth (1- (length position)) position)))
+ ((and (stringp (car position))
+ (null (cdr position)))
+ (setq position (car position))))
+ (cond ((eq position nil)
+ position)
+ ((listp position)
+ (imenu--mouse-menu position event
+ (if title
+ (concat title imenu-level-separator
+ (car (rassq position index-alist)))
+ (car (rassq position index-alist)))))
+ ((stringp position)
+ (or (string= position (car imenu--rescan-item))
+ (imenu--in-alist position index-alist)))
+ ((or (= position (cdr imenu--rescan-item))
+ (and (stringp position)
+ (string= position (car imenu--rescan-item))))
+ t)
+ (t
+ (rassq position index-alist)))))
(defun imenu-choose-buffer-index (&optional prompt alist)
"Let the user select from a buffer index and return the chosen index.