aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorHelmut Eller2024-06-23 15:34:55 +0200
committerHelmut Eller2026-02-12 18:51:51 +0100
commitd109bcf86e870d003b45930c82f8140e8ba415ac (patch)
treef7c924c4a3527ffc6df3f7b7e6fe9ec971968563 /src/data.c
parent9d9189f74c5bd23b249833d70c4390cdbf16fc68 (diff)
downloademacs-d109bcf86e870d003b45930c82f8140e8ba415ac.tar.gz
emacs-d109bcf86e870d003b45930c82f8140e8ba415ac.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 e33f4c92d35..337d640b2b5 100644
--- a/src/data.c
+++ b/src/data.c
@@ -71,11 +71,11 @@ XINTVAR (lispfwd a)
71 eassert (INTFWDP (a)); 71 eassert (INTFWDP (a));
72 return a->u.intvar; 72 return a->u.intvar;
73} 73}
74static struct Lisp_Objfwd const * 74static Lisp_Object *
75XOBJFWD (lispfwd a) 75XOBJVAR (lispfwd a)
76{ 76{
77 eassert (OBJFWDP (a)); 77 eassert (OBJFWDP (a));
78 return &a->u.objfwd; 78 return a->u.objvar;
79} 79}
80 80
81static void 81static void
@@ -1338,7 +1338,7 @@ do_symval_forwarding (lispfwd valcontents)
1338 return (*XBOOLVAR (valcontents) ? Qt : Qnil); 1338 return (*XBOOLVAR (valcontents) ? Qt : Qnil);
1339 1339
1340 case Lisp_Fwd_Obj: 1340 case Lisp_Fwd_Obj:
1341 return *XOBJFWD (valcontents)->objvar; 1341 return *XOBJVAR (valcontents);
1342 1342
1343 case Lisp_Fwd_Buffer_Obj: 1343 case Lisp_Fwd_Buffer_Obj:
1344 return per_buffer_value (current_buffer, 1344 return per_buffer_value (current_buffer,
@@ -1427,16 +1427,16 @@ store_symval_forwarding (lispfwd valcontents, Lisp_Object newval,
1427 break; 1427 break;
1428 1428
1429 case Lisp_Fwd_Obj: 1429 case Lisp_Fwd_Obj:
1430 *XOBJFWD (valcontents)->objvar = newval; 1430 *XOBJVAR (valcontents) = newval;
1431 1431
1432 /* If this variable is a default for something stored 1432 /* If this variable is a default for something stored
1433 in the buffer itself, such as default-fill-column, 1433 in the buffer itself, such as default-fill-column,
1434 find the buffers that don't have local values for it 1434 find the buffers that don't have local values for it
1435 and update them. */ 1435 and update them. */
1436 if (XOBJFWD (valcontents)->objvar > (Lisp_Object *) &buffer_defaults 1436 if (XOBJVAR (valcontents) > (Lisp_Object *) &buffer_defaults
1437 && XOBJFWD (valcontents)->objvar < (Lisp_Object *) (&buffer_defaults + 1)) 1437 && XOBJVAR (valcontents) < (Lisp_Object *) (&buffer_defaults + 1))
1438 { 1438 {
1439 int offset = ((char *) XOBJFWD (valcontents)->objvar 1439 int offset = ((char *) XOBJVAR (valcontents)
1440 - (char *) &buffer_defaults); 1440 - (char *) &buffer_defaults);
1441 int idx = PER_BUFFER_IDX (offset); 1441 int idx = PER_BUFFER_IDX (offset);
1442 1442