[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 63ef793: ; Instrumentation for shadowfile.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 63ef793: ; Instrumentation for shadowfile.el |
Date: |
Mon, 30 Jul 2018 05:11:48 -0400 (EDT) |
branch: master
commit 63ef79329935b790b9c8107125bce66e1f272c2e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
; 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 1e68077..86280c3 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 63ef793: ; Instrumentation for shadowfile.el,
Michael Albinus <=