Mercurial > emacs
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 |