# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776031336 0
# Node ID 5b87f56b6a6d477acff7669945e1a8bebc7296ce
# Parent  05efaa4966e08ad7b5bc2e4dcd51ecf4217153af
(hilit-find-file-hook): Preserve buffer modified state.

diff -r 05efaa4966e0 -r 5b87f56b6a6d lisp/hilit19.el
--- 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