From f08e576af21f11653d05e4a3000969a41c42ccd1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Jul 1993 07:58:22 +0000 Subject: (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks. --- src/textprop.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/textprop.c') diff --git a/src/textprop.c b/src/textprop.c index dd04b2f209a..a007e4eb3b2 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -55,6 +55,8 @@ Lisp_Object Qinvisible, Qread_only; traversing plists. */ #define PLIST_ELT_P(o1, o2) (CONSP (o1) && CONSP ((o2) = XCONS (o1)->cdr)) +Lisp_Object Vinhibit_point_motion_hooks; + /* Extract the interval at the position pointed to by BEGIN from OBJECT, a string or buffer. Additionally, check that the positions @@ -1178,6 +1180,11 @@ syms_of_textprop () percentage by which the left interval tree should not differ from the right."); interval_balance_threshold = 8; + DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, + "If nonnil, don't call the text property values of\n\ +`point-left' and `point-entered'."); + Vinhibit_point_motion_hooks = Qnil; + /* Common attributes one might give text */ staticpro (&Qforeground); -- cgit v1.2.1