mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-07-23 07:58:22 +00:00
parent b81de1f7e7
commit 688a5a0f3e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/textprop.c
View File

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