diff options
| author | Kenichi Handa | 2008-08-29 07:56:40 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-08-29 07:56:40 +0000 |
| commit | db2f2cdcb9a475a683458f1ecf3dfa4326346811 (patch) | |
| tree | b733d9efb03869887a291c19c758ddd3d1c609f7 /src | |
| parent | d6721dda7faaaa1bab0a48b271c27151cf8be4b7 (diff) | |
| download | emacs-db2f2cdcb9a475a683458f1ecf3dfa4326346811.tar.gz emacs-db2f2cdcb9a475a683458f1ecf3dfa4326346811.zip | |
(adjust_point_for_property): Check composition by
composition_adjust_point.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 9650b574ccf..e957e7e5c8f 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -1994,13 +1994,9 @@ adjust_point_for_property (last_pt, modified) | |||
| 1994 | /* FIXME: check `intangible'. */ | 1994 | /* FIXME: check `intangible'. */ |
| 1995 | if (check_composition | 1995 | if (check_composition |
| 1996 | && PT > BEGV && PT < ZV | 1996 | && PT > BEGV && PT < ZV |
| 1997 | && get_property_and_range (PT, Qcomposition, &val, &beg, &end, Qnil) | 1997 | && (beg = composition_adjust_point (last_pt)) != PT) |
| 1998 | && COMPOSITION_VALID_P (beg, end, val) | ||
| 1999 | && beg < PT /* && end > PT <- It's always the case. */ | ||
| 2000 | && (last_pt <= beg || last_pt >= end)) | ||
| 2001 | { | 1998 | { |
| 2002 | xassert (end > PT); | 1999 | SET_PT (beg); |
| 2003 | SET_PT (PT < last_pt ? beg : end); | ||
| 2004 | check_display = check_invisible = 1; | 2000 | check_display = check_invisible = 1; |
| 2005 | } | 2001 | } |
| 2006 | check_composition = 0; | 2002 | check_composition = 0; |