[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9905c92: ; More instrumentation for files.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 9905c92: ; More instrumentation for files.el |
Date: |
Fri, 10 Aug 2018 03:53:55 -0400 (EDT) |
branch: master
commit 9905c927b0c3bea0ae6142b10c83841f077cab67
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
; More instrumentation for files.el
---
lisp/files.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/lisp/files.el b/lisp/files.el
index 940bacd..7f193a7 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5078,8 +5078,15 @@ Before and after saving the buffer, this function runs
(set-visited-file-name filename)))
;; Support VC version backups.
(vc-before-save)
+ ;; We are hunting a nasty error, which happens on hydra.
+ ;; Adding traces might help.
+ (if (getenv "BUG_32226") (message "BUG_32226"))
(or (run-hook-with-args-until-success 'local-write-file-hooks)
(run-hook-with-args-until-success 'write-file-functions)
+ (progn
+ (if (getenv "BUG_32226")
+ (message "BUG_32226 %s" buffer-file-name))
+ nil)
;; If a hook returned t, file is already "written".
;; Otherwise, write it the usual way now.
(let ((dir (file-name-directory
@@ -5091,9 +5098,6 @@ 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9905c92: ; More instrumentation for files.el,
Michael Albinus <=