Mercurial > emacs
comparison src/xfns.c @ 17836:d962c6beafbd
(Fx_create_frame): Delete unnecessary code.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 May 1997 00:43:41 +0000 |
parents | 094e5efd262d |
children | 7c919d7f8217 |
comparison
equal
deleted
inserted
replaced
17835:f36ffb6f1208 | 17836:d962c6beafbd |
---|---|
3272 /* Extract the window parameters from the supplied values | 3272 /* Extract the window parameters from the supplied values |
3273 that are needed to determine window geometry. */ | 3273 that are needed to determine window geometry. */ |
3274 { | 3274 { |
3275 Lisp_Object font; | 3275 Lisp_Object font; |
3276 | 3276 |
3277 /* Determine font by the following priority. | |
3278 1. `font' parameter in parms. | |
3279 2. `font' parameter in Vdefault_frame_alist. | |
3280 3. X resource "font" ("Font"). | |
3281 4. Select a plausible font be heuristics at least for ASCII. */ | |
3282 tem = Fassq (Qfont, parms); | |
3283 if (NILP (tem)) | |
3284 tem = Fassq (Qfont, Vdefault_frame_alist); | |
3285 if (!NILP (tem)) | |
3286 font = Fcdr (tem); | |
3287 if (! STRINGP (font)) | 3277 if (! STRINGP (font)) |
3288 font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string); | 3278 font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string); |
3289 | |
3290 BLOCK_INPUT; | 3279 BLOCK_INPUT; |
3291 /* First, try whatever font the caller has specified. */ | 3280 /* First, try whatever font the caller has specified. */ |
3292 if (STRINGP (font)) | 3281 if (STRINGP (font)) |
3293 { | 3282 { |
3294 tem = Fquery_fontset (font); | 3283 tem = Fquery_fontset (font); |