(auto-compose-chars): Be sure to calculate

composition at least at POS.

diff --git a/lisp/composite.el b/lisp/composite.el
index 5ee6241..e73d9ef 100644 (file)
--- 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