mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 03:06:23 -08:00
Code Issues Projects Releases Wiki Activity

(epg-wait-for-status): Preserve existing 'error results.

Browse source
This commit is contained in:
Daiki Ueno 2009-09-23 00:22:08 +00:00
parent 0aa4f295f5
commit 7bda18ccca
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-09-23 Daiki Ueno <ueno@unixuser.org>
* epg.el (epg-wait-for-status): Preserve existing 'error results.
2009-09-22 Sam Steingold <sds@gnu.org>
* vc-hg.el (vc-hg-print-log): Fix shortlog arg passing.

5
lisp/epg.el
View file

@ -1187,7 +1187,10 @@ This function is for internal use only."
epg-pending-status-list)
(accept-process-output (epg-context-process context) 1))
(if epg-pending-status-list
(epg-context-set-result-for context 'error 'exit))))
(epg-context-set-result-for
context 'error
(cons (list 'exit)
(epg-context-result-for context 'error))))))
(defun epg-wait-for-completion (context)
"Wait until the `epg-gpg-program' process completes."