Mercurial > emacs
comparison src/undo.c @ 9322:0dceca89f978
(record_delete, record_first_change): Don't use XFASTINT as an lvalue.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 16:15:52 +0000 |
| parents | 05b2bd5d5559 |
| children | 323ad02feb1e |
comparison
equal
deleted
inserted
replaced
| 9321:e6759002383c | 9322:0dceca89f978 |
|---|---|
| 109 record_first_change (); | 109 record_first_change (); |
| 110 | 110 |
| 111 if (point == beg + length) | 111 if (point == beg + length) |
| 112 XSETINT (sbeg, -beg); | 112 XSETINT (sbeg, -beg); |
| 113 else | 113 else |
| 114 XFASTINT (sbeg) = beg; | 114 XSETFASTINT (sbeg, beg); |
| 115 XFASTINT (lbeg) = beg; | 115 XSETFASTINT (lbeg, beg); |
| 116 XFASTINT (lend) = beg + length; | 116 XSETFASTINT (lend, beg + length); |
| 117 | 117 |
| 118 /* If we are just after an undo boundary, and | 118 /* If we are just after an undo boundary, and |
| 119 point wasn't at start of deleted range, record where it was. */ | 119 point wasn't at start of deleted range, record where it was. */ |
| 120 if (at_boundary | 120 if (at_boundary |
| 121 && last_point_position != XFASTINT (sbeg) | 121 && last_point_position != XFASTINT (sbeg) |
| 152 | 152 |
| 153 if (current_buffer != XBUFFER (last_undo_buffer)) | 153 if (current_buffer != XBUFFER (last_undo_buffer)) |
| 154 Fundo_boundary (); | 154 Fundo_boundary (); |
| 155 XSETBUFFER (last_undo_buffer, current_buffer); | 155 XSETBUFFER (last_undo_buffer, current_buffer); |
| 156 | 156 |
| 157 XFASTINT (high) = (current_buffer->modtime >> 16) & 0xffff; | 157 XSETFASTINT (high, (current_buffer->modtime >> 16) & 0xffff); |
| 158 XFASTINT (low) = current_buffer->modtime & 0xffff; | 158 XSETFASTINT (low, current_buffer->modtime & 0xffff); |
| 159 current_buffer->undo_list = Fcons (Fcons (Qt, Fcons (high, low)), current_buffer->undo_list); | 159 current_buffer->undo_list = Fcons (Fcons (Qt, Fcons (high, low)), current_buffer->undo_list); |
| 160 } | 160 } |
| 161 | 161 |
| 162 /* Record a change in property PROP (whose old value was VAL) | 162 /* Record a change in property PROP (whose old value was VAL) |
| 163 for LENGTH characters starting at position BEG in BUFFER. */ | 163 for LENGTH characters starting at position BEG in BUFFER. */ |
