diff options
| author | YAMAMOTO Mitsuharu | 2006-05-29 09:42:41 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu | 2006-05-29 09:42:41 +0000 |
| commit | 54b9479288eebf18fabc23ff17ba7231425a3f55 (patch) | |
| tree | ea403010a2fae329c5099f640cfa1006e4c680e7 /src | |
| parent | 01d0930532c2fbcf249a4dfa36e8365090e109e7 (diff) | |
| download | emacs-54b9479288eebf18fabc23ff17ba7231425a3f55.tar.gz emacs-54b9479288eebf18fabc23ff17ba7231425a3f55.zip | |
[USE_MAC_FONT_PANEL] (Fmac_set_font_panel_visibility):
Call mac_set_font_info_for_selection if font panel is made visible.
Diffstat (limited to 'src')
| -rw-r--r-- | src/macfns.c | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/macfns.c b/src/macfns.c index 43d994c1357..1f2c2d39f47 100644 --- a/src/macfns.c +++ b/src/macfns.c | |||
| @@ -4514,8 +4514,18 @@ This is for internal use only. Use `mac-font-panel-mode' instead. */) | |||
| 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) |