diff options
| author | Kenichi Handa | 1998-10-08 06:45:36 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-08 06:45:36 +0000 |
| commit | fd16a4c6d89567554b755f27e642738349302336 (patch) | |
| tree | c43af9e0215619bffaea5579b8f893d7973fd04d /src | |
| parent | 7775635d6fb6a75029051dc681e569b3d1af7ea9 (diff) | |
| download | emacs-fd16a4c6d89567554b755f27e642738349302336.tar.gz emacs-fd16a4c6d89567554b755f27e642738349302336.zip | |
(signal_before_change): If inhibit_modification_hooks
is nonzero, do nothing.
(signal_after_change): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/insdel.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/insdel.c b/src/insdel.c index 17660c962dc..a7807dd2d91 100644 --- a/src/insdel.c +++ b/src/insdel.c | |||
| @@ -2320,6 +2320,9 @@ signal_before_change (start_int, end_int, preserve_ptr) | |||
| 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; |
| @@ -2406,6 +2409,9 @@ 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. */ |