diff options
| author | Richard Hansen <rhansen@rhansen.org> | 2022-12-18 23:04:00 -0500 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-12-19 15:44:07 +0200 |
| commit | 64163618d21bfa31e56b47c813ce50681c3d3556 (patch) | |
| tree | 859a80d041c4d3d29fea4b766d5fe8f63947c86e /test/lisp/whitespace-tests.el | |
| parent | a75d1da911c07a201a19d8827cd74f181220c274 (diff) | |
| download | emacs-64163618d21bfa31e56b47c813ce50681c3d3556.tar.gz emacs-64163618d21bfa31e56b47c813ce50681c3d3556.tar.bz2 emacs-64163618d21bfa31e56b47c813ce50681c3d3556.zip | |
whitespace: Fix unintended change in buffer modification status
* lisp/whitespace.el (whitespace--empty-at-bob-matcher)
whitespace--empty-at-eob-matcher, whitespace--update-bob-eob):
Silently add the `font-lock-multiline' text property when
highlighting beginning-of-buffer and end-of-buffer empty lines
to prevent Emacs from running modification hooks or considering
the buffer to be modified (Bug#60066).
* test/lisp/whitespace-tests.el
(whitespace-tests--empty-bob-eob-modified): Add a regression test.
Diffstat (limited to 'test/lisp/whitespace-tests.el')
| -rw-r--r-- | test/lisp/whitespace-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/lisp/whitespace-tests.el b/test/lisp/whitespace-tests.el index fb53543c9e1..3e94d7e921b 100644 --- a/test/lisp/whitespace-tests.el +++ b/test/lisp/whitespace-tests.el @@ -327,6 +327,16 @@ buffer's content." "«:whitespace-empty:\n" "»"))))) +(ert-deftest whitespace-tests--empty-bob-eob-modified () + "Regression test for Bug#60066." + (whitespace-tests--with-test-buffer '() + (insert "\nx\n\n") + (goto-char 2) + (set-buffer-modified-p nil) + (let ((whitespace-style '(face empty))) + (whitespace-mode 1) + (should (not (buffer-modified-p)))))) + (provide 'whitespace-tests) ;;; whitespace-tests.el ends here |