diff options
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/compat-tests.el b/compat-tests.el index 8a2e980..fd324a9 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -2724,5 +2724,20 @@ (should-equal (ring-size ring) 3) (should-equal (ring-elements ring) '(5 4 3)))) +(ert-deftest save-mark-and-excursion () + (with-temp-buffer + (insert "a\nb\nc") + (goto-char 1) + (set-mark 2) + (should-equal (point) 1) + (should-equal (mark) 2) + (save-mark-and-excursion + (goto-char 3) + (set-mark 4) + (should-equal (point) 3) + (should-equal (mark) 4)) + (should-equal (point) 1) + (should-equal (mark) 2))) + (provide 'compat-tests) ;;; compat-tests.el ends here |