diff options
| author | Richard M. Stallman | 1999-02-06 21:50:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-06 21:50:53 +0000 |
| commit | 0cff96e7cee5f808876ba09c91aaa25e1c311422 (patch) | |
| tree | efafee2cb2acf6bf957758ae2ea9526834d6cbdb | |
| parent | e09801420554b8403196b4828ea3400a5060153f (diff) | |
| download | emacs-0cff96e7cee5f808876ba09c91aaa25e1c311422.tar.gz emacs-0cff96e7cee5f808876ba09c91aaa25e1c311422.zip | |
(imenu--last-menubar-index-alist): Add doc.
(imenu-add-to-menubar): Reset imenu--last-menubar-index-alist.
| -rw-r--r-- | lisp/imenu.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index f9b33b80b47..4fa74b7ec72 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el | |||
| @@ -426,8 +426,9 @@ This variable is local in all buffers, once set.") | |||
| 426 | 426 | ||
| 427 | (make-variable-buffer-local 'imenu--index-alist) | 427 | (make-variable-buffer-local 'imenu--index-alist) |
| 428 | 428 | ||
| 429 | ;; The latest buffer index used to update the menu bar menu. | 429 | (defvar imenu--last-menubar-index-alist nil |
| 430 | (defvar imenu--last-menubar-index-alist nil) | 430 | "The latest buffer index used to update the menu bar menu.") |
| 431 | |||
| 431 | (make-variable-buffer-local 'imenu--last-menubar-index-alist) | 432 | (make-variable-buffer-local 'imenu--last-menubar-index-alist) |
| 432 | 433 | ||
| 433 | ;; History list for 'jump-to-function-in-buffer'. | 434 | ;; History list for 'jump-to-function-in-buffer'. |
| @@ -991,6 +992,7 @@ See the command `imenu' for more information." | |||
| 991 | 'imenu-default-create-index-function))) | 992 | 'imenu-default-create-index-function))) |
| 992 | (let ((newmap (make-sparse-keymap)) | 993 | (let ((newmap (make-sparse-keymap)) |
| 993 | (menu-bar (lookup-key (current-local-map) [menu-bar]))) | 994 | (menu-bar (lookup-key (current-local-map) [menu-bar]))) |
| 995 | (setq imenu--last-menubar-index-alist nil) | ||
| 994 | (define-key newmap [menu-bar] | 996 | (define-key newmap [menu-bar] |
| 995 | (append (make-sparse-keymap) menu-bar)) | 997 | (append (make-sparse-keymap) menu-bar)) |
| 996 | (define-key newmap [menu-bar index] | 998 | (define-key newmap [menu-bar index] |