Mercurial > hg > xemacs-beta

comparison lisp/process.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 38db05db9cb5
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details. 20 ;; General Public License for more details.
21 21
22 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the 23 ;; along with XEmacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, 59 Temple Place - Suite 330, 24 ;; Free Software Foundation, 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
26 26
27 ;;; Synched up with: FSF 19.30. 27 ;;; Synched up with: FSF 19.30.
28 28
256 (interactive (list (read-shell-command "Shell command: ") 256 (interactive (list (read-shell-command "Shell command: ")
257 current-prefix-arg)) 257 current-prefix-arg))
258 (if (and output-buffer 258 (if (and output-buffer
259 (not (or (bufferp output-buffer) (stringp output-buffer)))) 259 (not (or (bufferp output-buffer) (stringp output-buffer))))
260 (progn (barf-if-buffer-read-only) 260 (progn (barf-if-buffer-read-only)
261 (push-mark) 261 (push-mark nil (not (interactive-p)))
262 ;; We do not use -f for csh; we will not support broken use of 262 ;; We do not use -f for csh; we will not support broken use of
263 ;; .cshrcs. Even the BSD csh manual says to use 263 ;; .cshrcs. Even the BSD csh manual says to use
264 ;; "if ($?prompt) exit" before things which are not useful 264 ;; "if ($?prompt) exit" before things which are not useful
265 ;; non-interactively. Besides, if someone wants their other 265 ;; non-interactively. Besides, if someone wants their other
266 ;; aliases for shell commands then they can still have them. 266 ;; aliases for shell commands then they can still have them.
403 Remaining arguments are strings to give program as arguments." 403 Remaining arguments are strings to give program as arguments."
404 (apply 'start-process-internal name buffer program program-args)) 404 (apply 'start-process-internal name buffer program program-args))
405 405
406 (defun open-network-stream (name buffer host service &optional protocol) 406 (defun open-network-stream (name buffer host service &optional protocol)
407 "Open a TCP connection for a service to a host. 407 "Open a TCP connection for a service to a host.
408 Returns a subprocess-object to represent the connection. 408 Returns a process object to represent the connection.
409 Input and output work as for subprocesses; `delete-process' closes it. 409 Input and output work as for subprocesses; `delete-process' closes it.
410 Args are NAME BUFFER HOST SERVICE. 410 Args are NAME BUFFER HOST SERVICE.
411 NAME is name for process. It is modified if necessary to make it unique. 411 NAME is name for process. It is modified if necessary to make it unique.
412 BUFFER is the buffer (or buffer-name) to associate with the process. 412 BUFFER is the buffer (or buffer-name) to associate with the process.
413 Process output goes at end of that buffer, unless you specify 413 Process output goes at end of that buffer, unless you specify