From 8b947f90b349112d19589928b91dbe865d98e294 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Aug 1994 20:15:36 +0000 Subject: [PATCH] (hilit-find-file-hook): Preserve buffer modified state. --- lisp/hilit19.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.39.5