aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-06-10 17:30:50 +0000
committerRichard M. Stallman1996-06-10 17:30:50 +0000
commitfdbf0fc7383b9f527bcb286fcba2fd8e6a713ab2 (patch)
tree627e1409d7114b7943c1e427106d5ed839e90bcb
parent753c1309897bda8c744c456a9a8a4b0c5631c894 (diff)
downloademacs-fdbf0fc7383b9f527bcb286fcba2fd8e6a713ab2.tar.gz
emacs-fdbf0fc7383b9f527bcb286fcba2fd8e6a713ab2.zip
(imenu--mouse-menu): Always use nested keymaps.
(imenu-use-keymap-menu): Variable deleted.
-rw-r--r--lisp/imenu.el14
1 files changed, 4 insertions, 10 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el
index e4af044db13..b555ba83b30 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -64,8 +64,6 @@
64;;; Customizable variables 64;;; Customizable variables
65;;; 65;;;
66;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 66;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
67(defvar imenu-use-keymap-menu nil
68 "*Non-nil means use a keymap when making the mouse menu.")
69 67
70(defvar imenu-auto-rescan nil 68(defvar imenu-auto-rescan nil
71 "*Non-nil means Imenu should always rescan the buffers.") 69 "*Non-nil means Imenu should always rescan the buffers.")
@@ -709,14 +707,10 @@ Returns t for rescan and otherwise a position number."
709 index-alist) 707 index-alist)
710 (or title (buffer-name)))) 708 (or title (buffer-name))))
711 position) 709 position)
712 (and imenu-use-keymap-menu 710 (setq menu (imenu--create-keymap-1 (car menu)
713 (setq menu (imenu--create-keymap-1 (car menu) 711 (if (< 1 (length (cdr menu)))
714 (if (< 1 (length (cdr menu))) 712 (cdr menu)
715 (cdr menu) 713 (cdr (cadr menu)))))
716 (cdr (cadr menu))))))
717
718 (or imenu-use-keymap-menu
719 (setq menu (list "Imenu" (delq nil menu))))
720 (setq position (x-popup-menu event menu)) 714 (setq position (x-popup-menu event menu))
721 (if imenu-use-keymap-menu 715 (if imenu-use-keymap-menu
722 (progn 716 (progn