procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Add traces in shadowfile.el

Browse source
This commit is contained in:
Michael Albinus 2019-09-13 14:25:56 +02:00
parent 8806c196ab
commit 89a63c9186
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/shadowfile.el
View file

@ -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))))))