diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-04 12:30:48 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-04 12:30:48 -0700 |
| commit | 1e792e4d80f58bdb5b460518729eb0585b10f8d3 (patch) | |
| tree | 73d3272a2f981ca1991c9cc6c6cae2ca403eda18 /src/textprop.c | |
| parent | aa86731f7416c8739f206d0c5eca52e2a6d3c827 (diff) | |
| download | emacs-1e792e4d80f58bdb5b460518729eb0585b10f8d3.tar.gz | |
* textprop.c (set_text_properties_1): Change while to do-while,
since the condition is always true at first.
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/textprop.c b/src/textprop.c index cd89efeb38d..53f92ec936b 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -1379,8 +1379,8 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie i = next_interval (i); } - /* We are starting at the beginning of an interval, I */ - while (len > 0) + /* We are starting at the beginning of an interval I. LEN is positive. */ + do { if (i == 0) abort (); @@ -1412,6 +1412,7 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie i = next_interval (i); } + while (len > 0); } DEFUN ("remove-text-properties", Fremove_text_properties, |