mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

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

Browse Source 
* test/lisp/shadowfile-tests.el (shadow-test06-literal-groups)
(shadow-test07-regexp-groups, shadow-test08-shadow-todo)
(shadow-test09-shadow-copy-files): Use `set-visited-file-name'
instead of setting the value in `buffer-file-name' directly.
(Bug#32226)
This commit is contained in:
Michael Albinus 2018-08-10 13:34:10 +02:00
parent 7fbf124796
commit 243b68f73f
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/files.el
View File

@ -5091,13 +5091,16 @@ Before and after saving the buffer, this function runs
;; Otherwise, write it the usual way now.
(let ((dir (file-name-directory
(expand-file-name buffer-file-name))))
(if (getenv "BUG_32226") (message "BUG_32226 %s" dir))
(unless (file-exists-p dir)
(if (y-or-n-p
(format-message
"Directory `%s' does not exist; create? " dir))
(make-directory dir t)
(error "Canceled")))
(if (getenv "BUG_32226") (message "BUG_32226 %s" dir))
(setq setmodes (basic-save-buffer-1)))))
(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.

3
test/lisp/shadowfile-tests.el
View File

@ -724,6 +724,9 @@ guaranteed by the originator of a cluster definition."
(dolist (elt (all-completions "shadow-" 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)
(trace-function-background 'basic-save-buffer-2)
(dolist (elt write-file-functions)
(trace-function-background elt))
;; Cleanup.