X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fprocess.el;h=1fc438aea074ce1a8ad4331c4067a9fcdcdde4a8;hb=21a38f2a09ea33809fccf7bcb40ae530f6c707df;hp=c0602ded6365d078d4758508fc14d6507dfa6e9e;hpb=a1655b870904de973c366d85ebdc8adde4ef5e1e;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/process.el b/lisp/process.el
index c0602de..1fc438a 100644
--- a/lisp/process.el
+++ b/lisp/process.el
@@ -129,7 +129,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you
 	      (if buffer
 		  (set-marker (process-mark proc) (point buffer) buffer))
 	      (unwind-protect
-		  (progn
+		  (prog1
 		    (catch 'call-process-done
 		      (when (not discard)
 			(set-process-sentinel