mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 23:31:55 -08:00
Code Issues Projects Releases Wiki Activity

(Fprevious_property_change): Move back at least 1 char.

Browse source 
(Fprevious_single_property_change): Likewise.
This commit is contained in:
Richard M. Stallman 1994-01-20 19:54:47 +00:00
parent 3bf5f17a18
commit 53b7feeccb
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/textprop.c
View file

@ -647,6 +647,10 @@ back past position LIMIT; fail if nothing is found before LIMIT.")
if (NULL_INTERVAL_P (i))
return limit;
/* Start with the interval containing the char before point. */
if (i->position == XFASTINT (pos))
i = previous_interval (i);
previous = previous_interval (i);
while (! NULL_INTERVAL_P (previous) && intervals_equal (previous, i)
&& (NILP (limit)
@ -686,6 +690,10 @@ back past position LIMIT; fail if nothing is found before LIMIT.")
if (NULL_INTERVAL_P (i))
return limit;
/* Start with the interval containing the char before point. */
if (i->position == XFASTINT (pos))
i = previous_interval (i);
here_val = textget (i->plist, prop);
previous = previous_interval (i);
while (! NULL_INTERVAL_P (previous)