diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-23 07:59:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-23 07:59:08 +0000 |
| commit | ddd931ff513c3663b879621991480673916ae933 (patch) | |
| tree | d543bde891ed8915f3d1c479b34d252126a36334 /src/intervals.c | |
| parent | 688a5a0f3e4e1fed9c9e7982c8f30ff227a0439d (diff) | |
| download | emacs-ddd931ff513c3663b879621991480673916ae933.tar.gz | |
(set_point): Test Vinhibit_point_motion_hooks.
Diffstat (limited to 'src/intervals.c')
| -rw-r--r-- | src/intervals.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/intervals.c b/src/intervals.c index 402b96c4e37..b39709e0b9e 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1311,8 +1311,9 @@ set_point (position, buffer) /* We run point-left and point-entered hooks here, iff the two intervals are not equivalent. These hooks take (old_point, new_point) as arguments. */ - if (! intervals_equal (from, to) - || ! intervals_equal (fromprev, toprev)) + if (NILP (Vinhibit_point_motion_hooks) + && (! intervals_equal (from, to) + || ! intervals_equal (fromprev, toprev))) { Lisp_Object leave_after, leave_before, enter_after, enter_before; |