[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)))