aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-10-08 09:37:01 +0000
committerDave Love2000-10-08 09:37:01 +0000
commitf1d7969d317cf01bd6f5cf4b37dd05b765e3a39d (patch)
tree44b027ca2e42ddf27b8ee23412e107bc70b727a5
parentd20faceb31340a0523fec3f52da664b6beac7580 (diff)
downloademacs-f1d7969d317cf01bd6f5cf4b37dd05b765e3a39d.tar.gz
emacs-f1d7969d317cf01bd6f5cf4b37dd05b765e3a39d.zip
(imenu-add-to-menubar): Fix last change.
-rw-r--r--lisp/imenu.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el
index cce78645c2b..8f223d3fb1c 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -1001,11 +1001,9 @@ See the command `imenu' for more information."
1001 (let ((newmap (make-sparse-keymap))) 1001 (let ((newmap (make-sparse-keymap)))
1002 (set-keymap-parent newmap (current-local-map)) 1002 (set-keymap-parent newmap (current-local-map))
1003 (setq imenu--last-menubar-index-alist nil) 1003 (setq imenu--last-menubar-index-alist nil)
1004 (define-key newmap [menu-bar] 1004 (define-key newmap [menu-bar index]
1005 (let ((map (make-sparse-keymap))) 1005 (define-key map [index]
1006 (define-key map [index] 1006 `(menu-item ,name ,(make-sparse-keymap "Imenu"))))
1007 `(menu-item ,name ,(make-sparse-keymap "Imenu")))
1008 map))
1009 (use-local-map newmap) 1007 (use-local-map newmap)
1010 (add-hook 'menu-bar-update-hook 'imenu-update-menubar)) 1008 (add-hook 'menu-bar-update-hook 'imenu-update-menubar))
1011 (error "The mode `%s' does not support Imenu" mode-name))) 1009 (error "The mode `%s' does not support Imenu" mode-name)))