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 | b3feee09faff473a2f750bdd8e035ed0003c3877 (patch) | |
tree | 77566e332e9094b469ecf3cad30f0f345016fd71 /src/textprop.c | |
parent | df70f8027a9a0f58f65057a6db3957f0fdc56806 (diff) | |
download | emacs-b3feee09faff473a2f750bdd8e035ed0003c3877.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; |