mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Don't warn about dos-* variables unless on MS-DOS,

Browse Source 
and about w32-* variables unless on Windows/NT.
This commit is contained in:
Eli Zaretskii 1998-12-31 13:04:54 +00:00
parent 6f9dc4fd9e
commit 003778571d
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/cus-start.el
View File

@ -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