Mercurial > hg > xemacs-beta

comparison lisp/prim/process.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 131b0175ea99
children 59463afc5666
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
158 (if (string-match "[ \t]*&[ \t]*$" command) 158 (if (string-match "[ \t]*&[ \t]*$" command)
159 ;; Command ending with ampersand means asynchronous. 159 ;; Command ending with ampersand means asynchronous.
160 (progn 160 (progn
161 (require 'background) ; whizzy comint background code 161 (require 'background) ; whizzy comint background code
162 (background (substring command 0 (match-beginning 0)))) 162 (background (substring command 0 (match-beginning 0))))
163 (shell-command-on-region (point) (point) command nil))))) 163 (shell-command-on-region (point) (point) command output-buffer)))))
164 164
165 ;; We have a sentinel to prevent insertion of a termination message 165 ;; We have a sentinel to prevent insertion of a termination message
166 ;; in the buffer itself. 166 ;; in the buffer itself.
167 (defun shell-command-sentinel (process signal) 167 (defun shell-command-sentinel (process signal)
168 (if (memq (process-status process) '(exit signal)) 168 (if (memq (process-status process) '(exit signal))