Commit ad7de7d7 authored by Gerd Moellmann's avatar Gerd Moellmann

(toplevel) [CHECK_FRAME_FONT]: Include frame.h and

xterm.h.
(Fbyte_code) [CHECK_FRAME_FONT]: Check the selected frame's font.
parent 9ca4be21
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment