diff options
| author | Eli Zaretskii <eliz@gnu.org> | 1998-12-31 13:04:54 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 1998-12-31 13:04:54 +0000 |
| commit | 003778571d7a5f7b076742feaa8d01cc631907f4 (patch) | |
| tree | 24b9d9711b529ab1726b8f97fac78b9a867f3766 /lisp/cus-start.el | |
| parent | 6f9dc4fd9ec9d2d17e0c9402c00ed4afb3335967 (diff) | |
| download | emacs-003778571d7a5f7b076742feaa8d01cc631907f4.tar.gz | |
Don't warn about dos-* variables unless on MS-DOS,
and about w32-* variables unless on Windows/NT.
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 16 |
1 files 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 |