Mercurial > emacs
changeset 23967:e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
and about w32-* variables unless on Windows/NT.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 31 Dec 1998 13:04:54 +0000 |
| parents | f3102db5fde0 |
| children | 4c423f69142b |
| files | lisp/cus-start.el |
| diffstat | 1 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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