Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
00377857
Commit
00377857
authored
Dec 31, 1998
by
Eli Zaretskii
Browse files
Don't warn about dos-* variables unless on MS-DOS,
and about w32-* variables unless on Windows/NT.
parent
6f9dc4fd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
3 deletions
+13
-3
lisp/cus-start.el
lisp/cus-start.el
+13
-3
No files found.
lisp/cus-start.el
View file @
00377857
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment