diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 11:40:18 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 11:45:21 +0100 |
| commit | 6ffb3be674ee6b66641c252ec80bbb7ecd6ad67b (patch) | |
| tree | 3469cab9fc3bc13ddeae4513eca3bf2629fe9672 /compat-27.el | |
| parent | cd9e563ea036595b3def00f83d2aa9d4a12b7c06 (diff) | |
Add tests for make-empty-file and dolist-with-progress-reporter
Diffstat (limited to 'compat-27.el')
| -rw-r--r-- | compat-27.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compat-27.el b/compat-27.el index 03b228f..9a74a4d 100644 --- a/compat-27.el +++ b/compat-27.el @@ -207,7 +207,7 @@ CONDITION can also be a list of error conditions." (declare (debug t) (indent 1)) `(condition-case nil (progn ,@body) (,condition nil))) -(compat-defmacro dolist-with-progress-reporter (spec reporter-or-message &rest body) ;; <UNTESTED> +(compat-defmacro dolist-with-progress-reporter (spec reporter-or-message &rest body) ;; <compat-tests:dolist-with-progress-reporter> "Loop over a list and report progress in the echo area. Evaluate BODY with VAR bound to each car from LIST, in turn. Then evaluate RESULT to get return value, default nil. @@ -462,7 +462,7 @@ REMOTE is non-nil, search on the remote host indicated by (when (stringp res) (file-local-name res))) (executable-find command))) -(compat-defun make-empty-file (filename &optional parents) ;; <UNTESTED> +(compat-defun make-empty-file (filename &optional parents) ;; <compat-tests:make-empty-file> "Create an empty file FILENAME. Optional arg PARENTS, if non-nil then creates parent dirs as needed." (when (and (file-exists-p filename) (null parents)) |