aboutsummaryrefslogtreecommitdiffstats
path: root/src/undo.c
diff options
context:
space:
mode:
authorKen Raeburn2002-07-15 00:01:34 +0000
committerKen Raeburn2002-07-15 00:01:34 +0000
commitd5db40779d7505244d37476b4f046641f07eea2b (patch)
tree5c8bf4dad41639287e722cb7cbdc0709e47a9e53 /src/undo.c
parent491c2516d32fa8b9ba9422ec142c8925dd82af00 (diff)
downloademacs-d5db40779d7505244d37476b4f046641f07eea2b.tar.gz
emacs-d5db40779d7505244d37476b4f046641f07eea2b.zip
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
SCHARS, SBYTES, STRING_INTERVALS, SREF, SDATA; explicit size_byte references left unchanged for now.
Diffstat (limited to 'src/undo.c')
-rw-r--r--src/undo.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/undo.c b/src/undo.c
index 714c3022d96..edb07147a0a 100644
--- a/src/undo.c
+++ b/src/undo.c
@@ -142,7 +142,7 @@ record_delete (beg, string)
142 if (EQ (current_buffer->undo_list, Qt)) 142 if (EQ (current_buffer->undo_list, Qt))
143 return; 143 return;
144 144
145 if (PT == beg + XSTRING (string)->size) 145 if (PT == beg + SCHARS (string))
146 { 146 {
147 XSETINT (sbeg, -beg); 147 XSETINT (sbeg, -beg);
148 record_point (PT); 148 record_point (PT);
@@ -334,7 +334,7 @@ truncate_undo_list (list, minsize, maxsize)
334 size_so_far += sizeof (struct Lisp_Cons); 334 size_so_far += sizeof (struct Lisp_Cons);
335 if (STRINGP (XCAR (elt))) 335 if (STRINGP (XCAR (elt)))
336 size_so_far += (sizeof (struct Lisp_String) - 1 336 size_so_far += (sizeof (struct Lisp_String) - 1
337 + XSTRING (XCAR (elt))->size); 337 + SCHARS (XCAR (elt)));
338 } 338 }
339 339
340 /* Advance to next element. */ 340 /* Advance to next element. */
@@ -369,7 +369,7 @@ truncate_undo_list (list, minsize, maxsize)
369 size_so_far += sizeof (struct Lisp_Cons); 369 size_so_far += sizeof (struct Lisp_Cons);
370 if (STRINGP (XCAR (elt))) 370 if (STRINGP (XCAR (elt)))
371 size_so_far += (sizeof (struct Lisp_String) - 1 371 size_so_far += (sizeof (struct Lisp_String) - 1
372 + XSTRING (XCAR (elt))->size); 372 + SCHARS (XCAR (elt)));
373 } 373 }
374 374
375 /* Advance to next element. */ 375 /* Advance to next element. */