Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Instrumentation for shadowfile.el

Browse source
This commit is contained in:
Michael Albinus 2018-07-29 18:35:43 +02:00
parent b3f7e73fb7
commit c92fd4e0e0
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/shadowfile.el
View file

@ -636,12 +636,16 @@ Consider them as regular expressions if third arg REGEXP is true."
(shadow-expand-file-name
(buffer-file-name (current-buffer))))))
(when shadows
(message "shadow-add-to-todo 5 %s" shadows)
(message "shadow-add-to-todo 6 %s" shadow-files-to-copy)
(message "shadow-add-to-todo 7 %s" (shadow-union shadows shadow-files-to-copy))
(setq shadow-files-to-copy
(shadow-union shadows shadow-files-to-copy))
(when (not shadow-inhibit-message)
(message "%s" (substitute-command-keys
"Use \\[shadow-copy-files] to update shadows."))
(sit-for 1))
(message "shadow-add-to-todo 8")
(shadow-write-todo-file)))
nil) ; Return nil for write-file-functions