From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 8 Aug 2018 14:22:23 +0000 (+0200)
Subject: ; More instrumentation for shadowfile-tests.el
X-Git-Tag: emacs-27.0.90~4628
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c85ff212dcd0817b833032650f1d52850e8a3c2e;p=emacs.git

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

diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el
index 085ab476ffe..0335caa5168 100644
--- a/test/lisp/shadowfile-tests.el
+++ b/test/lisp/shadowfile-tests.el
@@ -720,6 +720,10 @@ guaranteed by the originator of a cluster definition."
     (unwind-protect
         (condition-case err
         (progn
+          (require 'trace)
+          (dolist (elt (all-completions "shadow-" obarray 'functionp))
+            (trace-function-background (intern elt)))
+          (trace-function-background 'save-buffer)
 	  ;; Cleanup.
 	  (when (file-exists-p shadow-info-file)
 	    (delete-file shadow-info-file))
@@ -817,6 +821,9 @@ guaranteed by the originator of a cluster definition."
             shadow-files-to-copy)))
         (error (message "Error: %s" err) (signal (car err) (cdr err))))
 
+      (untrace-all)
+      (message "%s" (with-current-buffer trace-buffer (buffer-string)))
+
       ;; Cleanup.
       (when (file-exists-p shadow-info-file)
 	(delete-file shadow-info-file))