Mercurial > emacs
comparison src/insdel.c @ 23400:8a51c720f8d7
(signal_before_change): If inhibit_modification_hooks
is nonzero, do nothing.
(signal_after_change): Likewise.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 08 Oct 1998 06:45:36 +0000 |
parents | 6df1b016f5fc |
children | 84276318b663 |
comparison
equal
deleted
inserted
replaced
23399:e80c5f687340 | 23400:8a51c720f8d7 |
---|---|
2318 Lisp_Object start, end; | 2318 Lisp_Object start, end; |
2319 Lisp_Object start_marker, end_marker; | 2319 Lisp_Object start_marker, end_marker; |
2320 Lisp_Object preserve_marker; | 2320 Lisp_Object preserve_marker; |
2321 struct gcpro gcpro1, gcpro2, gcpro3; | 2321 struct gcpro gcpro1, gcpro2, gcpro3; |
2322 | 2322 |
2323 if (inhibit_modification_hooks) | |
2324 return; | |
2325 | |
2323 start = make_number (start_int); | 2326 start = make_number (start_int); |
2324 end = make_number (end_int); | 2327 end = make_number (end_int); |
2325 preserve_marker = Qnil; | 2328 preserve_marker = Qnil; |
2326 start_marker = Qnil; | 2329 start_marker = Qnil; |
2327 end_marker = Qnil; | 2330 end_marker = Qnil; |
2404 | 2407 |
2405 void | 2408 void |
2406 signal_after_change (charpos, lendel, lenins) | 2409 signal_after_change (charpos, lendel, lenins) |
2407 int charpos, lendel, lenins; | 2410 int charpos, lendel, lenins; |
2408 { | 2411 { |
2412 if (inhibit_modification_hooks) | |
2413 return; | |
2414 | |
2409 /* If we are deferring calls to the after-change functions | 2415 /* If we are deferring calls to the after-change functions |
2410 and there are no before-change functions, | 2416 and there are no before-change functions, |
2411 just record the args that we were going to use. */ | 2417 just record the args that we were going to use. */ |
2412 if (! NILP (Vcombine_after_change_calls) | 2418 if (! NILP (Vcombine_after_change_calls) |
2413 && NILP (Vbefore_change_function) && NILP (Vbefore_change_functions) | 2419 && NILP (Vbefore_change_function) && NILP (Vbefore_change_functions) |