diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2000-08-08 14:39:19 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2000-08-08 14:39:19 +0000 |
| commit | d4225c08140da5c1d7a73de98245ad9fc49a1b81 (patch) | |
| tree | 87f7d13062b528398f5326379d3f2bca26d13e35 /src/textprop.c | |
| parent | cba7d658d827638ab0b09fbd2e437bfc557e09be (diff) | |
| download | emacs-d4225c08140da5c1d7a73de98245ad9fc49a1b81.tar.gz | |
(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
objects.
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/textprop.c b/src/textprop.c index f96e6bb6e7d..a14480bf294 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -790,7 +790,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.") else { Lisp_Object initial_value = - Fget_char_property (position - 1, prop, object); + Fget_char_property (make_number (XFASTINT (position) - 1), + prop, object); for (;;) { @@ -804,7 +805,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.") else { Lisp_Object value = - Fget_char_property (position - 1, prop, object); + Fget_char_property (make_number (XFASTINT (position) - 1), + prop, object); if (!EQ (value, initial_value)) break; |