Mercurial > emacs

changeset 9364:0bba3bd707c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fset, default_value, Fset_default, Fkill_local_variable): Access buffer_local_flags as Lisp_Object, not int.
author Karl Heuer <kwzh@gnu.org>
date Thu, 06 Oct 1994 22:32:11 +0000
parents 4ccd5f13788d
children 0b431684f97b
files src/data.c
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Thu Oct 06 22:31:59 1994 +0000
+++ b/src/data.c	Thu Oct 06 22:32:11 1994 +0000
@@ -829,7 +829,8 @@
   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 @@
     {
       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 @@
     {
       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 @@
   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)
 	{