aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 87a81658fed..35177382dde 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -351,9 +351,9 @@ reset_buffer_local_variables (b)
351 351
352 for (offset = (char *)&buffer_local_flags.name - (char *)&buffer_local_flags; 352 for (offset = (char *)&buffer_local_flags.name - (char *)&buffer_local_flags;
353 offset < sizeof (struct buffer); 353 offset < sizeof (struct buffer);
354 offset += sizeof (Lisp_Object)) /* sizeof int == sizeof Lisp_Object */ 354 offset += sizeof (Lisp_Object)) /* sizeof EMACS_INT == sizeof Lisp_Object */
355 if (*(int *)(offset + (char *) &buffer_local_flags) > 0 355 if (*(EMACS_INT *)(offset + (char *) &buffer_local_flags) > 0
356 || *(int *)(offset + (char *) &buffer_local_flags) == -2) 356 || *(EMACS_INT *)(offset + (char *) &buffer_local_flags) == -2)
357 *(Lisp_Object *)(offset + (char *)b) = 357 *(Lisp_Object *)(offset + (char *)b) =
358 *(Lisp_Object *)(offset + (char *)&buffer_defaults); 358 *(Lisp_Object *)(offset + (char *)&buffer_defaults);
359} 359}
@@ -479,9 +479,9 @@ No argument or nil as argument means use current buffer as BUFFER.")
479 479
480 for (offset = (char *)&buffer_local_symbols.name - (char *)&buffer_local_symbols; 480 for (offset = (char *)&buffer_local_symbols.name - (char *)&buffer_local_symbols;
481 offset < sizeof (struct buffer); 481 offset < sizeof (struct buffer);
482 offset += (sizeof (int))) /* sizeof int == sizeof Lisp_Object */ 482 offset += (sizeof (EMACS_INT))) /* sizeof EMACS_INT == sizeof Lisp_Object */
483 { 483 {
484 mask = *(int *)(offset + (char *) &buffer_local_flags); 484 mask = *(EMACS_INT *)(offset + (char *) &buffer_local_flags);
485 if (mask == -1 || (buf->local_var_flags & mask)) 485 if (mask == -1 || (buf->local_var_flags & mask))
486 if (XTYPE (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols)) 486 if (XTYPE (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols))
487 == Lisp_Symbol) 487 == Lisp_Symbol)
@@ -2372,7 +2372,7 @@ init_buffer_once ()
2372 The local flag bits are in the local_var_flags slot of the buffer. */ 2372 The local flag bits are in the local_var_flags slot of the buffer. */
2373 2373
2374 /* Nothing can work if this isn't true */ 2374 /* Nothing can work if this isn't true */
2375 if (sizeof (int) != sizeof (Lisp_Object)) abort (); 2375 if (sizeof (EMACS_INT) != sizeof (Lisp_Object)) abort ();
2376 2376
2377 /* 0 means not a lisp var, -1 means always local, else mask */ 2377 /* 0 means not a lisp var, -1 means always local, else mask */
2378 bzero (&buffer_local_flags, sizeof buffer_local_flags); 2378 bzero (&buffer_local_flags, sizeof buffer_local_flags);