diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-08-11 17:02:38 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-08-11 17:03:41 +0200 |
| commit | 1d8fa1c9810dc78fe29449d865e9a5fb705284b9 (patch) | |
| tree | 055ae7c8a8d179a6aaffb1d28e74f30447ce7429 /lisp/files.el | |
| parent | d7b9737e69e44e90c45fab19255a0737c8f854ac (diff) | |
| download | emacs-1d8fa1c9810dc78fe29449d865e9a5fb705284b9.tar.gz emacs-1d8fa1c9810dc78fe29449d865e9a5fb705284b9.tar.bz2 emacs-1d8fa1c9810dc78fe29449d865e9a5fb705284b9.zip | |
; More instrumentation for shadowfile-tests.el and files.el
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |