[elpa] externals/compat dca7636e62: Add UNTESTED labels

[ELPA Syncer]

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

    Add UNTESTED labels
---
 compat-26.el | 4 ++--
 compat-27.el | 2 +-
 compat-29.el | 3 ++-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/compat-26.el b/compat-26.el
index 266bc56b48..504d14bdc6 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -262,7 +262,7 @@ TRIM-LEFT and TRIM-RIGHT default to \"[ \\t\\n\\r]+\"."
   (declare (pure t))
   (cdr (cdr (cdr (cdr x)))))
 
-(compat-defvar gensym-counter 0
+(compat-defvar gensym-counter 0 ;; <OK>
   "Number used to construct the name of the next symbol created by `gensym'.")
 
 (compat-defun gensym (&optional prefix) ;; <OK>
@@ -330,7 +330,7 @@ are non-nil, then the result is non-nil."
 
 ;;;; Defined in files.el
 
-(compat-defvar mounted-file-systems
+(compat-defvar mounted-file-systems ;; <UNTESTED>
     (eval-when-compile
       (if (memq system-type '(windows-nt cygwin))
           "^//[^/]+/"
diff --git a/compat-27.el b/compat-27.el
index ef609a24e4..37af8fa08e 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -456,7 +456,7 @@ return nil."
   (cond ((not cond1) cond2)
         ((not cond2) cond1)))
 
-(compat-defvar regexp-unmatchable "\\`a\\`"
+(compat-defvar regexp-unmatchable "\\`a\\`" ;; <OK>
   "Standard regexp guaranteed not to match any string at all."
   :constant t)
 
diff --git a/compat-29.el b/compat-29.el
index 6220bc769d..15d8b8c4c2 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -536,7 +536,8 @@ to `default-directory', and the result will also be 
relative."
      (t
       parent))))
 
-(compat-defvar file-has-changed-p--hash-table (make-hash-table :test #'equal)
+(compat-defvar file-has-changed-p--hash-table ;; <UNTESTED>
+               (make-hash-table :test #'equal)
   "Internal variable used by `file-has-changed-p'.")
 
 (compat-defun file-has-changed-p (file &optional tag) ;; <UNTESTED>