Mercurial > emacs
comparison lisp/language/tibet-util.el @ 42839:df6b9860f119
(tibetan-decompose-region)
(tibetan-decompose-string): Fix typo in docstring.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Sat, 19 Jan 2002 19:12:45 +0000 |
parents | b174db545cfd |
children | 29a7076e3736 5b82d8f14d06 |
comparison
equal
deleted
inserted
replaced
42838:913ca287f1d7 | 42839:df6b9860f119 |
---|---|
259 | 259 |
260 ;;;###autoload | 260 ;;;###autoload |
261 (defun tibetan-decompose-region (from to) | 261 (defun tibetan-decompose-region (from to) |
262 "Decompose Tibetan text in the region FROM and TO. | 262 "Decompose Tibetan text in the region FROM and TO. |
263 This is different from decompose-region because precomposed Tibetan characters | 263 This is different from decompose-region because precomposed Tibetan characters |
264 are decomposed into normal Tiebtan character sequences." | 264 are decomposed into normal Tibetan character sequences." |
265 (interactive "r") | 265 (interactive "r") |
266 (save-restriction | 266 (save-restriction |
267 (narrow-to-region from to) | 267 (narrow-to-region from to) |
268 (decompose-region from to) | 268 (decompose-region from to) |
269 (goto-char from) | 269 (goto-char from) |
279 | 279 |
280 ;;;###autoload | 280 ;;;###autoload |
281 (defun tibetan-decompose-string (str) | 281 (defun tibetan-decompose-string (str) |
282 "Decompose Tibetan string STR. | 282 "Decompose Tibetan string STR. |
283 This is different from decompose-string because precomposed Tibetan characters | 283 This is different from decompose-string because precomposed Tibetan characters |
284 are decomposed into normal Tiebtan character sequences." | 284 are decomposed into normal Tibetan character sequences." |
285 (let ((new "") | 285 (let ((new "") |
286 (len (length str)) | 286 (len (length str)) |
287 (idx 0) | 287 (idx 0) |
288 char slot) | 288 char slot) |
289 (while (< idx len) | 289 (while (< idx len) |