[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/epg.el,v
From: |
Daiki Ueno |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/epg.el,v |
Date: |
Sat, 27 Sep 2008 06:59:47 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Daiki Ueno <ueno> 08/09/27 06:59:46
Index: epg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/epg.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- epg.el 16 Sep 2008 02:07:05 -0000 1.8
+++ epg.el 27 Sep 2008 06:59:43 -0000 1.9
@@ -1168,7 +1168,9 @@
(setq epg-pending-status-list status-list)
(while (and (eq (process-status (epg-context-process context)) 'run)
epg-pending-status-list)
- (accept-process-output (epg-context-process context) 1))))
+ (accept-process-output (epg-context-process context) 1))
+ (if epg-pending-status-list
+ (epg-context-set-result-for context 'error 'exit))))
(defun epg-wait-for-completion (context)
"Wait until the `epg-gpg-program' process completes."