# HG changeset patch
# User michaels
# Date 1036944433 0
# Node ID 13305f7e85f011bbf529182dd5e02ae64d56593b
# Parent  adfbf1f7cc570822df635f0703e329f53135ffba
[xemacs-hg @ 2002-11-10 16:07:12 by michaels]
2002-11-03  Mike Sperber <mike@xemacs.org>

	* code-process.el (call-process-region): Preserve return value
	from `call-process.'

diff -r adfbf1f7cc57 -r 13305f7e85f0 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Nov 09 22:53:00 2002 +0000
+++ b/lisp/ChangeLog	Sun Nov 10 16:07:13 2002 +0000
@@ -1,3 +1,8 @@
+2002-11-03  Mike Sperber <mike@xemacs.org>
+
+	* code-process.el (call-process-region): Preserve return value
+	from `call-process.'
+
 2002-10-25  Scott Evans  <gse@antisleep.com>
 
 	* replace.el (operate-on-non-matching-lines)
diff -r adfbf1f7cc57 -r 13305f7e85f0 lisp/code-process.el
--- a/lisp/code-process.el	Sat Nov 09 22:53:00 2002 +0000
+++ b/lisp/code-process.el	Sun Nov 10 16:07:13 2002 +0000
@@ -173,11 +173,13 @@
   ;; of the region.
   (let ((s (and deletep (copy-marker start t)))
 	(e (and deletep (copy-marker end))))
-    (apply #'call-process program (list (current-buffer) start end)
-	   buffer displayp args)
-    ; If start and end were the same originally, s will be beyond e now
-    (if (and deletep (> e s))
-	(delete-region s e))))
+    (let ((retval
+	   (apply #'call-process program (list (current-buffer) start end)
+		  buffer displayp args)))
+      ;; If start and end were the same originally, s will be beyond e now
+      (if (and deletep (> e s))
+	  (delete-region s e))
+      retval)))
 
 (defun start-process (name buffer program &rest program-args)
   "Start a program in a subprocess.  Return the process object for it.