diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/intervals.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/intervals.c b/src/intervals.c index 1a5c2c95322..159cc3693ac 100644 --- a/src/intervals.c +++ b/src/intervals.c | |||
| @@ -1886,7 +1886,7 @@ set_point_both (buffer, charpos, bytepos) | |||
| 1886 | Qintangible, Qnil); | 1886 | Qintangible, Qnil); |
| 1887 | 1887 | ||
| 1888 | /* If following char is intangible, | 1888 | /* If following char is intangible, |
| 1889 | skip back over all chars with matching intangible property. */ | 1889 | skip forward over all chars with matching intangible property. */ |
| 1890 | if (! NILP (intangible_propval)) | 1890 | if (! NILP (intangible_propval)) |
| 1891 | while (XINT (pos) < BUF_ZV (buffer) | 1891 | while (XINT (pos) < BUF_ZV (buffer) |
| 1892 | && EQ (Fget_char_property (pos, Qintangible, Qnil), | 1892 | && EQ (Fget_char_property (pos, Qintangible, Qnil), |
| @@ -2001,7 +2001,7 @@ move_if_not_intangible (position) | |||
| 2001 | Qintangible, Qnil); | 2001 | Qintangible, Qnil); |
| 2002 | 2002 | ||
| 2003 | /* If following char is intangible, | 2003 | /* If following char is intangible, |
| 2004 | skip back over all chars with matching intangible property. */ | 2004 | skip forward over all chars with matching intangible property. */ |
| 2005 | if (! NILP (intangible_propval)) | 2005 | if (! NILP (intangible_propval)) |
| 2006 | while (XINT (pos) < ZV | 2006 | while (XINT (pos) < ZV |
| 2007 | && EQ (Fget_char_property (pos, Qintangible, Qnil), | 2007 | && EQ (Fget_char_property (pos, Qintangible, Qnil), |