From 4ff6c657a206a9c5ff6f3cda26996fda00e7598d Mon Sep 17 00:00:00 2001
From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sat, 20 Apr 2019 12:50:32 +0900
Subject: [PATCH] * src/ftcrfont.c (ftcrfont_shape): Fix last change.

---
 src/ftcrfont.c | 2 ++
 1 file changed, 2 insertions(+)

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