hiro/apheleia
1
0
Fork 0
mirror of https://github.com/vale981/apheleia synced 2025-03-04 17:11:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

[#10] Make write-region hack more robust

Browse source
This commit is contained in:
Radon Rosborough 2020-03-18 09:28:45 -06:00
parent d596a59355
commit 8112041d7e
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
apheleia.el
View file

@ -318,15 +318,19 @@ provided that its exit status is 0."
(defun apheleia--write-region-silently
(start end filename &optional
append _visit lockname mustbenew write-region)
append visit lockname mustbenew write-region)
"Like `write-region', but silent.
START, END, FILENAME, APPEND, VISIT, LOCKNAME, and MUSTBENEW are
as in `write-region'. WRITE-REGION is used instead of the actual
`write-region' function, if provided."
(funcall (or write-region #'write-region)
start end filename append 0 lockname mustbenew)
(set-buffer-modified-p nil)
(set-visited-file-modtime))
(when (or (eq visit t) (stringp visit))
(setq buffer-file-name (if (eq visit t)
filename
visit))
(set-visited-file-modtime)
(set-buffer-modified-p nil)))
(defun apheleia--write-file-silently (&optional filename)
"Write contents of current buffer into file FILENAME, silently.
@ -336,7 +340,7 @@ FILENAME defaults to value of variable `buffer-file-name'."
(lambda (start end filename &optional
append _visit lockname mustbenew)
(apheleia--write-region-silently
start end filename append 0 lockname mustbenew write-region)))
start end filename append t lockname mustbenew write-region)))
(message (symbol-function #'message))
((symbol-function #'message)
(lambda (format &rest args)