comparison lisp/language/tibet-util.el @ 92179:865352429518

(tibetan-composition-function): Adjusted for the new calling way (argument changed). Try font-shape-text if possible.

92178:008ecb0c705a

	    new (concat new (if slot (cdr slot) (char-to-string char)))
	    idx (1+ idx)))
    new))

;;;###autoload
(defun tibetan-composition-function (pos &optional string)
  (if string
      (if auto-compose-current-font
	  (if (eq (string-match "[$(7!0(B-$,1GQ(B]+" pos) pos)
	      (or (font-shape-text 0 (match-end 0) auto-compose-current-font
				   string)
		  pos)))
    (goto-char pos)
    (if auto-compose-current-font
	(if (looking-at "[$(7!0(B-$,1GQ(B]+")
	    (or (font-shape-text pos (match-end 0) auto-compose-current-font)
		pos)
	  (if (looking-at tibetan-composable-pattern)
	      (prog1 (match-end 0)
		(tibetan-compose-region pos (match-end 0))))))))

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

92179:865352429518

	    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)