Mercurial > emacs

comparison src/macfns.c @ 71064:30ac4bc8f8f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[USE_MAC_FONT_PANEL] (Fmac_set_font_panel_visibility): Call mac_set_font_info_for_selection if font panel is made visible.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Mon, 29 May 2006 09:42:41 +0000
parents b57dbe9690a0
children 18dfea3e3203
comparison
equal deleted inserted replaced
71063:7510757f449b 71064:30ac4bc8f8f7
4512 OSStatus err = noErr; 4512 OSStatus err = noErr;
4513 4513
4514 check_mac (); 4514 check_mac ();
4515 4515
4516 BLOCK_INPUT; 4516 BLOCK_INPUT;
4517 if (NILP (visible) == (FPIsFontPanelVisible () == true)) 4517 if (NILP (visible) != !mac_font_panel_visible_p ())
4518 err = FPShowHideFontPanel (); 4518 {
4519 err = mac_show_hide_font_panel ();
4520 if (err == noErr && !NILP (visible))
4521 {
4522 Lisp_Object focus_frame = x_get_focus_frame (SELECTED_FRAME ());
4523 struct frame *f = (NILP (focus_frame) ? SELECTED_FRAME ()
4524 : XFRAME (focus_frame));
4525
4526 mac_set_font_info_for_selection (f, DEFAULT_FACE_ID, 0);
4527 }
4528 }
4519 UNBLOCK_INPUT; 4529 UNBLOCK_INPUT;
4520 4530
4521 if (err != noErr) 4531 if (err != noErr)
4522 error ("Cannot change visibility of the font panel"); 4532 error ("Cannot change visibility of the font panel");
4523 return Qnil; 4533 return Qnil;