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 | 2d1ed333cfca7cbeb10ae4d610af5eaf24838b55 (patch) | |
| tree | e1296bafed10f1c609e7800eed896ef44d4f50d5 /src/intervals.c | |
| parent | f08e576af21f11653d05e4a3000969a41c42ccd1 (diff) | |
| download | emacs-2d1ed333cfca7cbeb10ae4d610af5eaf24838b55.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; |