Wrong type argument: font, unspecified

[Stefan Monnier]

If I start Emacs as follows:

   emacs -Q --eval '(custom-set-faces (quote (menu ((t :weight bold)))))'

I get the above error message.

It comes from xfaces.c:x_update_menu_appearance

      if (face->font
          && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
              || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
              || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
              || !UNSPECIFIEDP (LFACE_SLANT (lface))
              || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
        {
          Lisp_Object xlfd = Ffont_xlfd_name (LFACE_FONT (lface), Qnil);

where LFACE_FONT(lface) is the symbol `unspecified', so Ffont_xlfd_name
signals the above error.


        Stefan


PS: I notice also that bytecode.c has code that doesn't compile any
more.  The chunk below complains "dereferencing incomplete pointer".
Maybe we should just throw away this CHECK_FRAME_FONT.

#ifdef CHECK_FRAME_FONT
 {
   struct frame *f = SELECTED_FRAME ();
   if (FRAME_X_P (f)
       && FRAME_FONT (f)->direction != 0
       && FRAME_FONT (f)->direction != 1)
     abort ();
 }
#endif