Mercurial > emacs
changeset 28791:bdf7581eb093
(lao-compose-region): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 03 May 2000 03:28:39 +0000 |
| parents | 2e6e5663d453 |
| children | f870c858cfdf |
| files | lisp/language/lao-util.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/lao-util.el Wed May 03 03:09:02 2000 +0000 +++ b/lisp/language/lao-util.el Wed May 03 03:28:39 2000 +0000 @@ -505,6 +505,16 @@ (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)