Fix Bug#37202

* lisp/shadowfile.el (shadow-debug): New defvar.
(shadow-read-files): Suppress error if there's no TODO file.

* test/lisp/shadowfile-tests.el (shadow-debug): Set to nil.
(shadow--tests-cleanup): New defun.  Apply to all tests.  (Bug#37202)
(shadow-test06-literal-groups): Cleanup temp buffer.
(shadow-test08-shadow-todo): Add debug messages.
(top): Cleanup initially.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 07e78506654..4566ea19f8d 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -165,6 +165,9 @@ created by `shadow-define-regexp-group'.")
 (defvar shadow-info-buffer nil)         ; buf visiting shadow-info-file
 (defvar shadow-todo-buffer nil)         ; buf visiting shadow-todo-file
 
+(defvar shadow-debug nil
+  "Use for debug messages.")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Syntactic sugar; General list and string manipulation
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -673,7 +676,7 @@ Return t unless files were locked; then return nil."
         (eval-buffer))
       (when shadow-todo-file
         (set-buffer (setq shadow-todo-buffer
-                          (find-file-noselect shadow-todo-file)))
+                          (find-file-noselect shadow-todo-file 'nowarn)))
         (when (and (not (buffer-modified-p))
                    (file-newer-than-file-p (make-auto-save-file-name)
                                            shadow-todo-file))