142 |
if (EQ (current_buffer->undo_list, Qt)) |
if (EQ (current_buffer->undo_list, Qt)) |
143 |
return; |
return; |
144 |
|
|
145 |
if (PT == beg + XSTRING (string)->size) |
if (PT == beg + SCHARS (string)) |
146 |
{ |
{ |
147 |
XSETINT (sbeg, -beg); |
XSETINT (sbeg, -beg); |
148 |
record_point (PT); |
record_point (PT); |
334 |
size_so_far += sizeof (struct Lisp_Cons); |
size_so_far += sizeof (struct Lisp_Cons); |
335 |
if (STRINGP (XCAR (elt))) |
if (STRINGP (XCAR (elt))) |
336 |
size_so_far += (sizeof (struct Lisp_String) - 1 |
size_so_far += (sizeof (struct Lisp_String) - 1 |
337 |
+ XSTRING (XCAR (elt))->size); |
+ SCHARS (XCAR (elt))); |
338 |
} |
} |
339 |
|
|
340 |
/* Advance to next element. */ |
/* Advance to next element. */ |
369 |
size_so_far += sizeof (struct Lisp_Cons); |
size_so_far += sizeof (struct Lisp_Cons); |
370 |
if (STRINGP (XCAR (elt))) |
if (STRINGP (XCAR (elt))) |
371 |
size_so_far += (sizeof (struct Lisp_String) - 1 |
size_so_far += (sizeof (struct Lisp_String) - 1 |
372 |
+ XSTRING (XCAR (elt))->size); |
+ SCHARS (XCAR (elt))); |
373 |
} |
} |
374 |
|
|
375 |
/* Advance to next element. */ |
/* Advance to next element. */ |