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)