[Emacs-diffs] emacs/lisp ChangeLog epg.el

[Daiki Ueno]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Daiki Ueno <ueno>       09/05/03 22:27:43

Modified files:
        lisp           : ChangeLog epg.el 

Log message:
        Fix timing problem of Bug#2412.
        
        (epg-wait-for-completion): Sleep after the process
        exits, to allow process-filter to run (Bug#2412).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15625&r2=1.15626
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/epg.el?cvsroot=emacs&r1=1.10&r2=1.11

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15625
retrieving revision 1.15626
diff -u -b -r1.15625 -r1.15626
--- ChangeLog   3 May 2009 05:46:09 -0000       1.15625
+++ ChangeLog   3 May 2009 22:27:40 -0000       1.15626
@@ -1,5 +1,8 @@
 2009-05-03  Daiki Ueno  <address@hidden>
 
+       * 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  <address@hidden>

Index: epg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/epg.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- epg.el      5 Jan 2009 03:19:06 -0000       1.10
+++ epg.el      3 May 2009 22:27:43 -0000       1.11
@@ -1175,7 +1175,8 @@
 (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."