diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-04 20:15:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-04 20:15:36 +0000 |
| commit | 8b947f90b349112d19589928b91dbe865d98e294 (patch) | |
| tree | 2a161f7749656dc01e2bd1e456212eb2a873c6d6 /lisp/hilit19.el | |
| parent | 4500ff36ef0e0082a951a3870c3da86ab344d075 (diff) | |
| download | emacs-8b947f90b349112d19589928b91dbe865d98e294.tar.gz | |
(hilit-find-file-hook): Preserve buffer modified state.
Diffstat (limited to 'lisp/hilit19.el')
| -rw-r--r-- | lisp/hilit19.el | 8 |
1 files 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 |