diff options
| author | Richard M. Stallman | 1994-09-17 00:26:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-17 00:26:43 +0000 |
| commit | 4d2f13893e7d7360254dd73b5303285cf09bcc40 (patch) | |
| tree | 26e3c73f3c189701be891e68e0e8f7b3f2fefb49 /src/buffer.c | |
| parent | 426076815fd51f7f545a8116c3b6a273ca8e6839 (diff) | |
| download | emacs-4d2f13893e7d7360254dd73b5303285cf09bcc40.tar.gz emacs-4d2f13893e7d7360254dd73b5303285cf09bcc40.zip | |
(reset_buffer_local_variables, Fbuffer_local_variables)
(init_buffer_once): Use EMACS_INT.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 12 |
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); |