From 63ef79329935b790b9c8107125bce66e1f272c2e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 30 Jul 2018 11:11:32 +0200 Subject: [PATCH] ; Instrumentation for shadowfile.el --- lisp/shadowfile.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 1e680770ece..86280c38adf 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -646,7 +646,8 @@ Consider them as regular expressions if third arg REGEXP is true." "Use \\[shadow-copy-files] to update shadows.")) (sit-for 1)) (message "shadow-add-to-todo 8") - (shadow-write-todo-file))) + (shadow-write-todo-file) + (message "shadow-add-to-todo 9"))) nil) ; Return nil for write-file-functions (defun shadow-remove-from-todo (pair) @@ -723,8 +724,9 @@ With non-nil argument also saves the buffer." (delete-region (point-min) (point-max)) (message "shadow-write-todo-file 4 %s" shadow-todo-buffer) (shadow-insert-var 'shadow-files-to-copy) - (message "shadow-write-todo-file 5 %s" shadow-todo-buffer) - (if save (shadow-save-todo-file)))) + (message "shadow-write-todo-file 5 %s" save) + (if save (shadow-save-todo-file)) + (message "shadow-write-todo-file 6 %s" save))) (defun shadow-save-todo-file () (message "shadow-save-todo-file 1 %s" shadow-todo-buffer) -- 2.39.2