diff options
| author | Richard M. Stallman | 1996-08-06 17:40:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-06 17:40:22 +0000 |
| commit | 5d43dca8a601af43251fc952db1c23fd076579f4 (patch) | |
| tree | 64e29ef661bef0e7f5965887790374bf3235431b | |
| parent | 98ab445ddbd4619c0bf5b8c978e3317565cccc87 (diff) | |
| download | emacs-5d43dca8a601af43251fc952db1c23fd076579f4.tar.gz emacs-5d43dca8a601af43251fc952db1c23fd076579f4.zip | |
(imenu-update-menubar): Fix code to install the new menu.
| -rw-r--r-- | lisp/imenu.el | 3 |
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." | |||
| 822 | (cdr (car (cdr menu)))) | 822 | (cdr (car (cdr menu)))) |
| 823 | t)) | 823 | t)) |
| 824 | (setq old (lookup-key (current-local-map) [menu-bar index])) | 824 | (setq old (lookup-key (current-local-map) [menu-bar index])) |
| 825 | (if (keymapp old) | 825 | (setcdr old (cdr menu1))))))) |
| 826 | (setcdr (nthcdr 2 old) menu1))))))) | ||
| 827 | 826 | ||
| 828 | (defun imenu--menubar-select (item) | 827 | (defun imenu--menubar-select (item) |
| 829 | "Use Imenu to select the function or variable named in this menu item." | 828 | "Use Imenu to select the function or variable named in this menu item." |