diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2019-09-03 13:55:42 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2019-09-03 13:55:42 +0200 |
commit | ea5d591f29ba2e9e5d31da7ad450b958a4c9ca03 (patch) | |
tree | b93ed8c3561205e249153eb24213cb71dea74267 /lisp/shadowfile.el | |
parent | fda015e7b82a1ec3d1cb075799a67772744ce6c1 (diff) | |
download | emacs-ea5d591f29ba2e9e5d31da7ad450b958a4c9ca03.tar.gz |
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.
Diffstat (limited to 'lisp/shadowfile.el')
-rw-r--r-- | lisp/shadowfile.el | 5 |
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)) |