diff options
| author | Karl Heuer <[email protected]> | 1994-10-06 22:32:11 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-10-06 22:32:11 +0000 |
| commit | 865c050f41d2e4120b50544223b883787f03b7ba (patch) | |
| tree | f86245eb5ab533551429967eef11abf78557b31a /src | |
| parent | 2836d9a4dcefd35ab080b5c1714b7bbfdf5eaa57 (diff) | |
(Fset, default_value, Fset_default, Fkill_local_variable): Access
buffer_local_flags as Lisp_Object, not int.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c index f6cba5c6dd..b380755a7d 100644 --- a/src/data.c +++ b/src/data.c @@ -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 (*(int *) (idx + (char *) &buffer_local_flags) != 0) + if (XINT (*(Lisp_Object *) (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) { |