From db80851a1f10d73f0b2c12299c3d77716bb8425a Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 28 Jul 2018 20:06:24 +0200 Subject: [PATCH] ; Instrumentation for shadowfile.el --- lisp/shadowfile.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 180d5026b6e..609086772a9 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -628,6 +628,10 @@ Consider them as regular expressions if third arg REGEXP is true." (defun shadow-add-to-todo () "If current buffer has shadows, add them to the list needing to be copied." + (message "shadow-add-to-todo 1 %s" (current-buffer)) + (message "shadow-add-to-todo 2 %s" (buffer-file-name)) + (message "shadow-add-to-todo 3 %s" (shadow-expand-file-name (buffer-file-name (current-buffer)))) + (message "shadow-add-to-todo 4 %s" (shadow-shadows-of (shadow-expand-file-name (buffer-file-name (current-buffer))))) (let ((shadows (shadow-shadows-of (shadow-expand-file-name (buffer-file-name (current-buffer)))))) -- 2.39.2