diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-06 22:32:11 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-06 22:32:11 +0000 |
| commit | 926efadf58f851f5bbdf6dad2e05e1a19d907618 (patch) | |
| tree | d728c8a0170a50f799af254b3151e6b34b594f1b /src/data.c | |
| parent | 986e085dfd9da597ec7c790f8bb5f8bad7805b49 (diff) | |
| download | emacs-926efadf58f851f5bbdf6dad2e05e1a19d907618.tar.gz | |
(Fset, default_value, Fset_default, Fkill_local_variable): Access
buffer_local_flags as Lisp_Object, not int.
Diffstat (limited to 'src/data.c')
| -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 f6cba5c6dd1..b380755a7db 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) { |