# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 839353222 0
# Node ID d110af120b19b0ad4eb30a6bfdff3755b50f991f
# Parent  248bde0ddbc6fbb2dd5f1d9cf05afb5a917592a5
(imenu-update-menubar): Fix code to install the new menu.

diff -r 248bde0ddbc6 -r d110af120b19 lisp/imenu.el
--- a/lisp/imenu.el	Tue Aug 06 08:21:51 1996 +0000
+++ b/lisp/imenu.el	Tue Aug 06 17:40:22 1996 +0000
@@ -822,8 +822,7 @@
 						     (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."