# HG changeset patch # User Dave Love # Date 983991748 0 # Node ID b7c32154721a6f61370929b9d2070c907afe0845 # Parent bafe2ea0aa153b3091bee0c23a1688bf88b231b1 (imenu--create-keymap-2): Revert use of menu-item for now, to avoid problems with binding imenu directly to a mouse event. diff -r bafe2ea0aa15 -r b7c32154721a lisp/imenu.el --- 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