diff options
| author | Kenichi Handa | 2008-12-30 23:32:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-12-30 23:32:55 +0000 |
| commit | b23dc4242c9c5f37fb0790bdf83bbc008b8e675d (patch) | |
| tree | d92fd7ae89152cba677950a19b1e9fa57873e77e | |
| parent | 19eb68d04b87d468df765da8b0fa2d9d2ad2322f (diff) | |
| download | emacs-b23dc4242c9c5f37fb0790bdf83bbc008b8e675d.tar.gz emacs-b23dc4242c9c5f37fb0790bdf83bbc008b8e675d.zip | |
(lglyph-set-code): New function.
| -rw-r--r-- | lisp/composite.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/composite.el b/lisp/composite.el index 6d1a2f0bba5..8e924ace4e9 100644 --- a/lisp/composite.el +++ b/lisp/composite.el | |||
| @@ -445,6 +445,7 @@ after a sequence of character events." | |||
| 445 | (defsubst lglyph-set-from-to (glyph from to) | 445 | (defsubst lglyph-set-from-to (glyph from to) |
| 446 | (progn (aset glyph 0 from) (aset glyph 1 to))) | 446 | (progn (aset glyph 0 from) (aset glyph 1 to))) |
| 447 | (defsubst lglyph-set-char (glyph char) (aset glyph 2 char)) | 447 | (defsubst lglyph-set-char (glyph char) (aset glyph 2 char)) |
| 448 | (defsubst lglyph-set-code (glyph code) (aset glyph 3 code)) | ||
| 448 | (defsubst lglyph-set-width (glyph width) (aset glyph 4 width)) | 449 | (defsubst lglyph-set-width (glyph width) (aset glyph 4 width)) |
| 449 | (defsubst lglyph-set-adjustment (glyph &optional xoff yoff wadjust) | 450 | (defsubst lglyph-set-adjustment (glyph &optional xoff yoff wadjust) |
| 450 | (aset glyph 9 (vector (or xoff 0) (or yoff 0) (or wadjust 0)))) | 451 | (aset glyph 9 (vector (or xoff 0) (or yoff 0) (or wadjust 0)))) |