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

1 files changed, 3 insertions, 0 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 8057def5259..940bacde230 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5091,6 +5091,9 @@ Before and after saving the buffer, this function runs
                           (make-directory dir t)
                         (error "Canceled")))
                     (setq setmodes (basic-save-buffer-1)))))
+            ;; We are hunting a nasty error, which happens on hydra.
+            ;; Adding traces might help.
+            (if (getenv "BUG_32226") (message "BUG_32226"))
             ;; Now we have saved the current buffer.  Let's make sure
             ;; that buffer-file-coding-system is fixed to what
             ;; actually used for saving by binding it locally.