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

6 files changed, 8 insertions, 8 deletions

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)