From 21a7054f931019aa70064828eab63f26e405d670 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 07:01:35 +0000 Subject: [PATCH 1/1] (start-process): New function. (binary-start-process-shell-command): New function. --- raw-io.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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) -- 1.7.10.4