mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(epg-wait-for-status): Check if there is no pending

Browse source 
status.
Reported by Ted Romer <ted@romerfamily.com>.
This commit is contained in:
Daiki Ueno 2008-09-27 06:59:43 +00:00
parent b082f79218
commit 47e4971262
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

4
lisp/epg.el
View file

@ -1168,7 +1168,9 @@ This function is for internal use only."
(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."