diff options
| author | Glenn Morris | 2018-09-15 09:20:32 -0700 |
|---|---|---|
| committer | Glenn Morris | 2018-09-15 09:20:32 -0700 |
| commit | 9e79d59790809387707852e6d1b691d1bfbf2327 (patch) | |
| tree | b18125d7befbcdad78f2cafb805d0db45c030318 /test/src/buffer-tests.el | |
| parent | ffbe561ee5acb0b9edc5f4c995c287fb2485c315 (diff) | |
| parent | e133b630625d6e5791c8b491c1cf3252cdb97080 (diff) | |
| download | emacs-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.el | 19 |
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") |