aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorHelmut Eller2024-06-23 15:34:55 +0200
committerGerd Möllmann2024-06-23 18:21:54 +0200
commit50853a01918c854caa50268b260265fe7abe6c0d (patch)
treea7a3809165bdbe22e844b2235e492780cf4444f3 /src/data.c
parent555cb9c784efffce67dfbfbe714802140c11372f (diff)
downloademacs-50853a01918c854caa50268b260265fe7abe6c0d.tar.gz
emacs-50853a01918c854caa50268b260265fe7abe6c0d.zip
Remove struct Lisp_Objfwd
* src/lisp.h (struct Lisp_Objfwd): Deleted. (struct Lisp_Fwd): Replace it with objvar field. (DEFVAR_LISP, DEFVAR_LISP_NOPRO, DEFVAR_LISP_NOPROX): Use the field. * src/lread.c (defvar_lisp): Updated as needed. * src/pdumper.c (dump_field_fwd): Use the field. * src/data.c (XOBJVAR): Renamed and updated from XOBJFWD. (do_symval_forwarding, store_symval_forwarding): Use it.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/data.c b/src/data.c
index 292a2f2cf06..af4802f54a0 100644
--- a/src/data.c
+++ b/src/data.c
@@ -73,11 +73,11 @@ XINTVAR (lispfwd a)
73 eassert (INTFWDP (a)); 73 eassert (INTFWDP (a));
74 return a->u.intvar; 74 return a->u.intvar;
75} 75}
76static struct Lisp_Objfwd const * 76static Lisp_Object *
77XOBJFWD (lispfwd a) 77XOBJVAR (lispfwd a)
78{ 78{
79 eassert (OBJFWDP (a)); 79 eassert (OBJFWDP (a));
80 return &a->u.objfwd; 80 return a->u.objvar;
81} 81}
82 82
83static void 83static void
@@ -1339,7 +1339,7 @@ do_symval_forwarding (lispfwd valcontents)
1339 return (*XBOOLVAR (valcontents) ? Qt : Qnil); 1339 return (*XBOOLVAR (valcontents) ? Qt : Qnil);
1340 1340
1341 case Lisp_Fwd_Obj: 1341 case Lisp_Fwd_Obj:
1342 return *XOBJFWD (valcontents)->objvar; 1342 return *XOBJVAR (valcontents);
1343 1343
1344 case Lisp_Fwd_Buffer_Obj: 1344 case Lisp_Fwd_Buffer_Obj:
1345 return per_buffer_value (current_buffer, 1345 return per_buffer_value (current_buffer,
@@ -1428,16 +1428,16 @@ store_symval_forwarding (lispfwd valcontents, Lisp_Object newval,
1428 break; 1428 break;
1429 1429
1430 case Lisp_Fwd_Obj: 1430 case Lisp_Fwd_Obj:
1431 *XOBJFWD (valcontents)->objvar = newval; 1431 *XOBJVAR (valcontents) = newval;
1432 1432
1433 /* If this variable is a default for something stored 1433 /* If this variable is a default for something stored
1434 in the buffer itself, such as default-fill-column, 1434 in the buffer itself, such as default-fill-column,
1435 find the buffers that don't have local values for it 1435 find the buffers that don't have local values for it
1436 and update them. */ 1436 and update them. */
1437 if (XOBJFWD (valcontents)->objvar > (Lisp_Object *) &buffer_defaults 1437 if (XOBJVAR (valcontents) > (Lisp_Object *) &buffer_defaults
1438 && XOBJFWD (valcontents)->objvar < (Lisp_Object *) (&buffer_defaults + 1)) 1438 && XOBJVAR (valcontents) < (Lisp_Object *) (&buffer_defaults + 1))
1439 { 1439 {
1440 int offset = ((char *) XOBJFWD (valcontents)->objvar 1440 int offset = ((char *) XOBJVAR (valcontents)
1441 - (char *) &buffer_defaults); 1441 - (char *) &buffer_defaults);
1442 int idx = PER_BUFFER_IDX (offset); 1442 int idx = PER_BUFFER_IDX (offset);
1443 1443