From 4cc1c8060a9cbc1873f2087708e64cd4fde04408 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Sat, 16 Feb 2008 12:40:42 +0000
Subject: [PATCH] (ftfont_shape): Return Lispy number.

---
 src/ftfont.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ftfont.c b/src/ftfont.c
index 9fb50d3dba..2a72316b6a 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -1618,7 +1618,7 @@ ftfont_shape (lgstring)
   CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring), font);
   ftfont_info = (struct ftfont_info *) font;
   if (! ftfont_info->maybe_otf)
-    return 0;
+    return make_number (0);
   if (! ftfont_info->otf)
     {
       OTF *otf = OTF_open_ft_face (ftfont_info->ft_size->face);
@@ -1628,7 +1628,7 @@ ftfont_shape (lgstring)
 	  if (otf)
 	    OTF_close (otf);
 	  ftfont_info->maybe_otf = 0;
-	  return 0;
+	  return make_number (0);
 	}
 
       ftfont_info->otf = otf;
-- 
2.20.1