diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-11-27 09:43:56 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-11-27 09:43:56 -0500 |
| commit | 66eeaaa48858572d47ff3b0b177d5b765df93418 (patch) | |
| tree | be9923eb0bb08d4b374a0203f6793c279881740f /test/lisp/subr-tests.el | |
| parent | 2b14b7e6dcdf54d5a85f612b7e0c0e1da9ec40a1 (diff) | |
| download | emacs-66eeaaa48858572d47ff3b0b177d5b765df93418.tar.gz emacs-66eeaaa48858572d47ff3b0b177d5b765df93418.tar.bz2 emacs-66eeaaa48858572d47ff3b0b177d5b765df93418.zip | |
* lisp/subr.el (activate-change-group): Fix bug#33341
Diffstat (limited to 'test/lisp/subr-tests.el')
| -rw-r--r-- | test/lisp/subr-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 67f7fc97496..e3f798d11cf 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -551,5 +551,17 @@ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=19350." (should (equal (replace-regexp-in-string "\\`\\|x" "z" "--xx--") "z--zz--"))) +(ert-deftest subr-tests--change-group-33341 () + (with-temp-buffer + (buffer-enable-undo) + (insert "0\n") + ;; (undo-boundary) + (let ((g (prepare-change-group))) + (activate-change-group g) + (insert "b\n") + (insert "c\n") + (cancel-change-group g)) + (should (equal (buffer-string) "0\n")))) + (provide 'subr-tests) ;;; subr-tests.el ends here |