From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 19 Dec 2000 12:14:08 +0000 (+0000)
Subject: (toplevel) [CHECK_FRAME_FONT]: Include frame.h and
X-Git-Tag: emacs-pretest-21.0.95~402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad7de7d79eb2b7c97c38206b223bcd7dc3dcbad4;p=emacs.git

(toplevel) [CHECK_FRAME_FONT]: Include frame.h and
xterm.h.
(Fbyte_code) [CHECK_FRAME_FONT]: Check the selected frame's font.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 964dca8a830..4fc722e61cc 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -39,6 +39,11 @@ by Hallvard:
 #include "charset.h"
 #include "syntax.h"
 
+#ifdef CHECK_FRAME_FONT
+#include "frame.h"
+#include "xterm.h"
+#endif
+
 /*
  * define BYTE_CODE_SAFE to enable some minor sanity checking (useful for 
  * debugging the byte compiler...)
@@ -418,6 +423,16 @@ If the third argument is incorrect, Emacs may crash.")
   Lisp_Object *top;
   Lisp_Object result;
 
+#ifdef CHECK_FRAME_FONT
+ {
+   struct frame *f = SELECTED_FRAME ();
+   if (FRAME_X_P (f)
+       && FRAME_FONT (f)->direction != 0
+       && FRAME_FONT (f)->direction != 1)
+     abort ();
+ }
+#endif
+
   CHECK_STRING (bytestr, 0);
   if (!VECTORP (vector))
     vector = wrong_type_argument (Qvectorp, vector);