diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/buffer.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/buffer.c b/src/buffer.c index 78f75525b19..c8c5498c083 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -585,11 +585,6 @@ No argument or nil as argument means use current buffer as BUFFER.") | |||
| 585 | result = Qnil; | 585 | result = Qnil; |
| 586 | 586 | ||
| 587 | { | 587 | { |
| 588 | /* Reference each variable in the alist in our current buffer. | ||
| 589 | If inquiring about the current buffer, this gets the current values, | ||
| 590 | so store them into the alist so the alist is up to date. | ||
| 591 | If inquiring about some other buffer, this swaps out any values | ||
| 592 | for that buffer, making the alist up to date automatically. */ | ||
| 593 | register Lisp_Object tail; | 588 | register Lisp_Object tail; |
| 594 | for (tail = buf->local_var_alist; CONSP (tail); tail = XCONS (tail)->cdr) | 589 | for (tail = buf->local_var_alist; CONSP (tail); tail = XCONS (tail)->cdr) |
| 595 | { | 590 | { |
| @@ -597,9 +592,14 @@ No argument or nil as argument means use current buffer as BUFFER.") | |||
| 597 | 592 | ||
| 598 | elt = XCONS (tail)->car; | 593 | elt = XCONS (tail)->car; |
| 599 | 594 | ||
| 600 | if (buf == current_buffer) | 595 | /* Reference each variable in the alist in buf. |
| 601 | val = find_symbol_value (XCONS (elt)->car); | 596 | If inquiring about the current buffer, this gets the current values, |
| 602 | else | 597 | so store them into the alist so the alist is up to date. |
| 598 | If inquiring about some other buffer, this swaps out any values | ||
| 599 | for that buffer, making the alist up to date automatically. */ | ||
| 600 | val = find_symbol_value (XCONS (elt)->car); | ||
| 601 | /* Use the current buffer value only if buf is the current buffer. */ | ||
| 602 | if (buf != current_buffer) | ||
| 603 | val = XCONS (elt)->cdr; | 603 | val = XCONS (elt)->cdr; |
| 604 | 604 | ||
| 605 | /* If symbol is unbound, put just the symbol in the list. */ | 605 | /* If symbol is unbound, put just the symbol in the list. */ |
| @@ -2985,7 +2985,7 @@ and this buffer is not full-frame width."); | |||
| 2985 | "Non-nil if the visited file is a binary file.\n\ | 2985 | "Non-nil if the visited file is a binary file.\n\ |
| 2986 | This variable is meaningful on MS-DOG and Windows NT.\n\ | 2986 | This variable is meaningful on MS-DOG and Windows NT.\n\ |
| 2987 | On those systems, it is automatically local in every buffer.\n\ | 2987 | On those systems, it is automatically local in every buffer.\n\ |
| 2988 | On other systems, this variable is normally always nil.") | 2988 | On other systems, this variable is normally always nil."); |
| 2989 | #endif | 2989 | #endif |
| 2990 | 2990 | ||
| 2991 | DEFVAR_PER_BUFFER ("default-directory", ¤t_buffer->directory, | 2991 | DEFVAR_PER_BUFFER ("default-directory", ¤t_buffer->directory, |