emacs: lisp/cus-start.el comparison

Don't warn about dos-* variables unless on MS-DOS, and about w32-* variables unless on Windows/NT.

comparison

equal deleted inserted replaced

-:f3102db5fde0
+:e4039c35f2f8
 						     :format "%v")
 					    (other :tag "Unlimited" t)))
 	     ;; 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)
 		(if (or (memq sexp '(t nil))
 			(and (symbolp sexp)
 (while all
 (setq this (car all)
 	  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
 	       (list (funcall quoter (default-value symbol)))))
 ;; If this is NOT while dumping Emacs,

Mercurial > emacs