Mercurial > hg > xemacs-beta

comparison src/insdel.c @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 7e54bd776075
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
1217 static void 1217 static void
1218 signal_first_change (struct buffer *buf) 1218 signal_first_change (struct buffer *buf)
1219 { 1219 {
1220 /* This function can GC */ 1220 /* This function can GC */
1221 Lisp_Object buffer; 1221 Lisp_Object buffer;
1222 XSETBUFFER (buffer, buf); 1222 XSETBUFFER (buffer, current_buffer);
1223 1223
1224 if (!in_first_change) 1224 if (!in_first_change)
1225 { 1225 {
1226 if (!preparing_for_armageddon && 1226 if (!preparing_for_armageddon &&
1227 !NILP (symbol_value_in_buffer (Qfirst_change_hook, buffer))) 1227 !NILP (symbol_value_in_buffer (Qfirst_change_hook, buffer)))
1279 signal_first_change (buf); 1279 signal_first_change (buf);
1280 1280
1281 /* Now in any case run the before-change-functions if any. */ 1281 /* Now in any case run the before-change-functions if any. */
1282 1282
1283 if (!preparing_for_armageddon && 1283 if (!preparing_for_armageddon &&
1284 !EQ (buffer, Vprin1_to_string_buffer) &&
1284 (!NILP (symbol_value_in_buffer (Qbefore_change_functions, buffer)) || 1285 (!NILP (symbol_value_in_buffer (Qbefore_change_functions, buffer)) ||
1285 /* Obsolete, for compatibility */ 1286 /* Obsolete, for compatibility */
1286 !NILP (symbol_value_in_buffer (Qbefore_change_function, buffer)))) 1287 !NILP (symbol_value_in_buffer (Qbefore_change_function, buffer))))
1287 { 1288 {
1288 int speccount = specpdl_depth (); 1289 int speccount = specpdl_depth ();
1337 buf->text->changes->mc_new_end += new_end - orig_end; 1338 buf->text->changes->mc_new_end += new_end - orig_end;
1338 return; /* after-change-functions signalled when all changes done */ 1339 return; /* after-change-functions signalled when all changes done */
1339 } 1340 }
1340 1341
1341 if (!preparing_for_armageddon && 1342 if (!preparing_for_armageddon &&
1343 !EQ (buffer, Vprin1_to_string_buffer) &&
1342 (!NILP (symbol_value_in_buffer (Qafter_change_functions, buffer)) || 1344 (!NILP (symbol_value_in_buffer (Qafter_change_functions, buffer)) ||
1343 /* Obsolete, for compatibility */ 1345 /* Obsolete, for compatibility */
1344 !NILP (symbol_value_in_buffer (Qafter_change_function, buffer)))) 1346 !NILP (symbol_value_in_buffer (Qafter_change_function, buffer))))
1345 { 1347 {
1346 int speccount = specpdl_depth (); 1348 int speccount = specpdl_depth ();