From bdf49c67a8d95af57c5930b88b5de71295848672 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Aug 2008 19:02:42 +0000 Subject: [PATCH] (pgg-gpg-process-region): Accept any remaining pending output coming after the status change. --- lisp/pgg-gpg.el | 3 +++ 1 file changed, 3 insertions(+) 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)