Mercurial > emacs
changeset 80667:28c09613eb50
(pgg-gpg-process-region): Accept any remaining pending output coming
after the status change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 02 Aug 2008 19:03:39 +0000 |
| parents | 04b4f4b16944 |
| children | 60149da5cbfd |
| files | lisp/pgg-gpg.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pgg-gpg.el Sat Aug 02 19:03:22 2008 +0000 +++ b/lisp/pgg-gpg.el Sat Aug 02 19:03:39 2008 +0000 @@ -106,6 +106,9 @@ (process-send-eof process) (while (eq 'run (process-status process)) (accept-process-output process 5)) + ;; Accept any remaining pending output coming after the + ;; status change. + (accept-process-output process 5) (setq status (process-status process) exit-status (process-exit-status process)) (delete-process process)