# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 970997821 0
# Node ID 869a035f39fae49852857c615baac050b0ba5be9
# Parent  c769cc8c9d6ff3a95d2f4d1bb4f3e05a57dfefaa
(imenu-add-to-menubar): Fix last change.

diff -r c769cc8c9d6f -r 869a035f39fa lisp/imenu.el
--- a/lisp/imenu.el	Sun Oct 08 09:27:58 2000 +0000
+++ b/lisp/imenu.el	Sun Oct 08 09:37:01 2000 +0000
@@ -1001,11 +1001,9 @@
       (let ((newmap (make-sparse-keymap)))
 	(set-keymap-parent newmap (current-local-map))
 	(setq imenu--last-menubar-index-alist nil)
-	(define-key newmap [menu-bar]
-	  (let ((map (make-sparse-keymap)))
-	    (define-key map [index] 
-	      `(menu-item ,name ,(make-sparse-keymap "Imenu")))
-	    map))
+	(define-key newmap [menu-bar index]
+	  (define-key map [index] 
+	    `(menu-item ,name ,(make-sparse-keymap "Imenu"))))
 	(use-local-map newmap)
 	(add-hook 'menu-bar-update-hook 'imenu-update-menubar))
     (error "The mode `%s' does not support Imenu" mode-name)))