Move test links

3 files changed, 11 insertions, 10 deletions

diff --git a/compat-26.el b/compat-26.el
index fcb05f8..367b45e 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -113,8 +113,8 @@ If you just want to check `major-mode', use `derived-mode-p'."
              (compat--assoc key alist testfn))))
     (if x (cdr x) default)))
 
-(compat-guard t
-  (gv-define-expander compat--alist-get ;; <compat-tests:alist-get-gv>
+(compat-guard t ;; <compat-tests:alist-get-gv>
+  (gv-define-expander compat--alist-get
     (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 d0b5c72..b0a63ec 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -349,8 +349,8 @@ There is no need to explicitly add `help-char' to CHARS;
 
 ;;;; Defined in simple.el
 
-(compat-guard (not (fboundp 'decoded-time-second))
-  (cl-defstruct (decoded-time ;; <compat-tests:decoded-time>
+(compat-guard (not (fboundp 'decoded-time-second)) ;; <compat-tests:decoded-time>
+  (cl-defstruct (decoded-time
                  (:constructor nil)
                  (:copier nil)
                  (:type list))
@@ -417,9 +417,10 @@ NOTE: The compatibility version behaves like `with-no-warnings'."
 ;; 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.
-(compat-guard (or (= emacs-major-version 26) (not (get 'image-property 'gv-expander)))
+(compat-guard ;; <compat-tests:image-property>
+    (or (= emacs-major-version 26) (not (get 'image-property 'gv-expander)))
   :feature image
-  (gv-define-setter image-property (value image prop) ;; <compat-tests:image-property>
+  (gv-define-setter image-property (value image prop)
     `(,(if (< emacs-major-version 26) 'image--set-property 'compat--image--set-property)
       ,image ,prop ,value)))
 
@@ -620,8 +621,8 @@ January 1st being 1."
 ;;;; Defined in text-property-search.el
 
 (declare-function make-prop-match nil)
-(compat-guard (not (fboundp 'make-prop-match))
-  (cl-defstruct (prop-match) beginning end value)) ;; <compat-tests:prop-match>
+(compat-guard (not (fboundp 'make-prop-match)) ;; <compat-tests:prop-match>
+  (cl-defstruct (prop-match) beginning end value))
 
 (compat-defun text-property-search-forward ;; <compat-tests:text-property-search-forward>
     (property &optional value predicate not-current)
diff --git a/compat-29.el b/compat-29.el
index d69f5ba..a0fd48a 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -125,8 +125,8 @@ Unibyte strings are converted to multibyte for comparison."
 
 ;;;; Defined in gv.el
 
-(compat-guard t
-  (gv-define-expander compat--plist-get ;; <compat-tests:plist-get-gv>
+(compat-guard t ;; <compat-tests:plist-get-gv>
+  (gv-define-expander compat--plist-get
     (lambda (do plist prop &optional predicate)
       (macroexp-let2 macroexp-copyable-p key prop
         (gv-letplace (getter setter) plist