Mercurial > hg > xemacs-beta
diff lisp/code-process.el @ 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 | 0288e82c84b3 |
| children | f32f3ddaf534 |
line wrap: on
line diff
--- 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.