From: Kenichi Handa <handa@m17n.org>
Date: Fri, 16 May 1997 00:43:41 +0000 (+0000)
Subject: (Fx_create_frame): Delete unnecessary code.
X-Git-Tag: emacs-20.1~2109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=632a44143ffee4fa3a86dcdcc30091e707e5771a;p=emacs.git

(Fx_create_frame): Delete unnecessary code.
---

diff --git a/src/xfns.c b/src/xfns.c
index c93b0816bbb..ed7f726889c 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3274,19 +3274,8 @@ This function is an internal primitive--use `make-frame' instead.")
   {
     Lisp_Object font;
 
-    /* Determine font by the following priority.
-       1. `font' parameter in parms.
-       2. `font' parameter in Vdefault_frame_alist.
-       3. X resource "font" ("Font").
-       4. Select a plausible font be heuristics at least for ASCII.  */
-    tem = Fassq (Qfont, parms);
-    if (NILP (tem))
-      tem = Fassq (Qfont, Vdefault_frame_alist);
-    if (!NILP (tem))
-      font = Fcdr (tem);
     if (! STRINGP (font))
       font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", string);
-
     BLOCK_INPUT;
     /* First, try whatever font the caller has specified.  */
     if (STRINGP (font))