diff options
| author | Michael Albinus | 2018-07-28 20:06:24 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-07-28 20:07:36 +0200 |
| commit | db80851a1f10d73f0b2c12299c3d77716bb8425a (patch) | |
| tree | f56da3906c9b8b81bb72b371d1cb66cc9e90cb05 | |
| parent | 3f0709b328346d3729b2eab710fb5211a122e74f (diff) | |
| download | emacs-db80851a1f10d73f0b2c12299c3d77716bb8425a.tar.gz emacs-db80851a1f10d73f0b2c12299c3d77716bb8425a.zip | |
; Instrumentation for shadowfile.el
| -rw-r--r-- | lisp/shadowfile.el | 4 |
1 files changed, 4 insertions, 0 deletions
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." | |||
| 628 | 628 | ||
| 629 | (defun shadow-add-to-todo () | 629 | (defun shadow-add-to-todo () |
| 630 | "If current buffer has shadows, add them to the list needing to be copied." | 630 | "If current buffer has shadows, add them to the list needing to be copied." |
| 631 | (message "shadow-add-to-todo 1 %s" (current-buffer)) | ||
| 632 | (message "shadow-add-to-todo 2 %s" (buffer-file-name)) | ||
| 633 | (message "shadow-add-to-todo 3 %s" (shadow-expand-file-name (buffer-file-name (current-buffer)))) | ||
| 634 | (message "shadow-add-to-todo 4 %s" (shadow-shadows-of (shadow-expand-file-name (buffer-file-name (current-buffer))))) | ||
| 631 | (let ((shadows (shadow-shadows-of | 635 | (let ((shadows (shadow-shadows-of |
| 632 | (shadow-expand-file-name | 636 | (shadow-expand-file-name |
| 633 | (buffer-file-name (current-buffer)))))) | 637 | (buffer-file-name (current-buffer)))))) |