comparison src/frame-x.c @ 1746:18d2b8dabcf7

[xemacs-hg @ 2003-10-14 16:34:54 by stephent] NAS version #defines <878ynnaipw.fsf@tleepslib.sk.tsukuba.ac.jp> XtSetArg idiom fix <874qybaihp.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 14 Oct 2003 16:34:57 +0000
parents a8d8f419b459
children 51ce4f55d8c3
comparison
equal deleted inserted replaced
1745:d91e7fd568fd 1746:18d2b8dabcf7
2726 else if (EQ (name, Qfont)) 2726 else if (EQ (name, Qfont))
2727 { 2727 {
2728 Lisp_Object font = FACE_FONT (Vdefault_face, frame, Vcharset_ascii); 2728 Lisp_Object font = FACE_FONT (Vdefault_face, frame, Vcharset_ascii);
2729 2729
2730 if (!EQ (font, Vthe_null_font_instance)) 2730 if (!EQ (font, Vthe_null_font_instance))
2731 XtSetArg (al[ac], XtNfont, 2731 {
2732 (void *) FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font))); 2732 XtSetArg (al[ac], XtNfont,
2733 ac++; 2733 (void *) FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font)));
2734 ac++;
2735 }
2734 } 2736 }
2735 else 2737 else
2736 abort (); 2738 abort ();
2737 2739
2738 XtSetValues (FRAME_X_TEXT_WIDGET (frm), al, ac); 2740 XtSetValues (FRAME_X_TEXT_WIDGET (frm), al, ac);