Mercurial > hg > xemacs-beta

comparison lisp/process.el @ 3491:81975997fb1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-07-06 17:07:40 by james] If an output buffer is specified, use it. <m3lkrez7pi.fsf@jerrypc.cs.usu.edu>
author james
date Thu, 06 Jul 2006 17:07:41 +0000
parents 35aac3cef6af
children 466ad8ad5f13
comparison
equal deleted inserted replaced
3490:82ffe088ffc4 3491:81975997fb1a
357 (save-match-data 357 (save-match-data
358 (if (string-match "[ \t]*&[ \t]*$" command) 358 (if (string-match "[ \t]*&[ \t]*$" command)
359 ;; Command ending with ampersand means asynchronous. 359 ;; Command ending with ampersand means asynchronous.
360 (progn 360 (progn
361 (if-fboundp 'background 361 (if-fboundp 'background
362 (background (substring command 0 362 (background (substring command 0 (match-beginning 0))
363 (match-beginning 0))) 363 output-buffer)
364 (error 364 (error
365 'unimplemented 365 'unimplemented
366 "backgrounding a shell command requires package `background'"))) 366 "backgrounding a shell command requires package `background'")))
367 367
368 (shell-command-on-region (point) (point) command output-buffer))))) 368 (shell-command-on-region (point) (point) command output-buffer)))))