branch: externals/compat
commit 688e2d983c8ca41c1b5a5241d22df31a57575a0a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    Add missing links to tests
---
 compat-28.el | 2 +-
 compat-29.el | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/compat-28.el b/compat-28.el
index a4b494df27..e630e81c8c 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -678,7 +678,7 @@ contrast color with RGB as background and as foreground."
 
 ;;;; Defined in window.el
 
-(compat-defmacro with-window-non-dedicated (window &rest body)
+(compat-defmacro with-window-non-dedicated (window &rest body) ;; 
<compat-tests:with-window-non-dedicated>
   "Evaluate BODY with WINDOW temporarily made non-dedicated.
 If WINDOW is nil, use the selected window.  Return the value of
 the last form in BODY."
diff --git a/compat-29.el b/compat-29.el
index 60f5b2ec0c..efba43304e 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -171,7 +171,7 @@ This function does not move point.  Also see 
`line-end-position'."
 
 ;;;; Defined in subr.el
 
-(compat-defun buffer-local-restore-state (states)
+(compat-defun buffer-local-restore-state (states) ;; 
<compat-tests:buffer-local-set-state>
   "Restore values of buffer-local variables recorded in STATES.
 STATES should be an object returned by `buffer-local-set-state'."
   (dolist (state states)
@@ -179,7 +179,7 @@ STATES should be an object returned by 
`buffer-local-set-state'."
         (set (car state) (caddr state))
       (kill-local-variable (car state)))))
 
-(compat-defun buffer-local-set-state--get (pairs)
+(compat-defun buffer-local-set-state--get (pairs) ;; 
<compat-tests:buffer-local-set-state>
   "Internal helper function."
   (let ((states nil))
     (while pairs
@@ -192,7 +192,7 @@ STATES should be an object returned by 
`buffer-local-set-state'."
       (setq pairs (cddr pairs)))
     (nreverse states)))
 
-(compat-defmacro buffer-local-set-state (&rest pairs)
+(compat-defmacro buffer-local-set-state (&rest pairs) ;; 
<compat-tests:buffer-local-set-state>
   "Like `setq-local', but allow restoring the previous state of locals later.
 This macro returns an object that can be passed to `buffer-local-restore-state'
 in order to restore the state of the local variables set via this macro.
@@ -222,7 +222,7 @@ in order to restore the state of the local variables set 
via this macro.
   "Delete the current line."
   (delete-region (pos-bol) (pos-bol 2)))
 
-(compat-defmacro with-narrowing (start end &rest rest)
+(compat-defmacro with-narrowing (start end &rest rest) ;; 
<compat-tests:with-narrowing>
   "Execute BODY with restrictions set to START and END.
 
 The current restrictions, if any, are restored upon return.

Reply via email to