diff options
| author | Kenichi Handa | 2008-08-29 10:57:29 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-08-29 10:57:29 +0000 |
| commit | 70a6526c975efdf821809aee872ea1944c85166f (patch) | |
| tree | b74f05330b3db9ad180fb3567e831cfbd143e71e | |
| parent | 77fa4db298a3c04218ed85dda07f42ef700b316f (diff) | |
| download | emacs-70a6526c975efdf821809aee872ea1944c85166f.tar.gz emacs-70a6526c975efdf821809aee872ea1944c85166f.zip | |
(lao-composition-function): Fix previous change.
| -rw-r--r-- | lisp/language/lao-util.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index adbe30f0622..1a520d55ab8 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el | |||
| @@ -491,17 +491,17 @@ syllable. In that case, FROM and TO are indexes to STR." | |||
| 491 | lao-str))) | 491 | lao-str))) |
| 492 | 492 | ||
| 493 | ;;;###autoload | 493 | ;;;###autoload |
| 494 | (defun lao-composition-function (from to font-object string) | 494 | (defun lao-composition-function (gstring) |
| 495 | (if (= (lgstirng-char-len gstring) 1) | 495 | (if (= (lgstring-char-len gstring) 1) |
| 496 | (compose-gstring-for-graphic gstring) | 496 | (compose-gstring-for-graphic gstring) |
| 497 | (or (font-shape-text from to font-object string)) | 497 | (or (font-shape-gstring gstring) |
| 498 | (let ((glyph-len (lgstring-glyph-len gstring)) | 498 | (let ((glyph-len (lgstring-glyph-len gstring)) |
| 499 | (i 0) | 499 | (i 0) |
| 500 | glyph) | 500 | glyph) |
| 501 | (while (and (< i glyph-len) | 501 | (while (and (< i glyph-len) |
| 502 | (setq glyph (lgstring-glyph gstring i))) | 502 | (setq glyph (lgstring-glyph gstring i))) |
| 503 | (setq i (1+ i))) | 503 | (setq i (1+ i))) |
| 504 | (compose-glyph-string-relative gstring 0 i 0.1)))) | 504 | (compose-glyph-string-relative gstring 0 i 0.1))))) |
| 505 | 505 | ||
| 506 | ;;;###autoload | 506 | ;;;###autoload |
| 507 | (defun lao-compose-region (from to) | 507 | (defun lao-compose-region (from to) |