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

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

[nongnu] elpa/helm a6305b0554 2/2: Fix helm-locate-lib-get-summary askin


From: ELPA Syncer
Subject: [nongnu] elpa/helm a6305b0554 2/2: Fix helm-locate-lib-get-summary asking to kill process
Date: Tue, 7 Nov 2023 00:59:59 -0500 (EST)

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

    Fix helm-locate-lib-get-summary asking to kill process
    
    Remove filter in helm-locate-lib-get-summary
    and fix accept-process-output call.
    Simplify sentinel as well.
---
 helm-lib.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index d290d5cd3c..730d038387 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1764,19 +1764,17 @@ Directories expansion is not supported."
                         (shell-quote-argument file)
                         regexp)))
          output)
-    (set-process-filter proc nil)
     (set-process-sentinel
      proc (lambda (process event)
             (when (and (string= event "finished\n")
                        (process-buffer process))
-              (setq output
-                    (with-current-buffer (process-buffer process)
+              (with-current-buffer (process-buffer process)
+                (setq output
                       (replace-regexp-in-string
                        "\n" ""
-                       (buffer-string))))
-              (kill-buffer (process-buffer process)))))
-    (while (and proc (eq (process-status proc) 'run))
-      (accept-process-output proc))
+                       (buffer-string)))
+                (kill-buffer)))))
+    (while (accept-process-output proc 0.5 nil t))
     (if (string= output "")
         "Not documented"
       output)))



reply via email to

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