[Emacs-diffs] Changes to emacs/lisp/imenu.el

[Richard M. Stallman]

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)))))))