projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
XEmacs 21.2.34 "Molpe".
[chise/xemacs-chise.git.1] / lisp / process.el
diff --git a/lisp/process.el b/lisp/process.el
index c0602de..1fc438a 100644 (file)
--- 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