summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2008-08-02 19:02:42 +0000
committerChong Yidong <cyd@stupidchicken.com>2008-08-02 19:02:42 +0000
commitbdf49c67a8d95af57c5930b88b5de71295848672 (patch)
treebbfdbe5697b6e2e6a158f9d26fb1d930b46cf8a4 /lisp
parent49ace1b16211f30e8a0fcde9ec59759dd6292ccb (diff)
downloademacs-bdf49c67a8d95af57c5930b88b5de71295848672.tar.gz
(pgg-gpg-process-region): Accept any remaining pending output coming
after the status change.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/pgg-gpg.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 5aaad1741d5..edeaebdeb81 100644
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -104,6 +104,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)