mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(lao-composition-function): Fix previous change.

Browse Source
This commit is contained in:
Kenichi Handa 2008-08-29 10:57:29 +00:00
parent 77fa4db298
commit 70a6526c97
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/language/lao-util.el
View File

@ -491,17 +491,17 @@ syllable. In that case, FROM and TO are indexes to STR."
lao-str)))
;;;###autoload
(defun lao-composition-function (from to font-object string)
(if (= (lgstirng-char-len gstring) 1)
(defun lao-composition-function (gstring)
(if (= (lgstring-char-len gstring) 1)
(compose-gstring-for-graphic gstring)
(or (font-shape-text from to font-object string))
(or (font-shape-gstring gstring)
(let ((glyph-len (lgstring-glyph-len gstring))
(i 0)
glyph)
(while (and (< i glyph-len)
(setq glyph (lgstring-glyph gstring i)))
(setq i (1+ i)))
(compose-glyph-string-relative gstring 0 i 0.1))))
(compose-glyph-string-relative gstring 0 i 0.1)))))
;;;###autoload
(defun lao-compose-region (from to)