From 1d8fa1c9810dc78fe29449d865e9a5fb705284b9 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 11 Aug 2018 17:02:38 +0200 Subject: [PATCH] ; 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 ffa926f63e8..3482524900f 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 f93845da61e..222c3fc2028 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) -- 2.39.5