Mercurial > emacs
changeset 36637:b7c32154721a
(imenu--create-keymap-2): Revert use of menu-item for
now, to avoid problems with binding imenu directly to a mouse event.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 07 Mar 2001 19:02:28 +0000 |
| parents | bafe2ea0aa15 |
| children | f5db94398882 |
| files | lisp/imenu.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/imenu.el Wed Mar 07 17:17:36 2001 +0000 +++ b/lisp/imenu.el Wed Mar 07 19:02:28 2001 +0000 @@ -646,7 +646,13 @@ (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 @@ (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