diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-16 11:37:03 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-16 11:37:03 +0100 |
| commit | c5ad18256926808f99a2d13dd36429229af777d7 (patch) | |
| tree | 200deef89d107b79593c6ec10625bb3b8d76129a | |
| parent | 548e6541f91c5d1ccbe152e9cfdc94b96b2c0a36 (diff) | |
compat-tests: Fix compat-thing-at-mouse test
| -rw-r--r-- | compat-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compat-tests.el b/compat-tests.el index 443e43d..fe1c723 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -140,15 +140,15 @@ (insert "https://emacs.org/") (goto-char (point-min)) (should-equal "https://emacs.org/" (thing-at-mouse event 'url)) - (should-equal '(1 . 18) (bounds-of-thing-at-mouse event 'url)) + (should-equal '(1 . 19) (bounds-of-thing-at-mouse event 'url)) (should-not (region-active-p)) (mark-thing-at-mouse event 'url) - (should-equal (point) 18) - (should-equal '((1 . 18)) (region-bounds)) + (should-equal (point) 19) + (should-equal '((1 . 19)) (region-bounds)) (let ((mouse-select-region-move-to-beginning t)) (mark-thing-at-mouse event 'url)) (should-equal (point) 1) - (should-equal '((1 . 18)) (region-bounds)))))) + (should-equal '((1 . 19)) (region-bounds)))))) (ert-deftest compat-dolist-with-progress-reporter () (let (y) |