Mercurial > emacs
comparison lisp/language/tibet-util.el @ 100812:fcf54585d38e
(tibetan-composition-function): Remove unused function, obsoleted by
2008-09-05 change to tibetan.el.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Thu, 01 Jan 2009 07:47:20 +0000 |
parents | 264a921383e3 |
children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
100811:4028e34487e6 | 100812:fcf54585d38e |
---|---|
309 slot (assq (aref str idx) tibetan-decompose-precomposition-alist) | 309 slot (assq (aref str idx) tibetan-decompose-precomposition-alist) |
310 new (concat new (if slot (cdr slot) (char-to-string char))) | 310 new (concat new (if slot (cdr slot) (char-to-string char))) |
311 idx (1+ idx))) | 311 idx (1+ idx))) |
312 new)) | 312 new)) |
313 | 313 |
314 ;;;###autoload | |
315 (defun tibetan-composition-function (from to font-object string) | |
316 (or (and font-object | |
317 (font-shape-text from to font-object string)) | |
318 (if string | |
319 (tibetan-compose-string string) | |
320 (tibetan-compose-region from to)))) | |
321 | |
322 ;;; | 314 ;;; |
323 ;;; This variable is used to avoid repeated decomposition. | 315 ;;; This variable is used to avoid repeated decomposition. |
324 ;;; | 316 ;;; |
325 (setq-default tibetan-decomposed nil) | 317 (setq-default tibetan-decomposed nil) |
326 | 318 |