(auto-compose-region): New function.

diff --git a/lisp/composite.el b/lisp/composite.el
index 3db2ff09644e19aec5dbe9c099a97cb9b1839ad0..ad1a37f69cb70c46307347522980dd7613cb597c 100644 (file)
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -456,6 +456,32 @@ With arg, enable it iff arg is positive."
       (save-restriction
        (widen)
        (put-text-property (point-min) (point-max) 'auto-composed nil)))))
+
+(defun auto-compose-region (from to)
+  "Force automatic character composition on the region FROM and TO."
+  (save-excursion
+    (if (get-text-property from 'auto-composed)
+       (setq from (next-single-property-change from 'auto-composed nil to)))
+    (goto-char from)
+    (let ((modified-p (buffer-modified-p))
+         (inhibit-read-only '(composition auto-composed))
+         (stop (next-single-property-change (point) 'auto-composed nil to)))
+      (while (< (point) to)
+       (if (= (point) stop)
+           (progn
+             (goto-char (next-single-property-change (point)
+                                                     'auto-composed nil to))
+             (setq stop (next-single-property-change (point)
+                                                     'auto-composed nil to)))
+         (let ((func (aref composition-function-table (following-char)))
+               (pos (point)))
+           (if (functionp func)
+               (goto-char (funcall func (point) nil)))
+           (if (<= (point) pos)
+               (forward-char 1)))))
+      (put-text-property from to 'auto-composed t)
+      (set-buffer-modified-p modified-p))))
+
 \f
 ;;; The following codes are only for backward compatibility with Emacs
 ;;; 20.4 and earlier.