mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(imenu--create-keymap-2): Revert use of menu-item for

Browse Source 
now, to avoid problems with binding imenu directly to a mouse event.
This commit is contained in:
Dave Love 2001-03-07 19:04:54 +00:00
parent 3bdf266074
commit eeb2442973
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-03-07 Dave Love <fx@gnu.org>
* 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 <gerd@gnu.org>
* info.el (Info-scroll-down): Call pos-visible-in-window-p with

10
lisp/imenu.el
View File

@ -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