Mercurial > emacs
changeset 98365:e68fa8f78050
(epg-wait-for-status): Check if there is no pending
status.
Reported by Ted Romer <ted@romerfamily.com>.
| author | Daiki Ueno <ueno@unixuser.org> |
|---|---|
| date | Sat, 27 Sep 2008 06:59:43 +0000 |
| parents | 229b95df8c83 |
| children | ef06f769799e |
| files | lisp/ChangeLog lisp/epg.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 26 17:42:20 2008 +0000 +++ b/lisp/ChangeLog Sat Sep 27 06:59:43 2008 +0000 @@ -1,3 +1,9 @@ +2008-09-27 Daiki Ueno <ueno@unixuser.org> + + * epg.el (epg-wait-for-status): Check if there is no pending + status. + Reported by Ted Romer <ted@romerfamily.com>. + 2008-09-26 Dan Nicolaescu <dann@ics.uci.edu> * startup.el (command-line): Turn on menu-bar-mode and
--- a/lisp/epg.el Fri Sep 26 17:42:20 2008 +0000 +++ b/lisp/epg.el Sat Sep 27 06:59:43 2008 +0000 @@ -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."