aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorKarl Heuer1994-03-23 22:27:40 +0000
committerKarl Heuer1994-03-23 22:27:40 +0000
commit0671d7c0026d360d1bd0b4e88fd6fcbe1b67ff0d (patch)
tree27be1ebb300eec3550846c8b7d454120aaea604a /src/data.c
parente7aacab75fdec238f4f4d5157b539a8e36f28c11 (diff)
downloademacs-0671d7c0026d360d1bd0b4e88fd6fcbe1b67ff0d.tar.gz
emacs-0671d7c0026d360d1bd0b4e88fd6fcbe1b67ff0d.zip
(store_symval_forwarding, Fsymbol_value): Use assignment, not initialization.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c
index d8f167dcf99..167fc953508 100644
--- a/src/data.c
+++ b/src/data.c
@@ -668,9 +668,9 @@ store_symval_forwarding (sym, valcontents, newval)
668 case Lisp_Buffer_Objfwd: 668 case Lisp_Buffer_Objfwd:
669 { 669 {
670 unsigned int offset = XUINT (valcontents); 670 unsigned int offset = XUINT (valcontents);
671 Lisp_Object type = 671 Lisp_Object type;
672 *(Lisp_Object *)(offset + (char *)&buffer_local_types);
673 672
673 type = *(Lisp_Object *)(offset + (char *)&buffer_local_types);
674 if (! NILP (type) && ! NILP (newval) 674 if (! NILP (type) && ! NILP (newval)
675 && XTYPE (newval) != XINT (type)) 675 && XTYPE (newval) != XINT (type))
676 buffer_slot_type_mismatch (valcontents, newval); 676 buffer_slot_type_mismatch (valcontents, newval);
@@ -786,8 +786,9 @@ DEFUN ("symbol-value", Fsymbol_value, Ssymbol_value, 1, 1, 0,
786 (sym) 786 (sym)
787 Lisp_Object sym; 787 Lisp_Object sym;
788{ 788{
789 Lisp_Object val = find_symbol_value (sym); 789 Lisp_Object val;
790 790
791 val = find_symbol_value (sym);
791 if (EQ (val, Qunbound)) 792 if (EQ (val, Qunbound))
792 return Fsignal (Qvoid_variable, Fcons (sym, Qnil)); 793 return Fsignal (Qvoid_variable, Fcons (sym, Qnil));
793 else 794 else