Mercurial > hg > xemacs-beta
changeset 922:0288e82c84b3
[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
| author | mta |
|---|---|
| date | Sun, 14 Jul 2002 23:09:40 +0000 |
| parents | 5fc81edb7a38 |
| children | 3b122a8e1d51 |
| files | lisp/ChangeLog lisp/code-process.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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.