comparison src/editfns.c @ 48134:ef2b87569c38

(get_pos_property): Don't hardcode Qfield.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 03 Nov 2002 10:59:18 +0000
parents 72f8d789f551
children 4a69081f2ff4
comparison
equal deleted inserted replaced
48133:0c75cb82ad34 48134:ef2b87569c38
392 If OBJECT is a buffer, then overlay properties are considered as well as 392 If OBJECT is a buffer, then overlay properties are considered as well as
393 text properties. 393 text properties.
394 If OBJECT is a window, then that window's buffer is used, but 394 If OBJECT is a window, then that window's buffer is used, but
395 window-specific overlays are considered only if they are associated 395 window-specific overlays are considered only if they are associated
396 with OBJECT. */ 396 with OBJECT. */
397 static Lisp_Object 397 Lisp_Object
398 get_pos_property (position, prop, object) 398 get_pos_property (position, prop, object)
399 Lisp_Object position, object; 399 Lisp_Object position, object;
400 register Lisp_Object prop; 400 register Lisp_Object prop;
401 { 401 {
402 struct window *w = 0; 402 struct window *w = 0;
458 } 458 }
459 459
460 } 460 }
461 461
462 { /* Now check the text-properties. */ 462 { /* Now check the text-properties. */
463 int stickiness = text_property_stickiness (Qfield, position); 463 int stickiness = text_property_stickiness (prop, position);
464 if (stickiness > 0) 464 if (stickiness > 0)
465 return Fget_text_property (position, Qfield, Qnil); 465 return Fget_text_property (position, prop, Qnil);
466 else if (stickiness < 0 && XINT (position) > BEGV) 466 else if (stickiness < 0 && XINT (position) > BEGV)
467 return Fget_text_property (make_number (XINT (position) - 1), 467 return Fget_text_property (make_number (XINT (position) - 1),
468 Qfield, Qnil); 468 prop, Qnil);
469 else 469 else
470 return Qnil; 470 return Qnil;
471 } 471 }
472 } 472 }
473 473