# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1230679975 0
# Node ID 79c848cc0c06255f69dafd0298e4043a26809d37
# Parent  a001ee1859000ac8dbc0b549fedef40f0a69ece6
(lglyph-set-code): New function.

diff -r a001ee185900 -r 79c848cc0c06 lisp/composite.el
--- a/lisp/composite.el	Tue Dec 30 21:59:52 2008 +0000
+++ b/lisp/composite.el	Tue Dec 30 23:32:55 2008 +0000
@@ -445,6 +445,7 @@
 (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))))