summaryrefslogtreecommitdiff
path: root/lisp/imenu.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-08-06 17:40:22 +0000
committerRichard M. Stallman <rms@gnu.org>1996-08-06 17:40:22 +0000
commit212700a9636d6f04f37e51f1ad404a99f7366f71 (patch)
treecee5fdd2fac3625f1beb3e8433640db995bf3df5 /lisp/imenu.el
parent94ae7bb1a1d79025314e857c126ac71f5c9c549b (diff)
downloademacs-212700a9636d6f04f37e51f1ad404a99f7366f71.tar.gz
(imenu-update-menubar): Fix code to install the new menu.
Diffstat (limited to 'lisp/imenu.el')
-rw-r--r--lisp/imenu.el3
1 files changed, 1 insertions, 2 deletions
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."