(Fx_create_frame): Delete unnecessary code.

diff --git a/src/xfns.c b/src/xfns.c
index c93b0816bbb85f1589c0e2b8c2c876cc6562a95b..ed7f726889cd4a7c3dce9614352f4d8e67370e57 100644 (file)
--- 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))