diff options
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 |