changeset 97237:38f9573be097

(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:02:42 +0000
parents 807bc36f71d9
children d690bee90711
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:02:30 2008 +0000
+++ b/lisp/pgg-gpg.el	Sat Aug 02 19:02:42 2008 +0000
@@ -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)