diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-16 11:41:42 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-16 11:41:42 +0100 |
| commit | 68f99b6970296295b83408ef7cb13c6e688b96b0 (patch) | |
| tree | 4ced773412ada8e004aa54622c4bb86f665a8632 /compat-tests.el | |
| parent | 89d77c8fe4238d3c0c36432548e11110de427cca (diff) | |
| parent | 187f4954c84b4355900dd01ca131acab22332f9d (diff) | |
Merge branch 'main' into emacs-30
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compat-tests.el b/compat-tests.el index 57a8493..57a7077 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -133,18 +133,18 @@ (with-temp-buffer (let ((event `(mouse-1 (,(selected-window) 1 (0 . 0) 0)))) (set-window-buffer nil (current-buffer)) - (insert "http://emacs.org/") + (insert "https://emacs.org/") (goto-char (point-min)) - (should-equal "http://emacs.org/" (thing-at-mouse event 'url)) - (should-equal '(1 . 18) (bounds-of-thing-at-mouse event 'url)) + (should-equal "https://emacs.org/" (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) |