Mercurial > emacs

changeset 8443:5b87f56b6a6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hilit-find-file-hook): Preserve buffer modified state.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Aug 1994 20:15:36 +0000
parents 05efaa4966e0
children 841f2c8ae5bb
files lisp/hilit19.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/hilit19.el	Thu Aug 04 19:59:03 1994 +0000
+++ b/lisp/hilit19.el	Thu Aug 04 20:15:36 1994 +0000
@@ -815,9 +815,11 @@
 	 (if (> buffer-saved-size (car hilit-auto-rehighlight-fallback))
 	     (setq hilit-auto-rehighlight
 		   (cdr hilit-auto-rehighlight-fallback)))
-	 (if (> buffer-saved-size hilit-auto-highlight-maxout) nil
-	   (hilit-rehighlight-buffer)
-	   (set-buffer-modified-p nil)))))
+	 (if (> buffer-saved-size hilit-auto-highlight-maxout)
+	     nil
+	   (let ((bm (buffer-modified-p)))
+	     (hilit-rehighlight-buffer)
+	     (set-buffer-modified-p bm))))))
 
 (defun hilit-repaint-command (arg)
   "Rehighlights according to the value of hilit-auto-rehighlight, or the