From: tomo <tomo>
Date: Tue, 6 Jun 2000 04:17:44 +0000 (+0000)
Subject: XEmacs 21.2.34 "Molpe".
X-Git-Tag: r21-2-34^3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad530cd10eeac9ab753a3213cb48a31a73fd8e3b;p=chise%2Fxemacs-chise.git

XEmacs 21.2.34 "Molpe".
---

diff --git a/lisp/winnt.el b/lisp/winnt.el
index 7935286..5fe8b40 100644
--- a/lisp/winnt.el
+++ b/lisp/winnt.el
@@ -85,56 +85,4 @@ See also `auto-save-file-name-p'."
       (setq start (1+ (match-end 0))))
     name))
 
-;;----------------------------------------------------------------------
-;; Quoting process args
-;;--------------------
-
-(defun nt-quote-args-verbatim (args)
-  "Copy ARG list verbatim, separating each arg with space."
-  (mapconcat #'identity args " "))
-
-(defun nt-quote-args-prefix-quote (prefix args)
-  (mapconcat (lambda (str)
-	       (concat "\""
-		       (mapconcat (lambda (ch)
-				    (concat (if (eq ch ?\") prefix)
-					    (char-to-string ch)))
-				  str nil)
-		       "\""))
-	       args " "))
-
-(defun nt-quote-args-backslash-quote (args)
-  "Place ARG list in quotes, prefixing quotes in args with backslashes."
-  (nt-quote-args-prefix-quote "\\" args))
-
-(defun nt-quote-args-double-quote (args)
-  "Place ARG list in quotes, doubling quotes in args."
-  (nt-quote-args-prefix-quote "\"" args))
-
-(defvar nt-quote-args-functions-alist
-  '(("^.?.?sh\\." . nt-quote-args-double-quote))
-  "An alist for determining proper argument quoting given executable file name.
-Car of each cons must be a string, a regexp against which a file name sans 
-directory is matched.  Cdr is a function symbol.  The list is mathced in
-forward order, and mathcing entry cdr's funcrion is called with a list of
-strings, process arguments.  It must return a string which is passed to
-the newly created process.
-
-If not found, then `nt-quote-args-verbatim' is called on the argument list.")
-
-(defun nt-quote-process-args (args)
-  ;;Properly quote process ARGS for executing (car ARGS).
-  (let ((fname (file-name-nondirectory (car args)))
-	(alist nt-quote-args-functions-alist)
-	(case-fold-search nil)
-	(return-me nil)
-	(assoc nil))
-    (while (and alist
-		(null return-me))
-      (setq assoc (pop alist))
-      (if (string-match (car assoc) fname)
-	  (setq return-me (funcall (cdr assoc) (cdr args)))))
-    (or return-me
-	(nt-quote-args-verbatim (cdr args)))))
-
 ;;; winnt.el ends here
diff --git a/nt/inc/sys/socket.h b/nt/inc/sys/socket.h
index 03c6077..ee669a1 100644
--- a/nt/inc/sys/socket.h
+++ b/nt/inc/sys/socket.h
@@ -22,7 +22,7 @@
 #endif /* 0 */
 
 /* avoid duplicate definition of timeval */
-#ifdef HAVE_TIMEVAL
+#if defined(HAVE_TIMEVAL) && !defined(__MINGW32__)
 #define timeval ws_timeval
 #endif