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
0671d7c0
Commit
0671d7c0
authored
Mar 23, 1994
by
Karl Heuer
Browse files
(store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.
parent
e7aacab7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
src/data.c
src/data.c
+4
-3
No files found.
src/data.c
View file @
0671d7c0
...
...
@@ -668,9 +668,9 @@ store_symval_forwarding (sym, valcontents, newval)
case
Lisp_Buffer_Objfwd
:
{
unsigned
int
offset
=
XUINT
(
valcontents
);
Lisp_Object
type
=
*
(
Lisp_Object
*
)(
offset
+
(
char
*
)
&
buffer_local_types
);
Lisp_Object
type
;
type
=
*
(
Lisp_Object
*
)(
offset
+
(
char
*
)
&
buffer_local_types
);
if
(
!
NILP
(
type
)
&&
!
NILP
(
newval
)
&&
XTYPE
(
newval
)
!=
XINT
(
type
))
buffer_slot_type_mismatch
(
valcontents
,
newval
);
...
...
@@ -786,8 +786,9 @@ DEFUN ("symbol-value", Fsymbol_value, Ssymbol_value, 1, 1, 0,
(
sym
)
Lisp_Object
sym
;
{
Lisp_Object
val
=
find_symbol_value
(
sym
)
;
Lisp_Object
val
;
val
=
find_symbol_value
(
sym
);
if
(
EQ
(
val
,
Qunbound
))
return
Fsignal
(
Qvoid_variable
,
Fcons
(
sym
,
Qnil
));
else
...
...
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