Mercurial > emacs
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); |