diff options
| author | Karl Heuer | 1994-03-23 22:27:40 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-23 22:27:40 +0000 |
| commit | 0671d7c0026d360d1bd0b4e88fd6fcbe1b67ff0d (patch) | |
| tree | 27be1ebb300eec3550846c8b7d454120aaea604a /src/data.c | |
| parent | e7aacab75fdec238f4f4d5157b539a8e36f28c11 (diff) | |
| download | emacs-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.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 |