From: Khaled Hosny <khaledhosny@eglug.org>
Date: Tue, 5 Jun 2018 10:34:04 +0000 (+0200)
Subject: Allow turning HarfBuzz off at run time
X-Git-Tag: emacs-27.0.90~2671^2~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9014e05fcb1bdfee3d4a0d10129bd1f9cf6a85ab;p=emacs.git

Allow turning HarfBuzz off at run time

Useful for comparing the shaping result with that of m17n.
---

diff --git a/src/ftfont.c b/src/ftfont.c
index eb7c5d10e15..d98652f379c 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -2784,14 +2784,19 @@ ftfont_shape (Lisp_Object lgstring)
   struct font *font = CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring));
   struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
 #ifdef HAVE_HARFBUZZ
-  return ftfont_shape_by_hb (lgstring, ftfont_info->ft_size->face,
-			     &ftfont_info->matrix);
-#else
-  OTF *otf = ftfont_get_otf (ftfont_info);
+  if (getenv ("EMACS_NO_HARFBUZZ") == NULL)
+    {
+      return ftfont_shape_by_hb (lgstring, ftfont_info->ft_size->face,
+				 &ftfont_info->matrix);
+    }
+  else
+#endif  /* HAVE_HARFBUZZ */
+    {
+      OTF *otf = ftfont_get_otf (ftfont_info);
 
-  return ftfont_shape_by_flt (lgstring, font, ftfont_info->ft_size->face, otf,
-			      &ftfont_info->matrix);
-#endif
+      return ftfont_shape_by_flt (lgstring, font, ftfont_info->ft_size->face,
+				  otf, &ftfont_info->matrix);
+    }
 }
 
 #endif /* defined HAVE_M17N_FLT || defined HAVE_HARFBUZZ */