From eeb24429732c9781b8c8044907b3f54572b00979 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 7 Mar 2001 19:04:54 +0000 Subject: [PATCH] (imenu--create-keymap-2): Revert use of menu-item for now, to avoid problems with binding imenu directly to a mouse event. --- lisp/ChangeLog | 5 +++++ lisp/imenu.el | 10 +++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4df346b527a..cfb41f804df 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-03-07 Dave Love + + * imenu.el (imenu--create-keymap-2): Revert use of menu-item for + now, to avoid problems with binding imenu directly to a mouse event. + 2001-03-07 Gerd Moellmann * info.el (Info-scroll-down): Call pos-visible-in-window-p with diff --git a/lisp/imenu.el b/lisp/imenu.el index 440758693e8..b799c68c6e2 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -646,7 +646,13 @@ as a way for the user to ask to recalculate the buffer's index alist." (imenu--menubar-select ',item)) (cons '(nil) item)))) (cons (car item) - (list 'menu-item (car item) end :key-sequence nil)))))) + (cons (car item) end) + ;; Fixme: Using this (to speded up menus), instead of + ;; the line above, breaks the case where `imenu' is + ;; bound to a mouse key. The code in imenu needs + ;; fixing somehow to cope. + ;; (list 'menu-item (car item) end :key-sequence nil) + ))))) alist))) ;; If COMMANDS is non-nil, make a real keymap @@ -1075,6 +1081,8 @@ for more information." (and index-item (progn (push-mark) + ;; Fixme: sort this out so that we can use menu-item with + ;; :key-sequence in imenu--create-keymap-2. (let* ((is-special-item (listp (cdr index-item))) (function (if is-special-item -- 2.39.5