From: Chong Yidong Date: Sat, 2 Aug 2008 19:02:42 +0000 (+0000) Subject: (pgg-gpg-process-region): Accept any remaining pending output coming X-Git-Tag: emacs-pretest-23.0.90~3689 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdf49c67a8d95af57c5930b88b5de71295848672;p=emacs.git (pgg-gpg-process-region): Accept any remaining pending output coming after the status change. --- 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)