comparison src/cmds.c @ 4561:f8a991076926

(Fnewline): If we don't do the first SET_PT, clear flag, so we don't do the second SET_PT.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Aug 1993 19:09:15 +0000
parents 189b84c7dbc5
children 1fc792473491
comparison
equal deleted inserted replaced
4560:106e0040381f 4561:f8a991076926
251 We can't use internal_self_insert in that case since it won't do 251 We can't use internal_self_insert in that case since it won't do
252 the insertion correctly. Luckily, internal_self_insert's special 252 the insertion correctly. Luckily, internal_self_insert's special
253 features all do nothing in that case. */ 253 features all do nothing in that case. */
254 254
255 flag = point > BEGV && FETCH_CHAR (point - 1) == '\n'; 255 flag = point > BEGV && FETCH_CHAR (point - 1) == '\n';
256 #ifdef USE_TEXT_PROPERTIES
257 /* We cannot use this optimization if properties change
258 in the vicinity.
259 ??? We need to check for change hook properties, etc. */
256 if (flag) 260 if (flag)
257 /* We cannot use this optimization if properties change 261 if (! (point - 1 > BEGV && ! property_change_between_p (point - 2, point)))
258 in the vicinity. 262 flag = 0;
259 ??? We need to check for change hook properties, etc. */
260 #ifdef USE_TEXT_PROPERTIES
261 if (point - 1 > BEGV && ! property_change_between_p (point - 2, point))
262 #endif 263 #endif
263 SET_PT (point - 1); 264
265 if (flag)
266 SET_PT (point - 1);
264 267
265 while (XINT (arg) > 0) 268 while (XINT (arg) > 0)
266 { 269 {
267 if (flag) 270 if (flag)
268 insert (&c1, 1); 271 insert (&c1, 1);