From 9d96724002ca9a99865f0216d7162d6da7efe979 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Aug 2008 19:03:39 +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 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) -- 2.39.5