# HG changeset patch
# User mta
# Date 1026688180 0
# Node ID 0288e82c84b3caea6c2c7ff7f0979a109e151770
# Parent  5fc81edb7a38a3481e4e75bdfa5d29ecc3cd5644
[xemacs-hg @ 2002-07-14 23:09:39 by mta]
code-process.el (call-process-region): Don't delete the process output if
start equals end

diff -r 5fc81edb7a38 -r 0288e82c84b3 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jul 14 23:00:16 2002 +0000
+++ b/lisp/ChangeLog	Sun Jul 14 23:09:40 2002 +0000
@@ -1,3 +1,8 @@
+2002-07-01  Mike Alexander  <mta@arbortext.com>
+
+	* code-process.el (call-process-region): Don't delete the process
+	output if start equals end
+
 2002-07-14  Mike Alexander  <mta@arbortext.com>
 
 	* process.el (shell-command-on-region): Don't delete the region
diff -r 5fc81edb7a38 -r 0288e82c84b3 lisp/code-process.el
--- a/lisp/code-process.el	Sun Jul 14 23:00:16 2002 +0000
+++ b/lisp/code-process.el	Sun Jul 14 23:09:40 2002 +0000
@@ -175,7 +175,9 @@
 	(e (and deletep (copy-marker end))))
     (apply #'call-process program (list (current-buffer) start end)
 	   buffer displayp args)
-    (if deletep (delete-region s e))))
+    ; If start and end were the same originally, s will be beyond e now
+    (if (and deletep (> e s))
+	(delete-region s e))))
 
 (defun start-process (name buffer program &rest program-args)
   "Start a program in a subprocess.  Return the process object for it.