summaryrefslogtreecommitdiff
path: root/lisp/composite.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2007-12-10 07:37:12 +0000
committerKenichi Handa <handa@m17n.org>2007-12-10 07:37:12 +0000
commit70740f9c9c961f6e7ed01ab71a50a5989378e6f1 (patch)
tree849272c191327c5732cd4e536dce1f4d68e84aa6 /lisp/composite.el
parent365131acac2845938da31563bd4453a9c5e71ebc (diff)
downloademacs-70740f9c9c961f6e7ed01ab71a50a5989378e6f1.tar.gz
(auto-compose-chars): Be sure to calculate
composition at least at POS.
Diffstat (limited to 'lisp/composite.el')
-rw-r--r--lisp/composite.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/composite.el b/lisp/composite.el
index 5ee62412b62..e73d9ef1ef8 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -489,7 +489,8 @@ This function is the default value of `auto-composition-function' (which see)."
auto-compose-current-font
ch func newpos)
(setq limit
- (or (text-property-any pos limit 'auto-composed t string)
+ (or (text-property-any (1+ pos) limit 'auto-composed t
+ string)
limit)
pos
(catch 'tag