emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/elixir-mode 6c7f2b2b35 4/4: Merge pull request #498 from J


From: ELPA Syncer
Subject: [nongnu] elpa/elixir-mode 6c7f2b2b35 4/4: Merge pull request #498 from J3RN/delete-emacs-elixir-format-files
Date: Thu, 15 Jun 2023 07:00:35 -0400 (EDT)

branch: elpa/elixir-mode
commit 6c7f2b2b358919c6a3dd857c9de66d32ca6f9a8c
Merge: 9b4065d779 3d977d8f05
Author: Victor Oliveira Nascimento 
<376386+victorolinasc@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #498 from J3RN/delete-emacs-elixir-format-files
    
    Delete -emacs-elixir-format files when elixir-format is called 
uninteractively
---
 elixir-format.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/elixir-format.el b/elixir-format.el
index aec3866cf9..abd05992ca 100644
--- a/elixir-format.el
+++ b/elixir-format.el
@@ -114,11 +114,12 @@ files in subdirectories."
       (setq our-elixir-format-arguments (append our-elixir-format-arguments 
elixir-format-arguments)))
     (setq our-elixir-format-arguments (append our-elixir-format-arguments 
(list tmpfile)))
 
-    (if (zerop (elixir-format--from-mix-root (elixir-format--mix-executable) 
(elixir-format--errbuff) our-elixir-format-arguments))
-        (elixir-format--call-format-command tmpfile)
-      (elixir-format--failed-to-format called-interactively-p))
-    (delete-file tmpfile)
-    (kill-buffer (elixir-format--outbuff))))
+    (unwind-protect
+        (if (zerop (elixir-format--from-mix-root 
(elixir-format--mix-executable) (elixir-format--errbuff) 
our-elixir-format-arguments))
+            (elixir-format--call-format-command tmpfile)
+          (elixir-format--failed-to-format called-interactively-p))
+      (delete-file tmpfile)
+      (kill-buffer (elixir-format--outbuff)))))
 
 (defun elixir-format--call-format-command (tmpfile)
   (if (zerop (call-process-region (point-min) (point-max) "diff" nil 
(elixir-format--outbuff) nil "-n" "-" tmpfile))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]