Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f5c1dd0d
Commit
f5c1dd0d
authored
Oct 05, 2001
by
Gerd Moellmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use SYMBOL_VALUE/SET_SYMBOL_VALUE macros instead of accessing
symbols' value directly.
parent
44c6c019
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
12 additions
and
12 deletions
+12
-12
src/buffer.c
src/buffer.c
+7
-7
src/coding.c
src/coding.c
+2
-2
src/fns.c
src/fns.c
+1
-1
src/frame.c
src/frame.c
+1
-1
src/minibuf.c
src/minibuf.c
+1
-1
No files found.
src/buffer.c
View file @
f5c1dd0d
...
...
@@ -1683,7 +1683,7 @@ set_buffer_internal_1 (b)
for
(
tail
=
b
->
local_var_alist
;
!
NILP
(
tail
);
tail
=
XCDR
(
tail
))
{
valcontents
=
X
SYMBOL
(
XCAR
(
XCAR
(
tail
)))
->
value
;
valcontents
=
SYMBOL
_VALUE
(
XCAR
(
XCAR
(
tail
)));
if
((
BUFFER_LOCAL_VALUEP
(
valcontents
)
||
SOME_BUFFER_LOCAL_VALUEP
(
valcontents
))
&&
(
tem
=
XBUFFER_LOCAL_VALUE
(
valcontents
)
->
realvalue
,
...
...
@@ -1698,7 +1698,7 @@ set_buffer_internal_1 (b)
if
(
old_buf
)
for
(
tail
=
old_buf
->
local_var_alist
;
!
NILP
(
tail
);
tail
=
XCDR
(
tail
))
{
valcontents
=
X
SYMBOL
(
XCAR
(
XCAR
(
tail
)))
->
value
;
valcontents
=
SYMBOL
_VALUE
(
XCAR
(
XCAR
(
tail
)));
if
((
BUFFER_LOCAL_VALUEP
(
valcontents
)
||
SOME_BUFFER_LOCAL_VALUEP
(
valcontents
))
&&
(
tem
=
XBUFFER_LOCAL_VALUE
(
valcontents
)
->
realvalue
,
...
...
@@ -2260,26 +2260,26 @@ swap_out_buffer_local_variables (b)
sym
=
XCAR
(
XCAR
(
alist
));
/* Need not do anything if some other buffer's binding is now encached. */
tem
=
XBUFFER_LOCAL_VALUE
(
X
SYMBOL
(
sym
)
->
value
)
->
buffer
;
tem
=
XBUFFER_LOCAL_VALUE
(
SYMBOL
_VALUE
(
sym
))
->
buffer
;
if
(
BUFFERP
(
tem
)
&&
XBUFFER
(
tem
)
==
current_buffer
)
{
/* Symbol is set up for this buffer's old local value.
Set it up for the current buffer with the default value. */
tem
=
XBUFFER_LOCAL_VALUE
(
X
SYMBOL
(
sym
)
->
value
)
->
cdr
;
tem
=
XBUFFER_LOCAL_VALUE
(
SYMBOL
_VALUE
(
sym
))
->
cdr
;
/* Store the symbol's current value into the alist entry
it is currently set up for. This is so that, if the
local is marked permanent, and we make it local again
later in Fkill_all_local_variables, we don't lose the value. */
XCDR
(
XCAR
(
tem
))
=
do_symval_forwarding
(
XBUFFER_LOCAL_VALUE
(
X
SYMBOL
(
sym
)
->
value
)
->
realvalue
);
=
do_symval_forwarding
(
XBUFFER_LOCAL_VALUE
(
SYMBOL
_VALUE
(
sym
))
->
realvalue
);
/* Switch to the symbol's default-value alist entry. */
XCAR
(
tem
)
=
tem
;
/* Mark it as current for buffer B. */
XBUFFER_LOCAL_VALUE
(
X
SYMBOL
(
sym
)
->
value
)
->
buffer
=
buffer
;
XBUFFER_LOCAL_VALUE
(
SYMBOL
_VALUE
(
sym
))
->
buffer
=
buffer
;
/* Store the current value into any forwarding in the symbol. */
store_symval_forwarding
(
sym
,
XBUFFER_LOCAL_VALUE
(
X
SYMBOL
(
sym
)
->
value
)
->
realvalue
,
XBUFFER_LOCAL_VALUE
(
SYMBOL
_VALUE
(
sym
))
->
realvalue
,
XCDR
(
tem
),
NULL
);
}
}
...
...
src/coding.c
View file @
f5c1dd0d
...
...
@@ -4110,7 +4110,7 @@ detect_coding (coding, src, src_bytes)
if
(
!
mask
)
idx
=
CODING_CATEGORY_IDX_RAW_TEXT
;
val
=
X
SYMBOL
(
XVECTOR
(
Vcoding_category_table
)
->
contents
[
idx
])
->
value
;
val
=
SYMBOL
_VALUE
(
XVECTOR
(
Vcoding_category_table
)
->
contents
[
idx
]);
if
(
coding
->
eol_type
!=
CODING_EOL_UNDECIDED
)
{
...
...
@@ -6881,7 +6881,7 @@ call this function")
{
Lisp_Object
val
;
val
=
X
SYMBOL
(
XVECTOR
(
Vcoding_category_table
)
->
contents
[
i
])
->
value
;
val
=
SYMBOL
_VALUE
(
XVECTOR
(
Vcoding_category_table
)
->
contents
[
i
]);
if
(
!
NILP
(
val
))
{
if
(
!
coding_system_table
[
i
])
...
...
src/fns.c
View file @
f5c1dd0d
...
...
@@ -5020,7 +5020,7 @@ guesswork fails. Normally, an error is signaled in such case.")
if
(
STRING_MULTIBYTE
(
object
))
/* use default, we can't guess correct value */
coding_system
=
X
SYMBOL
(
XCAR
(
Vcoding_category_list
))
->
value
;
coding_system
=
SYMBOL
_VALUE
(
XCAR
(
Vcoding_category_list
));
else
coding_system
=
Qraw_text
;
}
...
...
src/frame.c
View file @
f5c1dd0d
...
...
@@ -1915,7 +1915,7 @@ store_frame_param (f, prop, val)
if
(
SYMBOLP
(
prop
))
{
Lisp_Object
valcontents
;
valcontents
=
X
SYMBOL
(
prop
)
->
value
;
valcontents
=
SYMBOL
_VALUE
(
prop
);
if
((
BUFFER_LOCAL_VALUEP
(
valcontents
)
||
SOME_BUFFER_LOCAL_VALUEP
(
valcontents
))
&&
XBUFFER_LOCAL_VALUE
(
valcontents
)
->
check_frame
...
...
src/minibuf.c
View file @
f5c1dd0d
...
...
@@ -602,7 +602,7 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
Lisp_Object
histval
;
/* If variable is unbound, make it nil. */
if
(
EQ
(
X
SYMBOL
(
Vminibuffer_history_variable
)
->
value
,
Qunbound
))
if
(
EQ
(
SYMBOL
_VALUE
(
Vminibuffer_history_variable
),
Qunbound
))
Fset
(
Vminibuffer_history_variable
,
Qnil
);
histval
=
Fsymbol_value
(
Vminibuffer_history_variable
);
...
...
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