procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tibetan-composition-function): Use

Browse source 
font-shape-text if auto-compose-current-font is non-nil.
This commit is contained in:
Kenichi Handa 2007-12-06 07:36:14 +00:00
parent 599deafe67
commit 8c2e06cdf0
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/language/tibet-util.el
View file

@ -317,13 +317,17 @@ are decomposed into normal Tibetan character sequences."
;;;###autoload
(defun tibetan-composition-function (pos &optional string)
(setq pos (1- pos))
(if string
;; Not yet implemented.
nil
(if (>= pos (point-min))
(save-excursion
(goto-char pos)
(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))))))))