Mercurial > emacs

comparison src/xfns.c @ 8270:1a0af0f4fb1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fx_create_frame): Use 140 as default font size.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Jul 1994 16:50:41 +0000
parents 091cd6243cae
children 8b5d6aba9b46
comparison
equal deleted inserted replaced
8269:7fa23d45ccfd 8270:1a0af0f4fb1d
2325 /* First, try whatever font the caller has specified. */ 2325 /* First, try whatever font the caller has specified. */
2326 if (STRINGP (font)) 2326 if (STRINGP (font))
2327 font = x_new_font (f, XSTRING (font)->data); 2327 font = x_new_font (f, XSTRING (font)->data);
2328 /* Try out a font which we hope has bold and italic variations. */ 2328 /* Try out a font which we hope has bold and italic variations. */
2329 if (!STRINGP (font)) 2329 if (!STRINGP (font))
2330 font = x_new_font (f, "-misc-fixed-medium-r-normal-*-*-120-*-*-c-*-iso8859-1"); 2330 font = x_new_font (f, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
2331 if (! STRINGP (font)) 2331 if (! STRINGP (font))
2332 font = x_new_font (f, "-*-*-medium-r-normal-*-*-120-*-*-c-*-iso8859-1"); 2332 font = x_new_font (f, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
2333 if (! STRINGP (font)) 2333 if (! STRINGP (font))
2334 /* This was formerly the first thing tried, but it finds too many fonts 2334 /* This was formerly the first thing tried, but it finds too many fonts
2335 and takes too long. */ 2335 and takes too long. */
2336 font = x_new_font (f, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1"); 2336 font = x_new_font (f, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
2337 /* If those didn't work, look for something which will at least work. */ 2337 /* If those didn't work, look for something which will at least work. */
2338 if (! STRINGP (font)) 2338 if (! STRINGP (font))
2339 font = x_new_font (f, "-*-fixed-*-*-*-*-*-120-*-*-c-*-iso8859-1"); 2339 font = x_new_font (f, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
2340 UNBLOCK_INPUT; 2340 UNBLOCK_INPUT;
2341 if (! STRINGP (font)) 2341 if (! STRINGP (font))
2342 font = build_string ("fixed"); 2342 font = build_string ("fixed");
2343 2343
2344 x_default_parameter (f, parms, Qfont, font, 2344 x_default_parameter (f, parms, Qfont, font,