From c5ad18256926808f99a2d13dd36429229af777d7 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 16 Mar 2024 11:37:03 +0100 Subject: compat-tests: Fix compat-thing-at-mouse test --- compat-tests.el | 8 ++++---- 1 file 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) -- cgit v1.0