Mercurial > hg > xemacs-beta

diff lisp/process.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
line wrap: on
line diff
--- a/lisp/process.el	Mon Aug 13 11:17:10 2007 +0200
+++ b/lisp/process.el	Mon Aug 13 11:18:11 2007 +0200
@@ -129,7 +129,7 @@
 	      (if buffer
 		  (set-marker (process-mark proc) (point buffer) buffer))
 	      (unwind-protect
-		  (progn
+		  (prog1
 		    (catch 'call-process-done
 		      (when (not discard)
 			(set-process-sentinel