From de22b81de3405aeb7b341b80531e5627ee2a1277 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sun, 3 May 2009 22:27:40 +0000 Subject: [PATCH] Fix timing problem of Bug#2412. (epg-wait-for-completion): Sleep after the process exits, to allow process-filter to run (Bug#2412). --- lisp/ChangeLog | 3 +++ lisp/epg.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 791bd01f137..aef6b360d23 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-05-03 Daiki Ueno + * epg.el (epg-wait-for-completion): Sleep after the process + exits, to allow process-filter to run (Bug#2412). + * epa.el (epa--read-signature-type): Fix typo. 2009-05-02 Glenn Morris diff --git a/lisp/epg.el b/lisp/epg.el index e96258fe909..3c80ef9db77 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -1175,7 +1175,8 @@ This function is for internal use only." (defun epg-wait-for-completion (context) "Wait until the `epg-gpg-program' process completes." (while (eq (process-status (epg-context-process context)) 'run) - (accept-process-output (epg-context-process context) 1))) + (accept-process-output (epg-context-process context) 1)) + (sleep-for 0.1)) (defun epg-reset (context) "Reset the CONTEXT." -- 2.39.5