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
865c050f
Commit
865c050f
authored
Oct 06, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fset, default_value, Fset_default, Fkill_local_variable): Access
buffer_local_flags as Lisp_Object, not int.
parent
2836d9a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
4 deletions
+7
-4
src/data.c
src/data.c
+7
-4
No files found.
src/data.c
View file @
865c050f
...
...
@@ -829,7 +829,8 @@ DEFUN ("set", Fset, Sset, 2, 2, 0,
if
(
BUFFER_OBJFWDP
(
valcontents
))
{
register
int
idx
=
XUINT
(
valcontents
);
register
int
mask
=
*
(
int
*
)(
idx
+
(
char
*
)
&
buffer_local_flags
);
register
int
mask
=
XINT
(
*
((
Lisp_Object
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
)));
if
(
mask
>
0
)
current_buffer
->
local_var_flags
|=
mask
;
}
...
...
@@ -945,7 +946,7 @@ default_value (sym)
{
register
int
idx
=
XUINT
(
valcontents
);
if
(
*
(
in
t
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
)
!=
0
)
if
(
XINT
(
*
(
Lisp_Objec
t
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
)
)
!=
0
)
return
*
(
Lisp_Object
*
)(
idx
+
(
char
*
)
&
buffer_defaults
);
}
...
...
@@ -1019,7 +1020,8 @@ for this variable.")
{
register
int
idx
=
XUINT
(
valcontents
);
register
struct
buffer
*
b
;
register
int
mask
=
*
(
int
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
);
register
int
mask
=
XINT
(
*
((
Lisp_Object
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
)));
if
(
mask
>
0
)
{
...
...
@@ -1211,7 +1213,8 @@ From now on the default value will apply in this buffer.")
if
(
BUFFER_OBJFWDP
(
valcontents
))
{
register
int
idx
=
XUINT
(
valcontents
);
register
int
mask
=
*
(
int
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
);
register
int
mask
=
XINT
(
*
((
Lisp_Object
*
)
(
idx
+
(
char
*
)
&
buffer_local_flags
)));
if
(
mask
>
0
)
{
...
...
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