From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 30 Jul 2018 09:11:32 +0000 (+0200)
Subject: ; Instrumentation for shadowfile.el
X-Git-Tag: emacs-27.0.90~4664^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63ef79329935b790b9c8107125bce66e1f272c2e;p=emacs.git

; Instrumentation for shadowfile.el
---

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)