diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2019-09-13 14:25:56 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2019-09-13 14:25:56 +0200 |
commit | 89a63c9186da693a81773eeb65bb8b17a1721d5d (patch) | |
tree | 367081851d0572d686aa676636e9b1c68ab86ce0 /lisp/shadowfile.el | |
parent | 8806c196ab12a0805c5afce6ccc5a36e4911a6a3 (diff) | |
download | emacs-89a63c9186da693a81773eeb65bb8b17a1721d5d.tar.gz |
; Add traces in shadowfile.el
Diffstat (limited to 'lisp/shadowfile.el')
-rw-r--r-- | lisp/shadowfile.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 2778e583674..3bee4115a68 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -207,7 +207,7 @@ PREFIX." ;;; I use the term `site' to refer to a string which may be the ;;; cluster identification "/name:", a remote identification -;;; "/method:user@host:", or "/system-name:' (the value of +;;; "/method:user@host:", or "/system-name:" (the value of ;;; `shadow-system-name') for the location of local files. All ;;; user-level commands should accept either. @@ -607,6 +607,11 @@ and to are absolute file names." canonical-file shadow-literal-groups nil) (shadow-shadows-of-1 canonical-file shadow-regexp-groups t))))) + (when shadow-debug + (message + "shadow-shadows-of: %s %s %s %s %s" + file (shadow-local-file file) shadow-homedir + absolute-file canonical-file)) (set (intern file shadow-hashtable) shadows)))) (defun shadow-shadows-of-1 (file groups regexp) @@ -621,6 +626,10 @@ Consider them as regular expressions if third arg REGEXP is true." (let ((realname (tramp-file-name-localname (shadow-parse-name file)))) + (when shadow-debug + (message + "shadow-shadows-of: %s %s %s" + file (shadow-parse-name file) realname)) (mapcar (function (lambda (x) @@ -631,6 +640,11 @@ 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." + (when shadow-debug + (message + "shadow-add-to-todo: %s %s" + (buffer-file-name (current-buffer)) + (shadow-expand-file-name (buffer-file-name (current-buffer))))) (let ((shadows (shadow-shadows-of (shadow-expand-file-name (buffer-file-name (current-buffer)))))) |