(auto-compose-chars): Fix previous change.

diff --git a/lisp/composite.el b/lisp/composite.el
index 4f8f1cb..0b91656 100644 (file)
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -411,29 +411,30 @@ This function is the default value of `auto-composition-function' (which see)."
              (limit (if string (length string) (point-max)))
              ch func newpos)
          (setq limit (or (text-property-any pos limit 'auto-composed t string)
-                         limit))
-         (catch 'tag
-           (if string
-               (while (< pos limit)
-                 (setq ch (aref string pos))
-                 (if (= ch ?\n)
-                     (throw 'tag nil))
-                 (setq func (aref composition-function-table ch))
-                 (if (and (functionp func)
-                          (setq newpos (funcall func pos string))
-                          (> newpos pos))
-                     (setq pos newpos)
-                   (setq pos (1+ pos))))
-             (while (< pos limit)
-               (setq ch (char-after pos))
-               (if (= ch ?\n)
-                   (throw 'tag nil))
-               (setq func (aref composition-function-table ch))
-               (if (and (functionp func)
-                        (setq newpos (funcall func pos string))
-                        (> newpos pos))
-                   (setq pos newpos)
-                 (setq pos (1+ pos))))))
+                         limit)
+               pos (catch 'tag
+                     (if string
+                         (while (< pos limit)
+                           (setq ch (aref string pos))
+                           (if (= ch ?\n)
+                               (throw 'tag (1+ pos)))
+                           (setq func (aref composition-function-table ch))
+                           (if (and (functionp func)
+                                    (setq newpos (funcall func pos string))
+                                    (> newpos pos))
+                               (setq pos newpos)
+                             (setq pos (1+ pos))))
+                       (while (< pos limit)
+                         (setq ch (char-after pos))
+                         (if (= ch ?\n)
+                             (throw 'tag (1+ pos)))
+                         (setq func (aref composition-function-table ch))
+                         (if (and (functionp func)
+                                  (setq newpos (funcall func pos string))
+                                  (> newpos pos))
+                             (setq pos newpos)
+                           (setq pos (1+ pos)))))
+                     limit))
          (put-text-property start pos 'auto-composed t string))))))
 
 (setq auto-composition-function 'auto-compose-chars)