* imenu.el (imenu-update-menubar): Use buffer-chars-modified-tick.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 615b2560ddfbada2aa27225edba2bc7d3b18f772..d873249590fd78ac5312398e0b74280d0f485089 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-01  Chong Yidong  <cyd@stupidchicken.com>
+
+       * imenu.el (imenu-update-menubar): Use buffer-chars-modified-tick.
+
 2006-08-31  Richard Stallman  <rms@gnu.org>
 
        * cus-edit.el (custom-save-variables): Slight cleanup.

diff --git a/lisp/imenu.el b/lisp/imenu.el
index d9c75c5fdd45bb73de3d18eb605a6d41b333a01c..ed190c24e12e34d94621ab48a92adf25338e1640 100644 (file)
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -967,15 +967,15 @@ A trivial interface to `imenu-add-to-menubar' suitable for use in a hook."
 (defvar imenu-buffer-menubar nil)
 
 (defvar imenu-menubar-modified-tick 0
-  "The value of (buffer-modified-tick) as of last call to `imenu-update-menubar'.")
+  "The value of (buffer-chars-modified-tick) as of the last call
+to `imenu-update-menubar'.")
 (make-variable-buffer-local 'imenu-menubar-modified-tick)
 
 (defun imenu-update-menubar ()
   (when (and (current-local-map)
             (keymapp (lookup-key (current-local-map) [menu-bar index]))
-            (not (eq (buffer-modified-tick)
-                     imenu-menubar-modified-tick)))
-    (setq imenu-menubar-modified-tick (buffer-modified-tick))
+            (/= (buffer-chars-modified-tick) imenu-menubar-modified-tick))
+    (setq imenu-menubar-modified-tick (buffer-chars-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.