diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-07-30 11:11:32 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-07-30 11:11:32 +0200 |
| commit | 63ef79329935b790b9c8107125bce66e1f272c2e (patch) | |
| tree | 2886ebbf431b4a9c22189d58a649ec0f4c8b4caf /lisp/shadowfile.el | |
| parent | bd36ab560d5efcc5853e455c2312cf1a104e78ea (diff) | |
| download | emacs-63ef79329935b790b9c8107125bce66e1f272c2e.tar.gz emacs-63ef79329935b790b9c8107125bce66e1f272c2e.tar.bz2 emacs-63ef79329935b790b9c8107125bce66e1f272c2e.zip | |
; Instrumentation for shadowfile.el
Diffstat (limited to 'lisp/shadowfile.el')
| -rw-r--r-- | lisp/shadowfile.el | 8 |
1 files 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) |