From: Kenichi Handa <handa@m17n.org>
Date: Tue, 30 Dec 2008 23:32:55 +0000 (+0000)
Subject: (lglyph-set-code): New function.
X-Git-Tag: emacs-pretest-23.0.90~791
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b23dc4242c9c5f37fb0790bdf83bbc008b8e675d;p=emacs.git

(lglyph-set-code): New function.
---

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))))