From: Geoff Voelker <voelker@cs.washington.edu>
Date: Tue, 19 Nov 1996 06:59:17 +0000 (+0000)
Subject: Use w32 instead of ms-windows for window-system symbol
X-Git-Tag: emacs-20.1~3354
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b86b9918ddbab4504682eb1dd0fb86fc05ef2510;p=emacs.git

Use w32 instead of ms-windows for window-system symbol
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index bf6cad47f24..07d5f52c628 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -491,7 +491,7 @@ This function queries the window-system server to find out what the
 color names mean.  It returns nil if the colors differ or if it can't
 determine the correct answer."
   (cond ((equal a b) t)
-	((and (memq window-system '(x ms-windows))
+	((and (memq window-system '(x w32))
 	      (equal (x-color-values a) (x-color-values b))))
 	((eq window-system 'pc)
 	 (and (x-color-defined-p a) (x-color-defined-p b)
diff --git a/lisp/faces.el b/lisp/faces.el
index 65011985dbb..41d85b43c0c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -409,7 +409,7 @@ If the face already exists, it is unmodified."
 	    (setq frames (cdr frames)))
 	  (setq global-face-data (cons (cons name face) global-face-data)))
 	;; when making a face after frames already exist
-	(if (memq window-system '(x ms-windows))
+	(if (memq window-system '(x w32))
 	    (make-face-x-resource-internal face))
 	;; add to menu
 	(if (fboundp 'facemenu-add-new-face)
@@ -423,7 +423,7 @@ If the face already exists, it is unmodified."
   (cond ((null frame)
 	 (let ((frames (frame-list)))
 	   (while frames
-	     (if (memq (framep (car frames)) '(x ms-windows))
+	     (if (memq (framep (car frames)) '(x w32))
 		 (make-face-x-resource-internal (face-name face)
 						(car frames) set-anyway))
 	     (setq frames (cdr frames)))))
@@ -1303,7 +1303,7 @@ selected frame."
 	  (setq colors (cdr colors)))))))
 
 ;; If we are already using x-window frames, initialize faces for them.
-(if (memq (framep (selected-frame)) '(x ms-windows))
+(if (memq (framep (selected-frame)) '(x w32))
     (face-initialize))
 
 (provide 'faces)
diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el
index ddb896befdb..caa479d9ec8 100644
--- a/lisp/hippie-exp.el
+++ b/lisp/hippie-exp.el
@@ -493,7 +493,7 @@ otherwise."
 		  (string= (substring name-part 0 2) "[."))
 	     (concat (substring dir-part 0 -1) (substring name-part 1))
 	   (concat dir-part name-part)))
-	((memq system-type '(ms-dos ms-windows))
+	((memq system-type '(ms-dos w32))
 	 (if (and (string-match "\\\\" dir-part)
 		  (not (string-match "/" dir-part))
 		  (= (aref name-part (1- (length name-part))) ?/))
diff --git a/lisp/info.el b/lisp/info.el
index 5ec81da6ca8..9e001469073 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1719,7 +1719,7 @@ Advanced commands:
   (make-local-variable 'Info-tag-table-marker)
   (make-local-variable 'Info-history)
   (make-local-variable 'Info-index-alternatives)
-  (if (memq (framep (selected-frame)) '(x pc ms-windows))
+  (if (memq (framep (selected-frame)) '(x pc w32))
       (progn
 	(make-face 'info-node)
 	(make-face 'info-menu-5)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index de0735529f7..0981533d038 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -401,7 +401,7 @@ This should be bound to a mouse drag event."
     ;; If mark is highlighted, no need to bounce the cursor.
     ;; On X, we highlight while dragging, thus once again no need to bounce.
     (or transient-mark-mode
-	(memq (framep (selected-frame)) '(x pc ms-windows))
+	(memq (framep (selected-frame)) '(x pc w32))
 	(sit-for 1))
     (push-mark)
     (set-mark (point))
diff --git a/lisp/vc.el b/lisp/vc.el
index 1ed84971b0d..7c7cdced2ea 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -424,7 +424,7 @@ to an optional list of FLAGS."
 			 path-separator
 			 (mapconcat 'identity vc-path path-separator))
 		 process-environment))
-	  (win32-quote-process-args t))
+	  (w32-quote-process-args t))
       (setq status (apply 'call-process command nil t nil squeezed)))
     (goto-char (point-max))
     (set-buffer-modified-p nil)