From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 6 Aug 1996 17:40:22 +0000 (+0000)
Subject: (imenu-update-menubar): Fix code to install the new menu.
X-Git-Tag: emacs-19.34~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d43dca8a601af43251fc952db1c23fd076579f4;p=emacs.git

(imenu-update-menubar): Fix code to install the new menu.
---

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 0ad476ad48f..bc9e8669369 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -822,8 +822,7 @@ See the command `imenu' for more information."
 						     (cdr (car (cdr menu))))
 						   t))
 	       (setq old (lookup-key (current-local-map) [menu-bar index]))
-	       (if (keymapp old)
-		   (setcdr (nthcdr 2 old) menu1)))))))
+	       (setcdr old (cdr menu1)))))))
 
 (defun imenu--menubar-select (item)
   "Use Imenu to select the function or variable named in this menu item."