Skip to content

GitLab

Commit 70a6526c authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent 77fa4db2
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
lisp/language/lao-util.el
View file @ 70a6526c
...@@ -491,17 +491,17 @@ syllable. In that case, FROM and TO are indexes to STR." ...@@ -491,17 +491,17 @@ syllable. In that case, FROM and TO are indexes to STR."
lao-str))) lao-str)))
;;;###autoload ;;;###autoload
(defun lao-composition-function (from to font-object string) (defun lao-composition-function (gstring)
(if (= (lgstirng-char-len gstring) 1) (if (= (lgstring-char-len gstring) 1)
(compose-gstring-for-graphic gstring) (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)) (let ((glyph-len (lgstring-glyph-len gstring))
(i 0) (i 0)
glyph) glyph)
(while (and (< i glyph-len) (while (and (< i glyph-len)
(setq glyph (lgstring-glyph gstring i))) (setq glyph (lgstring-glyph gstring i)))
(setq i (1+ i))) (setq i (1+ i)))
(compose-glyph-string-relative gstring 0 i 0.1)))) (compose-glyph-string-relative gstring 0 i 0.1)))))
;;;###autoload ;;;###autoload
(defun lao-compose-region (from to) (defun lao-compose-region (from to)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment