From 8c707380550b47e17b41f100f179d3d6b7338ca0 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Sep 2006 13:30:55 +0000 Subject: [PATCH] * imenu.el (imenu-update-menubar): Use buffer-chars-modified-tick. --- lisp/ChangeLog | 4 ++++ lisp/imenu.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 615b2560ddf..d873249590f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-09-01 Chong Yidong + + * imenu.el (imenu-update-menubar): Use buffer-chars-modified-tick. + 2006-08-31 Richard Stallman * cus-edit.el (custom-save-variables): Slight cleanup. diff --git a/lisp/imenu.el b/lisp/imenu.el index d9c75c5fdd4..ed190c24e12 100644 --- 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. -- 2.39.2