aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/buffer-tests.el
diff options
context:
space:
mode:
authorGlenn Morris2018-09-15 09:20:32 -0700
committerGlenn Morris2018-09-15 09:20:32 -0700
commit9e79d59790809387707852e6d1b691d1bfbf2327 (patch)
treeb18125d7befbcdad78f2cafb805d0db45c030318 /test/src/buffer-tests.el
parentffbe561ee5acb0b9edc5f4c995c287fb2485c315 (diff)
parente133b630625d6e5791c8b491c1cf3252cdb97080 (diff)
downloademacs-9e79d59790809387707852e6d1b691d1bfbf2327.tar.gz
emacs-9e79d59790809387707852e6d1b691d1bfbf2327.zip
Merge from origin/emacs-26
e133b63 (origin/emacs-26) Avoid adverse side effects of fixing bug#21824 cc8f334 Document changes called out in NEWS 20ecc52 ; * etc/NEWS: Document recent change in 'thing-at-point'. 1fc5283 ; INSTALL: Fix a typo in the last commit. 24f240d Tiny doc updates re yum/dnf etc 41c2d25 Remove unused variable 1e3b3fa Fix (thing-at-point 'list) regression (Bug#31772) 219893a Clarify meaning of '*' 41cdda2 * etc/PROBLEMS: Document Ubuntu 16.04 issue. 1c22f03 Increase default value for imenu-auto-rescan-maxout ee84389 Improve recent change to ELisp manual ff374e4 * doc/lispref/display.texi (SVG Images): Improve wording. 3a0caf6 * doc/lispref/display.texi (SVG Images): Fix a typo. (Bug#32... Conflicts: doc/lispref/lists.texi etc/NEWS
Diffstat (limited to 'test/src/buffer-tests.el')
-rw-r--r--test/src/buffer-tests.el19
1 files changed, 19 insertions, 0 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el
index d115e668178..0e4fd3655ae 100644
--- a/test/src/buffer-tests.el
+++ b/test/src/buffer-tests.el
@@ -45,6 +45,25 @@ with parameters from the *Messages* buffer modification."
45 (should (eq buf (current-buffer)))) 45 (should (eq buf (current-buffer))))
46 (when msg-ov (delete-overlay msg-ov)))))) 46 (when msg-ov (delete-overlay msg-ov))))))
47 47
48(ert-deftest overlay-modification-hooks-deleted-overlay ()
49 "Test for bug#30823."
50 (let ((check-point nil)
51 (ov-delete nil)
52 (ov-set nil))
53 (with-temp-buffer
54 (insert "abc")
55 (setq ov-set (make-overlay 1 3))
56 (overlay-put ov-set 'modification-hooks
57 (list (lambda (_o after &rest _args)
58 (and after (setq check-point t)))))
59 (setq ov-delete (make-overlay 1 3))
60 (overlay-put ov-delete 'modification-hooks
61 (list (lambda (o after &rest _args)
62 (and (not after) (delete-overlay o)))))
63 (goto-char 2)
64 (insert "1")
65 (should (eq check-point t)))))
66
48(ert-deftest test-generate-new-buffer-name-bug27966 () 67(ert-deftest test-generate-new-buffer-name-bug27966 ()
49 (should-not (string-equal "nil" 68 (should-not (string-equal "nil"
50 (progn (get-buffer-create "nil") 69 (progn (get-buffer-create "nil")