265 |
(compose-string string idx (match-end 0)) |
(compose-string string idx (match-end 0)) |
266 |
(setq idx (match-end 0))))) |
(setq idx (match-end 0))))) |
267 |
string) |
string) |
268 |
|
|
269 |
;;;###autoload |
;;;###autoload |
270 |
(defun thai-compose-buffer () |
(defun thai-compose-buffer () |
271 |
"Compose Thai characters in the current buffer." |
"Compose Thai characters in the current buffer." |
286 |
|
|
287 |
The return value is number of composed characters." |
The return value is number of composed characters." |
288 |
(if (< (1+ from) to) |
(if (< (1+ from) to) |
289 |
(prog1 (- to from) |
(progn |
290 |
(if string |
(if string |
291 |
(compose-string string from to) |
(compose-string string from to) |
292 |
(compose-region from to)) |
(compose-region from to)) |