branch: externals/compat
commit dca7636e62f66241f5d026859e31a2d7c4590948
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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>
