X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fprocess.el;h=4605e98dc77f66ea052d1ce5aee0d66825ece77b;hb=762383636a99307282c2d93d26c35c046ec24da1;hp=1fc438aea074ce1a8ad4331c4067a9fcdcdde4a8;hpb=76759ab036458c54499a454399e19602b8ae6ce3;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/process.el b/lisp/process.el
index 1fc438a..4605e98 100644
--- a/lisp/process.el
+++ b/lisp/process.el
@@ -105,8 +105,10 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you
 	      (setq infile (expand-file-name infile))
 	      (setq inbuf (generate-new-buffer "*call-process*"))
 	      (with-current-buffer inbuf
-		(insert-file-contents-internal infile nil nil nil nil
-					       coding-system-for-read)))
+               ;; Make sure this works with jka-compr
+               (let ((file-name-handler-alist nil))
+                 (insert-file-contents-internal infile nil nil nil nil
+                                                'binary))))
 	    (let ((stderr (if (consp buffer) (second buffer) t)))
 	      (if (consp buffer) (setq buffer (car buffer)))
 	      (setq buffer
@@ -429,8 +431,14 @@ lost packets."
 
 (defun shell-quote-argument (argument)
   "Quote an argument for passing as argument to an inferior shell."
-  (if (eq system-type 'windows-nt)
-      (nt-quote-process-args (list shell-file-name argument))
+  (if (and (eq system-type 'windows-nt)
+	   ;; #### this is a temporary hack.  a better solution needs
+	   ;; futzing with the c code.  i'll do this shortly.
+	   (let ((progname (downcase (file-name-nondirectory
+				      shell-file-name))))
+	     (or (equal progname "command.com")
+		 (equal progname "cmd.exe"))))
+      argument
     ;; Quote everything except POSIX filename characters.
     ;; This should be safe enough even for really weird shells.
     (let ((result "") (start 0) end)