From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Aug 1994 20:15:36 +0000 (+0000)
Subject: (hilit-find-file-hook): Preserve buffer modified state.
X-Git-Tag: emacs-19.34~7410
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b947f90b349112d19589928b91dbe865d98e294;p=emacs.git

(hilit-find-file-hook): Preserve buffer modified state.
---

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index d2b7c5bbd2a..961ccea6380 100644
--- a/lisp/hilit19.el
+++ b/lisp/hilit19.el
@@ -815,9 +815,11 @@ non-nil."
 	 (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