From 0c0085f246bcf9ff4beb9379c7012d32212870a7 Mon Sep 17 00:00:00 2001 From: Radon Rosborough Date: Wed, 25 Mar 2020 11:57:34 -0600 Subject: [#12] Try even harder to avoid formatting loop --- apheleia.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/apheleia.el b/apheleia.el index 9db4d25..9c34797 100644 --- a/apheleia.el +++ b/apheleia.el @@ -323,11 +323,8 @@ provided that its exit status is 0." 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." - ;; Avoid infinite loop. - (let ((after-save-hook - (remq #'apheleia--format-after-save after-save-hook))) - (funcall (or write-region #'write-region) - start end filename append 0 lockname mustbenew)) + (funcall (or write-region #'write-region) + start end filename append 0 lockname mustbenew) (when (or (eq visit t) (stringp visit)) (setq buffer-file-name (if (eq visit t) filename @@ -350,7 +347,10 @@ mark the buffer as visiting FILENAME." (lambda (format &rest args) (unless (equal format "Saving file %s...") (apply message format args))))) - (write-file (or filename buffer-file-name)))) + ;; Avoid infinite loop. + (let ((after-save-hook + (remq #'apheleia--format-after-save after-save-hook))) + (write-file (or filename buffer-file-name))))) (defun apheleia--create-rcs-patch (old-buffer new-buffer callback) "Generate RCS patch from text in OLD-BUFFER to text in NEW-BUFFER. -- cgit v1.0