# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1036321158 0
# Node ID ef2b87569c38e1695d33ca8b7e89a670d33454fa
# Parent  0c75cb82ad3417749c1dcecc03628a05b38144db
(get_pos_property): Don't hardcode Qfield.

diff -r 0c75cb82ad34 -r ef2b87569c38 src/editfns.c
--- a/src/editfns.c	Sun Nov 03 09:36:55 2002 +0000
+++ b/src/editfns.c	Sun Nov 03 10:59:18 2002 +0000
@@ -394,7 +394,7 @@
    If OBJECT is a window, then that window's buffer is used, but
    window-specific overlays are considered only if they are associated
    with OBJECT. */
-static Lisp_Object
+Lisp_Object
 get_pos_property (position, prop, object)
      Lisp_Object position, object;
      register Lisp_Object prop;
@@ -460,12 +460,12 @@
     }
 
   { /* Now check the text-properties.  */
-    int stickiness = text_property_stickiness (Qfield, position);
+    int stickiness = text_property_stickiness (prop, position);
     if (stickiness > 0)
-      return Fget_text_property (position, Qfield, Qnil);
+      return Fget_text_property (position, prop, Qnil);
     else if (stickiness < 0 && XINT (position) > BEGV)
       return Fget_text_property (make_number (XINT (position) - 1),
-				 Qfield, Qnil);
+				 prop, Qnil);
     else
       return Qnil;
   }