From a5fa8eb4848e64455cf1aa47198285f9fa8baca0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 25 Nov 2013 10:42:06 -0500 Subject: [PATCH] * src/textprop.c (text_property_stickiness): Fix front-stickiness at BOB. --- src/ChangeLog | 2 ++ src/textprop.c | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 9947ba4b070..123feaffae0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2013-11-25 Stefan Monnier + * textprop.c (text_property_stickiness): Fix front-stickiness at BOB. + * frame.c (Fhandle_focus_in, Fhandle_focus_out): Move to frame.el. (syms_of_frame): Don't defsubr them. diff --git a/src/textprop.c b/src/textprop.c index b804f345047..6a750f1361f 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -1820,7 +1820,7 @@ int text_property_stickiness (Lisp_Object prop, Lisp_Object pos, Lisp_Object buffer) { Lisp_Object prev_pos, front_sticky; - bool is_rear_sticky = 1, is_front_sticky = 0; /* defaults */ + bool is_rear_sticky = true, is_front_sticky = false; /* defaults */ Lisp_Object defalt = Fassq (prop, Vtext_property_default_nonsticky); if (NILP (buffer)) @@ -1841,10 +1841,10 @@ text_property_stickiness (Lisp_Object prop, Lisp_Object pos, Lisp_Object buffer) ? Fmemq (prop, rear_non_sticky) : rear_non_sticky)) /* PROP is rear-non-sticky. */ - is_rear_sticky = 0; + is_rear_sticky = false; } else - return 0; + is_rear_sticky = false; /* Consider following character. */ /* This signals an arg-out-of-range error if pos is outside the @@ -1855,7 +1855,7 @@ text_property_stickiness (Lisp_Object prop, Lisp_Object pos, Lisp_Object buffer) || (CONSP (front_sticky) && !NILP (Fmemq (prop, front_sticky)))) /* PROP is inherited from after. */ - is_front_sticky = 1; + is_front_sticky = true; /* Simple cases, where the properties are consistent. */ if (is_rear_sticky && !is_front_sticky) -- 2.39.2