Mercurial > emacs
comparison lisp/language/thai-util.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 28c480de4424 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 263 (let ((idx 0)) | 263 (let ((idx 0)) |
| 264 (while (setq idx (string-match thai-composition-pattern string idx)) | 264 (while (setq idx (string-match thai-composition-pattern string idx)) |
| 265 (compose-string string idx (match-end 0)) | 265 (compose-string string idx (match-end 0)) |
| 266 (setq idx (match-end 0))))) | 266 (setq idx (match-end 0))))) |
| 267 string) | 267 string) |
| 268 | 268 |
| 269 ;;;###autoload | 269 ;;;###autoload |
| 270 (defun thai-compose-buffer () | 270 (defun thai-compose-buffer () |
| 271 "Compose Thai characters in the current buffer." | 271 "Compose Thai characters in the current buffer." |
| 272 (interactive) | 272 (interactive) |
| 273 (thai-compose-region (point-min) (point-max))) | 273 (thai-compose-region (point-min) (point-max))) |