aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-06-12 15:00:48 +0000
committerRichard M. Stallman1996-06-12 15:00:48 +0000
commit27f94c9b4793e83d9bb02e0e0c225201032cf41b (patch)
treec9d0ab6fb4dedc2be23446557abdc46d24f663b6
parenta4ad4d960251ff971cc4933a05c19706d79522c3 (diff)
downloademacs-27f94c9b4793e83d9bb02e0e0c225201032cf41b.tar.gz
emacs-27f94c9b4793e83d9bb02e0e0c225201032cf41b.zip
(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 b555ba83b30..0ad476ad48f 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -712,34 +712,30 @@ Returns t for rescan and otherwise a position number."
712 (cdr menu) 712 (cdr menu)
713 (cdr (cadr menu))))) 713 (cdr (cadr menu)))))
714 (setq position (x-popup-menu event menu)) 714 (setq position (x-popup-menu event menu))
715 (if imenu-use-keymap-menu 715 (cond ((and (listp position)
716 (progn 716 (numberp (car position))
717 (cond 717 (stringp (nth (1- (length position)) position)))
718 ((and (listp position) 718 (setq position (nth (1- (length position)) position)))
719 (numberp (car position)) 719 ((and (stringp (car position))
720 (stringp (nth (1- (length position)) position))) 720 (null (cdr position)))
721 (setq position (nth (1- (length position)) position))) 721 (setq position (car position))))
722 ((and (stringp (car position)) 722 (cond ((eq position nil)
723 (null (cdr position))) 723 position)
724 (setq position (car position)))))) 724 ((listp position)
725 (cond 725 (imenu--mouse-menu position event
726 ((eq position nil) 726 (if title
727 position) 727 (concat title imenu-level-separator
728 ((listp position) 728 (car (rassq position index-alist)))
729 (imenu--mouse-menu position event 729 (car (rassq position index-alist)))))
730 (if title 730 ((stringp position)
731 (concat title imenu-level-separator 731 (or (string= position (car imenu--rescan-item))
732 (car (rassq position index-alist))) 732 (imenu--in-alist position index-alist)))
733 (car (rassq position index-alist))))) 733 ((or (= position (cdr imenu--rescan-item))
734 ((stringp position) 734 (and (stringp position)
735 (or (string= position (car imenu--rescan-item)) 735 (string= position (car imenu--rescan-item))))
736 (imenu--in-alist position index-alist))) 736 t)
737 ((or (= position (cdr imenu--rescan-item)) 737 (t
738 (and (stringp position) 738 (rassq position index-alist)))))
739 (string= position (car imenu--rescan-item))))
740 t)
741 (t
742 (rassq position index-alist)))))
743 739
744(defun imenu-choose-buffer-index (&optional prompt alist) 740(defun imenu-choose-buffer-index (&optional prompt alist)
745 "Let the user select from a buffer index and return the chosen index. 741 "Let the user select from a buffer index and return the chosen index.