* src/textprop.c (text_property_stickiness): Fix front-stickiness at BOB.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9947ba4b070e491dad78d52b43359de3e6550cb3..123feaffae04c286e4f102ca17a921f6212a4f64 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2013-11-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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 b804f345047e262f2b011529aaf7853fdb773668..6a750f1361f3d89765e6f6402bddbace285b9f74 100644 (file)
--- 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)