diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-05-03 03:28:39 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-05-03 03:28:39 +0000 |
| commit | 9b21ecc23fe4bff2eac5afab51a9561f0ce65bf6 (patch) | |
| tree | b7852810b4c97bd11ed19fbface91d23c023aa63 /lisp/language | |
| parent | ffec4d9fa7d414d143914e18ae1b4eb0845d9ea5 (diff) | |
| download | emacs-9b21ecc23fe4bff2eac5afab51a9561f0ce65bf6.tar.gz | |
(lao-compose-region): New function.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/lao-util.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index b12e63ae13d..02a16158bd4 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el @@ -505,6 +505,16 @@ The return value is number of composed characters." (compose-region from to)) (- to from)))) +;;;###autoload +(defun lao-compose-region (from to) + (interactive "r") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (with-category-table lao-category-table + (while (re-search-forward lao-composition-pattern nil t) + (compose-region (match-beginning 0) (point)))))) + ;; (provide 'lao-util) |