[Emacs-diffs] master 1d8fa1c: ; More instrumentation for shadowfile-tests.el and files.el

[Michael Albinus]

branch: master
commit 1d8fa1c9810dc78fe29449d865e9a5fb705284b9
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; More instrumentation for shadowfile-tests.el and files.el
---
 lisp/files.el                 | 4 ++--
 test/lisp/shadowfile-tests.el | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/files.el b/lisp/files.el
index ffa926f..3482524 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5234,7 +5234,7 @@ Before and after saving the buffer, this function runs
                                                   (nth 1 setmodes)))
                 (set-file-modes buffer-file-name
                                 (logior (car setmodes) 128))))))
-      (if (getenv "BUG_32226") (message "BUG_32226 %s" 8))
+      (if (getenv "BUG_32226") (message "BUG_32226 %s %s %s" 8 
buffer-file-name buffer-file-truename))
        (let (success)
          (unwind-protect
              (progn
@@ -5248,7 +5248,7 @@ Before and after saving the buffer, this function runs
                (setq success t))
            ;; If we get an error writing the new file, and we made
            ;; the backup by renaming, undo the backing-up.
-            (if (getenv "BUG_32226") (message "BUG_32226 %s" 10))
+            (if (getenv "BUG_32226") (message "BUG_32226 %s %s %s" 10 (nth 2 
setmodes) buffer-file-name))
            (and setmodes (not success)
                 (progn
                   (rename-file (nth 2 setmodes) buffer-file-name t)
diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el
index f93845d..222c3fc 100644
--- a/test/lisp/shadowfile-tests.el
+++ b/test/lisp/shadowfile-tests.el
@@ -723,6 +723,8 @@ guaranteed by the originator of a cluster definition."
           (require 'trace)
           (dolist (elt (all-completions "shadow-" obarray 'functionp))
             (trace-function-background (intern elt)))
+          (dolist (elt (all-completions "tramp-" obarray 'functionp))
+            (trace-function-background (intern elt)))
           (trace-function-background 'save-buffer)
           (trace-function-background 'basic-save-buffer)
           (trace-function-background 'basic-save-buffer-1)