# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 915109494 0
# Node ID e4039c35f2f8046a00b2e7549fbf8f51844f6e52
# Parent  f3102db5fde05e02bd0112bdb70d5b0bc382ceca
Don't warn about dos-* variables unless on MS-DOS,
and about w32-* variables unless on Windows/NT.

diff -r f3102db5fde0 -r e4039c35f2f8 lisp/cus-start.el
--- a/lisp/cus-start.el	Thu Dec 31 05:44:40 1998 +0000
+++ b/lisp/cus-start.el	Thu Dec 31 13:04:54 1998 +0000
@@ -193,7 +193,7 @@
 	     ;; xfns.c
 	     (x-bitmap-file-path installation
 				 (repeat (directory :format "%v")))))
-      this symbol group type
+      this symbol group type native-p
       ;; This function turns a value
       ;; into an expression which produces that value.
       (quoter (lambda (sexp)
@@ -213,10 +213,20 @@
 	  all (cdr all)
 	  symbol (nth 0 this)
 	  group (nth 1 this)
-	  type (nth 2 this))
+	  type (nth 2 this)
+	  ;; Don't complain about missing variables which are
+	  ;; irrelevant to this platform.
+	  native-p (save-match-data
+		     (cond
+		      ((string-match "\\`dos-" (symbol-name symbol))
+		       (eq system-type 'ms-dos))
+		      ((string-match "\\`w32-" (symbol-name symbol))
+		       (eq system-type 'windows-nt))
+		      (t t))))
     (if (not (boundp symbol))
 	;; If variables are removed from C code, give an error here!
-	(message "Note, built-in variable `%S' not bound" symbol)
+	(and native-p
+	     (message "Note, built-in variable `%S' not bound" symbol))
       ;; Save the standard value, unless we already did.
       (or (get symbol 'standard-value)
 	  (put symbol 'standard-value