comparison lisp/language/tibet-util.el @ 100812:fcf54585d38e

(tibetan-composition-function): Remove unused function, obsoleted by 2008-09-05 change to tibetan.el.

100811:4028e34487e6

	    slot (assq (aref str idx) tibetan-decompose-precomposition-alist)
	    new (concat new (if slot (cdr slot) (char-to-string char)))
	    idx (1+ idx)))
    new))

;;;###autoload
(defun tibetan-composition-function (from to font-object string)
  (or (and font-object
	   (font-shape-text from to font-object string))
      (if string
	  (tibetan-compose-string string)
	(tibetan-compose-region from to))))

;;;
;;; This variable is used to avoid repeated decomposition.
;;;
(setq-default tibetan-decomposed nil)

100812:fcf54585d38e

	    slot (assq (aref str idx) tibetan-decompose-precomposition-alist)
	    new (concat new (if slot (cdr slot) (char-to-string char)))
	    idx (1+ idx)))
    new))

;;;
;;; This variable is used to avoid repeated decomposition.
;;;
(setq-default tibetan-decomposed nil)