emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat 03261ba27b 2/6: Add missing links to tests


From: ELPA Syncer
Subject: [elpa] externals/compat 03261ba27b 2/6: Add missing links to tests
Date: Sun, 15 Jan 2023 17:57:30 -0500 (EST)

branch: externals/compat
commit 03261ba27b3350270248b9070e896b361e774ed8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add missing links to tests
---
 compat-26.el | 2 +-
 compat-27.el | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compat-26.el b/compat-26.el
index 7848be85e5..b9316520ad 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -90,7 +90,7 @@ SEQUENCE may be a list, a vector, a boolean vector, or a 
string."
 
 ;; NOTE: Define gv expander only if `compat--alist-get' is defined.
 (when (eval-when-compile (< emacs-major-version 26))
-  (gv-define-expander compat--alist-get
+  (gv-define-expander compat--alist-get ;; [[compat-tests:alist-get-gv]]
     (lambda (do key alist &optional default remove testfn)
       (macroexp-let2 macroexp-copyable-p k key
         (gv-letplace (getter setter) alist
diff --git a/compat-27.el b/compat-27.el
index 986d930d90..44e5c43514 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -330,7 +330,7 @@ the number of seconds east of Greenwich."
   (nth 8 time))
 
 (when (eval-when-compile (< emacs-major-version 27))
-  (gv-define-setter decoded-time-second (v x)  `(setcar (nthcdr 0 ,x) ,v))
+  (gv-define-setter decoded-time-second (v x)  `(setcar (nthcdr 0 ,x) ,v)) ;; 
[[compat-tests:decoded-time-accessors]]
   (gv-define-setter decoded-time-minute (v x)  `(setcar (nthcdr 1 ,x) ,v))
   (gv-define-setter decoded-time-hour (v x)    `(setcar (nthcdr 2 ,x) ,v))
   (gv-define-setter decoded-time-day (v x)     `(setcar (nthcdr 3 ,x) ,v))
@@ -369,13 +369,13 @@ Internal use only."
 
 (if (eval-when-compile (< emacs-major-version 26))
     (with-eval-after-load 'image
-      (gv-define-simple-setter image-property image--set-property))
+      (gv-define-simple-setter image-property image--set-property)) ;; 
[[compat-tests:image-property]]
   ;; HACK: image--set-property was broken with an off-by-one error on Emacs 26.
   ;; The bug was fixed in a4ad7bed187493c1c230f223b52c71f5c34f7c89. Therefore 
we
   ;; override the gv expander until Emacs 27.1.
   (when (eval-when-compile (< emacs-major-version 27))
     (with-eval-after-load 'image
-      (gv-define-simple-setter image-property compat--image--set-property))))
+      (gv-define-simple-setter image-property compat--image--set-property)))) 
;; [[compat-tests:image-property]]
 
 ;;;; Defined in files.el
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]