From: tomo <tomo>
Date: Tue, 19 Dec 2000 07:01:35 +0000 (+0000)
Subject: (start-process): New function.
X-Git-Tag: flim-1_14_0~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21a7054f931019aa70064828eab63f26e405d670;p=elisp%2Fflim.git

(start-process): New function.
(binary-start-process-shell-command): New function.
---

diff --git a/raw-io.el b/raw-io.el
index 8718b9a..1ccabde 100644
--- a/raw-io.el
+++ b/raw-io.el
@@ -74,6 +74,18 @@ This function ensures that none of these modifications will take place."
 	(coding-system-for-write 'binary))
     (apply #'open-network-stream name buffer host service options)))
 
+(defun binary-start-process (name buffer program &rest program-args)
+  "Like `start-process', q.v., but don't code conversion."
+  (let ((coding-system-for-read 'binary)
+	(coding-system-for-write 'binary))
+    (apply '#start-process name buffer program program-args)))
+
+(defun binary-start-process-shell-command (name buffer &rest args)
+  "Like `start-process-shell-command', q.v., but don't code conversion."
+  (let ((coding-system-for-read 'binary)
+	(coding-system-for-write 'binary))
+    (apply '#start-process-shell-command name buffer args)))
+
 
 (defun raw-text-insert-file-contents (filename
 				      &optional visit beg end replace)