From: Michael Albinus Date: Sat, 28 Jul 2018 18:06:24 +0000 (+0200) Subject: ; Instrumentation for shadowfile.el X-Git-Tag: emacs-27.0.90~4664^2~12 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db80851a1f10d73f0b2c12299c3d77716bb8425a;p=emacs.git ; Instrumentation for shadowfile.el --- 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))))))