aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorGerd Moellmann2000-03-27 12:50:13 +0000
committerGerd Moellmann2000-03-27 12:50:13 +0000
commitf6cd05276dad073b9299368e33ba02825bdae048 (patch)
treef9faf6cba098aab8dfdcc933fd75d5273d7e1e04 /src/data.c
parentddebaaa9da7734fff3f9f4a847670a63a876ae71 (diff)
downloademacs-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.c36
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;