From 548e6541f91c5d1ccbe152e9cfdc94b96b2c0a36 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 16 Mar 2024 11:35:15 +0100 Subject: Use https links everywhere --- README.md | 4 ++-- compat-28.el | 2 +- compat-tests.el | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index 5309050..8c1eff2 100644 --- a/README.md +++ b/README.md @@ -25,7 +25,7 @@ builds]. [GNU ELPA repository]: https://git.savannah.gnu.org/cgit/emacs/elpa.git/tree/?h=externals/compat [GNU ELPA package builds]: - http://elpa.gnu.org/packages/compat.html + https://elpa.gnu.org/packages/compat.html Bug and patches --------------- @@ -43,7 +43,7 @@ As compat.el is distributed as part of [GNU ELPA], and therefore requires a [copyright assignment] to the [FSF], for all non-trivial code contributions. [GNU ELPA]: - http://elpa.gnu.org/packages/compat.html + https://elpa.gnu.org/packages/compat.html [copyright assignment]: https://www.gnu.org/software/emacs/manual/html_node/emacs/Copyright-Assignment.html [FSF]: diff --git a/compat-28.el b/compat-28.el index a2b9f4c..b5730b1 100644 --- a/compat-28.el +++ b/compat-28.el @@ -190,7 +190,7 @@ and BLUE, is normalized to have its value in [0,65535]." ;; The "RGBi" (RGB Intensity) specification is defined by ;; XCMS[0], see [1] for the implementation in Xlib. ;; - ;; [0] http://www.nic.funet.fi/pub/X11/X11R4/DOCS/color/Xcms.text + ;; [0] https://www.nic.funet.fi/pub/X11/X11R4/DOCS/color/Xcms.text ;; [1] https://gitlab.freedesktop.org/xorg/lib/libx11/-/blob/master/src/xcms/LRGB.c#L1392 ((string-match ;; (rx bos "rgbi:" (* space) diff --git a/compat-tests.el b/compat-tests.el index 8ea5073..443e43d 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -137,9 +137,9 @@ (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 "https://emacs.org/" (thing-at-mouse event 'url)) (should-equal '(1 . 18) (bounds-of-thing-at-mouse event 'url)) (should-not (region-active-p)) (mark-thing-at-mouse event 'url) -- cgit v1.0 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 From 187f4954c84b4355900dd01ca131acab22332f9d Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 16 Mar 2024 11:40:00 +0100 Subject: Update NEWS.org --- NEWS.org | 2 ++ 1 file changed, 2 insertions(+) diff --git a/NEWS.org b/NEWS.org index ae12064..c64e770 100644 --- a/NEWS.org +++ b/NEWS.org @@ -4,6 +4,8 @@ * Development +- Minor optimization of ~plist-get~ and ~plist-put~. +- Minor compatibility adjustments for the Emacs 30 development version. - A minimal version of =compat.el= will be part of Emacs 30. Emacs :core packages can directly ~(require 'compat)~ without the ~NOERROR~ flag. Furthermore Compat will not be installed unnecessarily. If a package depending on Emacs 25.1 and -- cgit v1.0