Mercurial > emacs
changeset 34711:583cd327d7b5
(toplevel) [CHECK_FRAME_FONT]: Include frame.h and
xterm.h.
(Fbyte_code) [CHECK_FRAME_FONT]: Check the selected frame's font.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 19 Dec 2000 12:14:08 +0000 |
| parents | d5251a5c10ef |
| children | a75e9cf7a2e3 |
| files | src/bytecode.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/bytecode.c Tue Dec 19 11:26:41 2000 +0000 +++ b/src/bytecode.c Tue Dec 19 12:14:08 2000 +0000 @@ -39,6 +39,11 @@ #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 @@ 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);