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

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

[nongnu] elpa/rust-mode 5aeae14 407/486: rust-format-diff-buffer: use st


From: ELPA Syncer
Subject: [nongnu] elpa/rust-mode 5aeae14 407/486: rust-format-diff-buffer: use start-process rather than make-process.
Date: Sat, 7 Aug 2021 09:26:03 -0400 (EDT)

branch: elpa/rust-mode
commit 5aeae14343fe325c03f097570721c76b57086856
Author: Nathan Moreau <nathan.moreau@m4x.org>
Commit: Nathan Moreau <nathan.moreau@m4x.org>

    rust-format-diff-buffer: use start-process rather than make-process.
---
 rust-mode.el | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/rust-mode.el b/rust-mode.el
index e71207c..210b433 100644
--- a/rust-mode.el
+++ b/rust-mode.el
@@ -1457,19 +1457,23 @@ This is written mainly to be used as 
`end-of-defun-function' for Rust."
         (min (point) max-pos)))))
 
 (defun rust-format-diff-buffer ()
-  "Show diff to current buffer from rustfmt."
+  "Show diff to current buffer from rustfmt.
+
+Return the created process."
   (interactive)
   (unless (executable-find rust-rustfmt-bin)
     (error "Could not locate executable \%s\"" rust-rustfmt-bin))
-  (make-process
-   :name "rustfmt-diff"
-   :command (list rust-rustfmt-bin "--check" (buffer-file-name))
-   :buffer
-   (with-current-buffer
-       (get-buffer-create "*rustfmt-diff*")
-     (erase-buffer)
-     (current-buffer))
-   :sentinel 'rust-format-diff-buffer-sentinel))
+  (let ((proc
+         (start-process "rustfmt-diff"
+                        (with-current-buffer
+                            (get-buffer-create "*rustfmt-diff*")
+                          (erase-buffer)
+                          (current-buffer))
+                        rust-rustfmt-bin
+                        "--check"
+                        (buffer-file-name))))
+    (set-process-sentinel proc 'rust-format-diff-buffer-sentinel)
+    proc))
 
 (defun rust-format-diff-buffer-sentinel (process _e)
   (when (eq 'exit (process-status process))



reply via email to

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