diff options
| author | Richard M. Stallman | 2004-05-29 14:35:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-05-29 14:35:20 +0000 |
| commit | bcaa1cef05183ab32df4e1445adf4c84c7fca180 (patch) | |
| tree | 783cfa778fa5bd0e2360d749d1e3a5fdd8cd64a3 | |
| parent | 1c795a0e1567ce62d98ff56b4bdf62efb7467f2e (diff) | |
| download | emacs-bcaa1cef05183ab32df4e1445adf4c84c7fca180.tar.gz emacs-bcaa1cef05183ab32df4e1445adf4c84c7fca180.zip | |
(imenu--menubar-select): Set imenu-menubar-modified-tick
and imenu--last-menubar-index-alist.
| -rw-r--r-- | lisp/imenu.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index 42f50fba3a4..e0b57440fd8 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el | |||
| @@ -890,6 +890,7 @@ Returns t for rescan and otherwise a position number." | |||
| 890 | (setq name (completing-read prompt | 890 | (setq name (completing-read prompt |
| 891 | prepared-index-alist | 891 | prepared-index-alist |
| 892 | nil t nil 'imenu--history-list name))) | 892 | nil t nil 'imenu--history-list name))) |
| 893 | |||
| 893 | (cond ((not (stringp name)) nil) | 894 | (cond ((not (stringp name)) nil) |
| 894 | ((string= name (car imenu--rescan-item)) t) | 895 | ((string= name (car imenu--rescan-item)) t) |
| 895 | (t | 896 | (t |
| @@ -1015,7 +1016,10 @@ This value becomes local in every buffer when it is set.") | |||
| 1015 | (if (equal item imenu--rescan-item) | 1016 | (if (equal item imenu--rescan-item) |
| 1016 | (progn | 1017 | (progn |
| 1017 | (imenu--cleanup) | 1018 | (imenu--cleanup) |
| 1019 | ;; Make sure imenu-update-menubar redoes everything. | ||
| 1020 | (setq imenu-menubar-modified-tick -1) | ||
| 1018 | (setq imenu--index-alist nil) | 1021 | (setq imenu--index-alist nil) |
| 1022 | (setq imenu--last-menubar-index-alist nil) | ||
| 1019 | (imenu-update-menubar) | 1023 | (imenu-update-menubar) |
| 1020 | t) | 1024 | t) |
| 1021 | (imenu item) | 1025 | (imenu item) |