From 5d43dca8a601af43251fc952db1c23fd076579f4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 6 Aug 1996 17:40:22 +0000
Subject: (imenu-update-menubar): Fix code to install the new menu.

---
 lisp/imenu.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 0ad476ad48..bc9e866936 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."
-- 
cgit v1.2.3