diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 7 |
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 |