mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
xterm.h.
(Fbyte_code) [CHECK_FRAME_FONT]: Check the selected frame's font.
This commit is contained in:
Gerd Moellmann 2000-12-19 12:14:08 +00:00
parent 9ca4be21c5
commit ad7de7d79e
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/bytecode.c
View file

@ -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);