[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/imenu.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/imenu.el |
Date: |
Mon, 11 Mar 2002 04:16:37 -0500 |
Index: emacs/lisp/imenu.el
diff -c emacs/lisp/imenu.el:1.87 emacs/lisp/imenu.el:1.88
*** emacs/lisp/imenu.el:1.87 Mon Nov 19 19:17:15 2001
--- emacs/lisp/imenu.el Mon Mar 11 04:16:37 2002
***************
*** 980,988 ****
--- 980,995 ----
(defvar imenu-buffer-menubar nil)
+ (defvar imenu-update-menubar-modified-tick 0
+ "The value of (buffer-modified-tick) as of last call to
`imenu-update-menubar'.
+ This value becomes local in every buffer when it is set.")
+ (make-variable-buffer-local 'imenu-update-menubar-modified-tick)
+
(defun imenu-update-menubar ()
(and (current-local-map)
(keymapp (lookup-key (current-local-map) [menu-bar index]))
+ (not (eq (buffer-modified-tick)
+ imenu-update-menubar-modified-tick))
(let ((index-alist (imenu--make-index-alist t)))
;; Don't bother updating if the index-alist has not changed
;; since the last time we did it.
***************
*** 996,1001 ****
--- 1003,1010 ----
(if (< 1 (length (cdr
menu)))
(cdr menu)
(cdr (car (cdr menu))))))
+ (setq imenu-update-menubar-modified-tick
+ (buffer-modified-tick))
(setq old (lookup-key (current-local-map) [menu-bar index]))
(setcdr old (cdr menu1)))))))
- [Emacs-diffs] Changes to emacs/lisp/imenu.el,
Richard M. Stallman <=