From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 11 Aug 2018 15:02:38 +0000 (+0200)
Subject: ; More instrumentation for shadowfile-tests.el and files.el
X-Git-Tag: emacs-27.0.90~4602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d8fa1c9810dc78fe29449d865e9a5fb705284b9;p=emacs.git
; More instrumentation for shadowfile-tests.el and files.el
---
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)