diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-24 16:59:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-24 16:59:16 +0000 |
| commit | def4622b263f1c30c8e224d533f4512a56ba091e (patch) | |
| tree | ec4f0d33eb6df211941c6975b49160c4e2905048 /src/xfns.c | |
| parent | d5af6d1a3980018951efc6598f9f6321478195b5 (diff) | |
| download | emacs-def4622b263f1c30c8e224d533f4512a56ba091e.tar.gz | |
(Fx_create_frame): Don't fail to initialize `font'.
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/xfns.c b/src/xfns.c index 17e6a64f987..553b32aa716 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -3282,8 +3282,8 @@ This function is an internal primitive--use `make-frame' instead.") { Lisp_Object font; - if (! STRINGP (font)) - font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string); + font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string); + BLOCK_INPUT; /* First, try whatever font the caller has specified. */ if (STRINGP (font)) |