diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-07-29 18:35:43 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-07-29 18:35:43 +0200 |
| commit | c92fd4e0e0ef3d132b8beeb5f4ecaf3a6451616e (patch) | |
| tree | c14951d061e60d040bb85fd986b2d5964830558d /lisp/shadowfile.el | |
| parent | b3f7e73fb76a366dc644ee2e6b9f4897c17d201d (diff) | |
| download | emacs-c92fd4e0e0ef3d132b8beeb5f4ecaf3a6451616e.tar.gz emacs-c92fd4e0e0ef3d132b8beeb5f4ecaf3a6451616e.tar.bz2 emacs-c92fd4e0e0ef3d132b8beeb5f4ecaf3a6451616e.zip | |
; Instrumentation for shadowfile.el
Diffstat (limited to 'lisp/shadowfile.el')
| -rw-r--r-- | lisp/shadowfile.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 |