From 003778571d7a5f7b076742feaa8d01cc631907f4 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 31 Dec 1998 13:04:54 +0000 Subject: [PATCH] Don't warn about dos-* variables unless on MS-DOS, and about w32-* variables unless on Windows/NT. --- lisp/cus-start.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index bd03b952302..c8d140e6bc2 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -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 -- 2.39.2