From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sat, 20 Apr 2019 03:50:32 +0000 (+0900)
Subject: * src/ftcrfont.c (ftcrfont_shape): Fix last change.
X-Git-Tag: emacs-27.0.90~3177
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ff6c657a206a9c5ff6f3cda26996fda00e7598d;p=emacs.git

* src/ftcrfont.c (ftcrfont_shape): Fix last change.
---

diff --git a/src/ftcrfont.c b/src/ftcrfont.c
index e341c409b1e..8a1c9a48e1f 100644
--- a/src/ftcrfont.c
+++ b/src/ftcrfont.c
@@ -25,6 +25,7 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include "lisp.h"
 #include "xterm.h"
 #include "blockinput.h"
+#include "composite.h"
 #include "font.h"
 #include "ftfont.h"
 #include "pdumper.h"
@@ -291,6 +292,7 @@ static Lisp_Object
 ftcrfont_shape (Lisp_Object lgstring)
 {
 #if defined HAVE_M17N_FLT && defined HAVE_LIBOTF
+  struct font *font = CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring));
   struct font_info *ftcrfont_info = (struct font_info *) font;
 
   if (ftcrfont_info->bitmap_strike_index < 0)