; More instrumentation for shadowfile-tests.el and files.el

diff --git a/lisp/files.el b/lisp/files.el
index ffa926f63e8ef306503d5c44fb769a48fbfc0a57..3482524900fc876d95f004fbf4adc32cd9d1ac4f 100644 (file)
--- 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 f93845da61ed77e4693ece720b0d21d0051970ab..222c3fc2028856b2df1382a6ba39b6ce84a76c18 100644 (file)
--- 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)