summaryrefslogtreecommitdiff
path: root/lisp/composite.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2008-12-30 23:32:55 +0000
committerKenichi Handa <handa@m17n.org>2008-12-30 23:32:55 +0000
commitb23dc4242c9c5f37fb0790bdf83bbc008b8e675d (patch)
treed92fd7ae89152cba677950a19b1e9fa57873e77e /lisp/composite.el
parent19eb68d04b87d468df765da8b0fa2d9d2ad2322f (diff)
downloademacs-b23dc4242c9c5f37fb0790bdf83bbc008b8e675d.tar.gz
(lglyph-set-code): New function.
Diffstat (limited to 'lisp/composite.el')
-rw-r--r--lisp/composite.el1
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."
(defsubst lglyph-set-from-to (glyph from to)
(progn (aset glyph 0 from) (aset glyph 1 to)))
(defsubst lglyph-set-char (glyph char) (aset glyph 2 char))
+(defsubst lglyph-set-code (glyph code) (aset glyph 3 code))
(defsubst lglyph-set-width (glyph width) (aset glyph 4 width))
(defsubst lglyph-set-adjustment (glyph &optional xoff yoff wadjust)
(aset glyph 9 (vector (or xoff 0) (or yoff 0) (or wadjust 0))))