diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2025-03-29 16:40:19 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2025-03-29 17:49:49 -0400 |
| commit | 57da44fa702782e19cd9d60ea63ec2fd9ca48521 (patch) | |
| tree | 7182b458505348be363d9c0093a98a8b5043fb79 /test/src/editfns-tests.el | |
| parent | 7c82cc8b975175aebbad1c43ec1cd98b3232f482 (diff) | |
| download | emacs-57da44fa702782e19cd9d60ea63ec2fd9ca48521.tar.gz emacs-57da44fa702782e19cd9d60ea63ec2fd9ca48521.tar.bz2 emacs-57da44fa702782e19cd9d60ea63ec2fd9ca48521.zip | |
src/insdel.c (adjust_markers_for_replace): Fix insertion case
test/src/editfns-tests.el (editfns-tests--insert-via-replace): New test
Diffstat (limited to 'test/src/editfns-tests.el')
| -rw-r--r-- | test/src/editfns-tests.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 3da9d4e8acd..2553ad3ec2c 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el @@ -357,6 +357,20 @@ (should (= m7a (+ (point-min) 7))))) (widen))))) +(ert-deftest editfns-tests--insert-via-replace () + (with-temp-buffer + (insert "bar") + (goto-char (point-min)) + ;; Check that markers insertion type is respected when an insertion + ;; happens via a "replace" operation. + (let ((m1 (copy-marker (point) nil)) + (m2 (copy-marker (point) t))) + (looking-at "\\(\\)") + (replace-match "foo") + (should (equal "foobar" (buffer-string))) + (should (= (point-min) m1)) + (should (= (+ (point-min) 3) m2))))) + (ert-deftest delete-region-undo-markers-1 () "Make sure we don't end up with freed markers reachable from Lisp." ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30931#40 |