mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 07:30:50 -08:00
Code Issues Projects Releases Wiki Activity

(tamil-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:33:28 +00:00
parent fd19b75d04
commit 33e2c0dadb
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/language/tml-util.el
View file

@ -360,17 +360,18 @@
If STRING is not nil, it is a string, and POS is an index to the string.
In this case, compose characters after POS of the string."
(if string
(if (eq (string-match tamil-composable-pattern pos) pos)
(if auto-compose-current-font
(if auto-compose-current-font
(if (eq (string-match "[$,1< (B-$,1=?(B]+" pos) pos)
(or (font-shape-text 0 (match-end 0) auto-compose-current-font
string)
pos)))
(goto-char pos)
(if (looking-at tamil-composable-pattern)
(if auto-compose-current-font
(if auto-compose-current-font
(if (looking-at "[$,1< (B-$,1=?(B]+")
(or (font-shape-text pos (match-end 0) auto-compose-current-font))
(prog1 (match-end 0)
(tamil-compose-syllable-region pos (match-end 0)))))))
(if (looking-at tamil-composable-pattern)
(prog1 (match-end 0)
(tamil-compose-syllable-region pos (match-end 0))))))))
(provide 'tml-util)