From: Chong Yidong Date: Sat, 2 Aug 2008 19:03:39 +0000 (+0000) Subject: (pgg-gpg-process-region): Accept any remaining pending output coming X-Git-Tag: emacs-pretest-22.2.90~55 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d96724002ca9a99865f0216d7162d6da7efe979;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 85a4e17d592..406909abe2b 100644 --- a/lisp/pgg-gpg.el +++ b/lisp/pgg-gpg.el @@ -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)