From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 29 Jul 2018 16:35:43 +0000 (+0200)
Subject: ; Instrumentation for shadowfile.el
X-Git-Tag: emacs-27.0.90~4664^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c92fd4e0e0ef3d132b8beeb5f4ecaf3a6451616e;p=emacs.git

; Instrumentation for shadowfile.el
---

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 609086772a9..dc7c1b8c1a9 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -636,12 +636,16 @@ Consider them as regular expressions if third arg REGEXP is true."
 		  (shadow-expand-file-name
 		   (buffer-file-name (current-buffer))))))
     (when shadows
+      (message "shadow-add-to-todo 5 %s" shadows)
+      (message "shadow-add-to-todo 6 %s" shadow-files-to-copy)
+      (message "shadow-add-to-todo 7 %s" (shadow-union shadows shadow-files-to-copy))
       (setq shadow-files-to-copy
 	    (shadow-union shadows shadow-files-to-copy))
       (when (not shadow-inhibit-message)
 	(message "%s" (substitute-command-keys
 		       "Use \\[shadow-copy-files] to update shadows."))
 	(sit-for 1))
+      (message "shadow-add-to-todo 8")
       (shadow-write-todo-file)))
   nil)     ; Return nil for write-file-functions