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

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

[nongnu] elpa/helm 3041953be5 1/4: Remove unuseful filter-process


From: ELPA Syncer
Subject: [nongnu] elpa/helm 3041953be5 1/4: Remove unuseful filter-process
Date: Sat, 16 Sep 2023 13:00:07 -0400 (EDT)

branch: elpa/helm
commit 3041953be59560e6ac8604a7b5f238a44eca4cc5
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Remove unuseful filter-process
---
 helm-lib.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index b59a362385..5de137dfcb 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1738,15 +1738,15 @@ Directories expansion is not supported."
                         (shell-quote-argument file)
                         regexp)))
          output)
-    (set-process-filter proc nil)
-    (set-process-sentinel proc (lambda (process event)
-                                 (when (string= event "finished\n")
-                                   (setq output
-                                         (with-current-buffer (process-buffer 
process)
-                                           (replace-regexp-in-string
-                                            "\n" ""
-                                            (buffer-string)))))
-                                 (kill-buffer (process-buffer process))))
+    (set-process-sentinel
+     proc (lambda (process event)
+            (when (string= event "finished\n")
+              (setq output
+                    (with-current-buffer (process-buffer process)
+                      (replace-regexp-in-string
+                       "\n" ""
+                       (buffer-string)))))
+            (kill-buffer (process-buffer process))))
     (while (and proc (eq (process-status proc) 'run))
       (accept-process-output proc))
     (if (string= output "")



reply via email to

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