1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

(pgg-gpg-process-region): Accept any remaining pending output coming

after the status change.
This commit is contained in:
Chong Yidong 2008-08-02 19:02:42 +00:00
parent 49ace1b162
commit bdf49c67a8

View File

@ -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)