[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1d8fa1c: ; More instrumentation for shadowfile-test
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 1d8fa1c: ; More instrumentation for shadowfile-tests.el and files.el |
Date: |
Sat, 11 Aug 2018 11:04:08 -0400 (EDT) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1d8fa1c: ; More instrumentation for shadowfile-tests.el and files.el,
Michael Albinus <=