From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 Jul 1993 07:58:22 +0000 (+0000)
Subject: (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
X-Git-Tag: emacs-19.34~11609
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=688a5a0f3e4e1fed9c9e7982c8f30ff227a0439d;p=emacs.git

(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
---

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);