Mercurial > hg > xemacs-beta
changeset 1090:13305f7e85f0
[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.'
| author | michaels |
|---|---|
| date | Sun, 10 Nov 2002 16:07:13 +0000 |
| parents | adfbf1f7cc57 |
| children | 4496df1776b7 |
| files | lisp/ChangeLog lisp/code-process.el |
| diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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.