diff options
| author | Dave Love | 2000-10-08 09:37:01 +0000 |
|---|---|---|
| committer | Dave Love | 2000-10-08 09:37:01 +0000 |
| commit | f1d7969d317cf01bd6f5cf4b37dd05b765e3a39d (patch) | |
| tree | 44b027ca2e42ddf27b8ee23412e107bc70b727a5 | |
| parent | d20faceb31340a0523fec3f52da664b6beac7580 (diff) | |
| download | emacs-f1d7969d317cf01bd6f5cf4b37dd05b765e3a39d.tar.gz emacs-f1d7969d317cf01bd6f5cf4b37dd05b765e3a39d.zip | |
(imenu-add-to-menubar): Fix last change.
| -rw-r--r-- | lisp/imenu.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index cce78645c2b..8f223d3fb1c 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el | |||
| @@ -1001,11 +1001,9 @@ See the command `imenu' for more information." | |||
| 1001 | (let ((newmap (make-sparse-keymap))) | 1001 | (let ((newmap (make-sparse-keymap))) |
| 1002 | (set-keymap-parent newmap (current-local-map)) | 1002 | (set-keymap-parent newmap (current-local-map)) |
| 1003 | (setq imenu--last-menubar-index-alist nil) | 1003 | (setq imenu--last-menubar-index-alist nil) |
| 1004 | (define-key newmap [menu-bar] | 1004 | (define-key newmap [menu-bar index] |
| 1005 | (let ((map (make-sparse-keymap))) | 1005 | (define-key map [index] |
| 1006 | (define-key map [index] | 1006 | `(menu-item ,name ,(make-sparse-keymap "Imenu")))) |
| 1007 | `(menu-item ,name ,(make-sparse-keymap "Imenu"))) | ||
| 1008 | map)) | ||
| 1009 | (use-local-map newmap) | 1007 | (use-local-map newmap) |
| 1010 | (add-hook 'menu-bar-update-hook 'imenu-update-menubar)) | 1008 | (add-hook 'menu-bar-update-hook 'imenu-update-menubar)) |
| 1011 | (error "The mode `%s' does not support Imenu" mode-name))) | 1009 | (error "The mode `%s' does not support Imenu" mode-name))) |