diff options
| author | Ken Raeburn | 2002-07-15 00:01:34 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2002-07-15 00:01:34 +0000 |
| commit | d5db40779d7505244d37476b4f046641f07eea2b (patch) | |
| tree | 5c8bf4dad41639287e722cb7cbdc0709e47a9e53 /src/undo.c | |
| parent | 491c2516d32fa8b9ba9422ec142c8925dd82af00 (diff) | |
| download | emacs-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.c | 6 |
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. */ |