Mercurial > emacs

changeset 48134:ef2b87569c38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(get_pos_property): Don't hardcode Qfield.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 03 Nov 2002 10:59:18 +0000
parents 0c75cb82ad34
children 2c6154347319
files src/editfns.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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;
   }