Mercurial > hg > xemacs-beta

comparison lisp/process.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
127 ;(if (eq t stderr) buffer (list buffer errbuf)) 127 ;(if (eq t stderr) buffer (list buffer errbuf))
128 program args)) 128 program args))
129 (if buffer 129 (if buffer
130 (set-marker (process-mark proc) (point buffer) buffer)) 130 (set-marker (process-mark proc) (point buffer) buffer))
131 (unwind-protect 131 (unwind-protect
132 (progn 132 (prog1
133 (catch 'call-process-done 133 (catch 'call-process-done
134 (when (not discard) 134 (when (not discard)
135 (set-process-sentinel 135 (set-process-sentinel
136 proc 136 proc
137 #'(lambda (proc status) 137 #'(lambda (proc status)