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. */