diff options
| author | Gerd Moellmann | 2000-03-27 12:50:13 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-03-27 12:50:13 +0000 |
| commit | f6cd05276dad073b9299368e33ba02825bdae048 (patch) | |
| tree | f9faf6cba098aab8dfdcc933fd75d5273d7e1e04 /src/data.c | |
| parent | ddebaaa9da7734fff3f9f4a847670a63a876ae71 (diff) | |
| download | emacs-f6cd05276dad073b9299368e33ba02825bdae048.tar.gz emacs-f6cd05276dad073b9299368e33ba02825bdae048.zip | |
Use new macro names
for handling per-buffer variables.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/data.c b/src/data.c index 16ce6a3c32e..f736f7f6c81 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -738,7 +738,7 @@ do_symval_forwarding (valcontents) | |||
| 738 | 738 | ||
| 739 | case Lisp_Misc_Buffer_Objfwd: | 739 | case Lisp_Misc_Buffer_Objfwd: |
| 740 | offset = XBUFFER_OBJFWD (valcontents)->offset; | 740 | offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 741 | return BUFFER_LOCAL_VALUE (current_buffer, offset); | 741 | return PER_BUFFER_VALUE (current_buffer, offset); |
| 742 | 742 | ||
| 743 | case Lisp_Misc_Kboard_Objfwd: | 743 | case Lisp_Misc_Kboard_Objfwd: |
| 744 | offset = XKBOARD_OBJFWD (valcontents)->offset; | 744 | offset = XKBOARD_OBJFWD (valcontents)->offset; |
| @@ -783,7 +783,7 @@ store_symval_forwarding (symbol, valcontents, newval) | |||
| 783 | int offset = XBUFFER_OBJFWD (valcontents)->offset; | 783 | int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 784 | Lisp_Object type; | 784 | Lisp_Object type; |
| 785 | 785 | ||
| 786 | type = BUFFER_LOCAL_TYPE (offset); | 786 | type = PER_BUFFER_TYPE (offset); |
| 787 | if (XINT (type) == -1) | 787 | if (XINT (type) == -1) |
| 788 | error ("Variable %s is read-only", XSYMBOL (symbol)->name->data); | 788 | error ("Variable %s is read-only", XSYMBOL (symbol)->name->data); |
| 789 | 789 | ||
| @@ -791,7 +791,7 @@ store_symval_forwarding (symbol, valcontents, newval) | |||
| 791 | && XTYPE (newval) != XINT (type)) | 791 | && XTYPE (newval) != XINT (type)) |
| 792 | buffer_slot_type_mismatch (offset); | 792 | buffer_slot_type_mismatch (offset); |
| 793 | 793 | ||
| 794 | BUFFER_LOCAL_VALUE (current_buffer, offset) = newval; | 794 | PER_BUFFER_VALUE (current_buffer, offset) = newval; |
| 795 | } | 795 | } |
| 796 | break; | 796 | break; |
| 797 | 797 | ||
| @@ -902,7 +902,7 @@ find_symbol_value (symbol) | |||
| 902 | return *XOBJFWD (valcontents)->objvar; | 902 | return *XOBJFWD (valcontents)->objvar; |
| 903 | 903 | ||
| 904 | case Lisp_Misc_Buffer_Objfwd: | 904 | case Lisp_Misc_Buffer_Objfwd: |
| 905 | return BUFFER_LOCAL_VALUE (current_buffer, | 905 | return PER_BUFFER_VALUE (current_buffer, |
| 906 | XBUFFER_OBJFWD (valcontents)->offset); | 906 | XBUFFER_OBJFWD (valcontents)->offset); |
| 907 | 907 | ||
| 908 | case Lisp_Misc_Kboard_Objfwd: | 908 | case Lisp_Misc_Kboard_Objfwd: |
| @@ -991,11 +991,11 @@ set_internal (symbol, newval, buf, bindflag) | |||
| 991 | if (BUFFER_OBJFWDP (valcontents)) | 991 | if (BUFFER_OBJFWDP (valcontents)) |
| 992 | { | 992 | { |
| 993 | int offset = XBUFFER_OBJFWD (valcontents)->offset; | 993 | int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 994 | int idx = BUFFER_LOCAL_IDX (offset); | 994 | int idx = PER_BUFFER_IDX (offset); |
| 995 | if (idx > 0 | 995 | if (idx > 0 |
| 996 | && !bindflag | 996 | && !bindflag |
| 997 | && !let_shadows_buffer_binding_p (symbol)) | 997 | && !let_shadows_buffer_binding_p (symbol)) |
| 998 | SET_BUFFER_HAS_LOCAL_VALUE_P (buf, idx, 1); | 998 | SET_PER_BUFFER_VALUE_P (buf, idx, 1); |
| 999 | } | 999 | } |
| 1000 | 1000 | ||
| 1001 | else if (BUFFER_LOCAL_VALUEP (valcontents) | 1001 | else if (BUFFER_LOCAL_VALUEP (valcontents) |
| @@ -1108,8 +1108,8 @@ default_value (symbol) | |||
| 1108 | if (BUFFER_OBJFWDP (valcontents)) | 1108 | if (BUFFER_OBJFWDP (valcontents)) |
| 1109 | { | 1109 | { |
| 1110 | int offset = XBUFFER_OBJFWD (valcontents)->offset; | 1110 | int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 1111 | if (BUFFER_LOCAL_IDX (offset) != 0) | 1111 | if (PER_BUFFER_IDX (offset) != 0) |
| 1112 | return BUFFER_LOCAL_DEFAULT_VALUE (offset); | 1112 | return PER_BUFFER_DEFAULT (offset); |
| 1113 | } | 1113 | } |
| 1114 | 1114 | ||
| 1115 | /* Handle user-created local variables. */ | 1115 | /* Handle user-created local variables. */ |
| @@ -1180,9 +1180,9 @@ for this variable.") | |||
| 1180 | if (BUFFER_OBJFWDP (valcontents)) | 1180 | if (BUFFER_OBJFWDP (valcontents)) |
| 1181 | { | 1181 | { |
| 1182 | int offset = XBUFFER_OBJFWD (valcontents)->offset; | 1182 | int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 1183 | int idx = BUFFER_LOCAL_IDX (offset); | 1183 | int idx = PER_BUFFER_IDX (offset); |
| 1184 | 1184 | ||
| 1185 | BUFFER_LOCAL_DEFAULT_VALUE (offset) = value; | 1185 | PER_BUFFER_DEFAULT (offset) = value; |
| 1186 | 1186 | ||
| 1187 | /* If this variable is not always local in all buffers, | 1187 | /* If this variable is not always local in all buffers, |
| 1188 | set it in the buffers that don't nominally have a local value. */ | 1188 | set it in the buffers that don't nominally have a local value. */ |
| @@ -1191,8 +1191,8 @@ for this variable.") | |||
| 1191 | struct buffer *b; | 1191 | struct buffer *b; |
| 1192 | 1192 | ||
| 1193 | for (b = all_buffers; b; b = b->next) | 1193 | for (b = all_buffers; b; b = b->next) |
| 1194 | if (!BUFFER_HAS_LOCAL_VALUE_P (b, idx)) | 1194 | if (!PER_BUFFER_VALUE_P (b, idx)) |
| 1195 | BUFFER_LOCAL_VALUE (b, offset) = value; | 1195 | PER_BUFFER_VALUE (b, offset) = value; |
| 1196 | } | 1196 | } |
| 1197 | return value; | 1197 | return value; |
| 1198 | } | 1198 | } |
| @@ -1410,13 +1410,13 @@ From now on the default value will apply in this buffer.") | |||
| 1410 | if (BUFFER_OBJFWDP (valcontents)) | 1410 | if (BUFFER_OBJFWDP (valcontents)) |
| 1411 | { | 1411 | { |
| 1412 | int offset = XBUFFER_OBJFWD (valcontents)->offset; | 1412 | int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 1413 | int idx = BUFFER_LOCAL_IDX (offset); | 1413 | int idx = PER_BUFFER_IDX (offset); |
| 1414 | 1414 | ||
| 1415 | if (idx > 0) | 1415 | if (idx > 0) |
| 1416 | { | 1416 | { |
| 1417 | SET_BUFFER_HAS_LOCAL_VALUE_P (current_buffer, idx, 0); | 1417 | SET_PER_BUFFER_VALUE_P (current_buffer, idx, 0); |
| 1418 | BUFFER_LOCAL_VALUE (current_buffer, offset) | 1418 | PER_BUFFER_VALUE (current_buffer, offset) |
| 1419 | = BUFFER_LOCAL_DEFAULT_VALUE (offset); | 1419 | = PER_BUFFER_DEFAULT (offset); |
| 1420 | } | 1420 | } |
| 1421 | return variable; | 1421 | return variable; |
| 1422 | } | 1422 | } |
| @@ -1532,8 +1532,8 @@ BUFFER defaults to the current buffer.") | |||
| 1532 | if (BUFFER_OBJFWDP (valcontents)) | 1532 | if (BUFFER_OBJFWDP (valcontents)) |
| 1533 | { | 1533 | { |
| 1534 | int offset = XBUFFER_OBJFWD (valcontents)->offset; | 1534 | int offset = XBUFFER_OBJFWD (valcontents)->offset; |
| 1535 | int idx = BUFFER_LOCAL_IDX (offset); | 1535 | int idx = PER_BUFFER_IDX (offset); |
| 1536 | if (idx == -1 || BUFFER_HAS_LOCAL_VALUE_P (buf, idx)) | 1536 | if (idx == -1 || PER_BUFFER_VALUE_P (buf, idx)) |
| 1537 | return Qt; | 1537 | return Qt; |
| 1538 | } | 1538 | } |
| 1539 | return Qnil; | 1539 | return Qnil; |