diff options
| author | Richard M. Stallman | 1998-10-31 23:39:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-31 23:39:42 +0000 |
| commit | 33fa85e0426e67f43963eaeebaf670fef94b69de (patch) | |
| tree | e26058dec1e59c81a0bf5d6b0ca56f970d2a32a2 | |
| parent | 46a3b2b49b1b9c697fc80721f89cdc57779da812 (diff) | |
| download | emacs-33fa85e0426e67f43963eaeebaf670fef94b69de.tar.gz emacs-33fa85e0426e67f43963eaeebaf670fef94b69de.zip | |
(set_internal): For built-in maybe-local vars,
when BINDFLAG is set, do not mark them as local.
| -rw-r--r-- | src/data.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index bed8bda7b7c..117c8f2ee59 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -980,7 +980,7 @@ set_internal (symbol, newval, bindflag) | |||
| 980 | register int idx = XBUFFER_OBJFWD (valcontents)->offset; | 980 | register int idx = XBUFFER_OBJFWD (valcontents)->offset; |
| 981 | register int mask = XINT (*((Lisp_Object *) | 981 | register int mask = XINT (*((Lisp_Object *) |
| 982 | (idx + (char *)&buffer_local_flags))); | 982 | (idx + (char *)&buffer_local_flags))); |
| 983 | if (mask > 0) | 983 | if (mask > 0 && ! bindflag) |
| 984 | current_buffer->local_var_flags |= mask; | 984 | current_buffer->local_var_flags |= mask; |
| 985 | } | 985 | } |
| 986 | 986 | ||