diff options
| author | Jason Rumney | 2000-03-22 22:29:41 +0000 |
|---|---|---|
| committer | Jason Rumney | 2000-03-22 22:29:41 +0000 |
| commit | 126f2e359281ade902fea8efa1615ab7b2a34383 (patch) | |
| tree | a3926f39158860e6c66dbd023147f17de5b1d3bc /src | |
| parent | 683e946edf779d12a3df4d415ffa61e86f0599db (diff) | |
| download | emacs-126f2e359281ade902fea8efa1615ab7b2a34383.tar.gz emacs-126f2e359281ade902fea8efa1615ab7b2a34383.zip | |
(w32_wnd_proc): Handle WM_MENUSELECT message.
(QCdata): Moved to xdisp.c.
Include fontset.h after dispextern.h.
(Fx_create_frame): Do not create fontset.
(w32_load_system_font): Doc fix.
(Fx_close_connection): Free full_name if it is not shared.
Diffstat (limited to 'src')
| -rw-r--r-- | src/w32fns.c | 29 |
1 files changed, 12 insertions, 17 deletions
diff --git a/src/w32fns.c b/src/w32fns.c index dc2f86ccdb4..ad914f44a4c 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -30,12 +30,12 @@ Boston, MA 02111-1307, USA. */ | |||
| 30 | 30 | ||
| 31 | #include "lisp.h" | 31 | #include "lisp.h" |
| 32 | #include "charset.h" | 32 | #include "charset.h" |
| 33 | #include "fontset.h" | ||
| 34 | #include "w32term.h" | 33 | #include "w32term.h" |
| 35 | #include "frame.h" | 34 | #include "frame.h" |
| 36 | #include "window.h" | 35 | #include "window.h" |
| 37 | #include "buffer.h" | 36 | #include "buffer.h" |
| 38 | #include "dispextern.h" | 37 | #include "dispextern.h" |
| 38 | #include "fontset.h" | ||
| 39 | #include "intervals.h" | 39 | #include "intervals.h" |
| 40 | #include "keyboard.h" | 40 | #include "keyboard.h" |
| 41 | #include "blockinput.h" | 41 | #include "blockinput.h" |
| @@ -4471,6 +4471,11 @@ w32_wnd_proc (hwnd, msg, wParam, lParam) | |||
| 4471 | f->output_data.w32->menubar_active = 0; | 4471 | f->output_data.w32->menubar_active = 0; |
| 4472 | goto dflt; | 4472 | goto dflt; |
| 4473 | 4473 | ||
| 4474 | case WM_MENUSELECT: | ||
| 4475 | wmsg.dwModifiers = w32_get_modifiers (); | ||
| 4476 | my_post_msg (&wmsg, hwnd, msg, wParam, lParam); | ||
| 4477 | return 0; | ||
| 4478 | |||
| 4474 | case WM_MEASUREITEM: | 4479 | case WM_MEASUREITEM: |
| 4475 | f = x_window_to_frame (dpyinfo, hwnd); | 4480 | f = x_window_to_frame (dpyinfo, hwnd); |
| 4476 | if (f) | 4481 | if (f) |
| @@ -5038,10 +5043,6 @@ This function is an internal primitive--use `make-frame' instead.") | |||
| 5038 | specbind (Qx_resource_name, name); | 5043 | specbind (Qx_resource_name, name); |
| 5039 | } | 5044 | } |
| 5040 | 5045 | ||
| 5041 | /* Create fontsets from `global_fontset_alist' before handling fonts. */ | ||
| 5042 | for (tem = Vglobal_fontset_alist; CONSP (tem); tem = XCDR (tem)) | ||
| 5043 | fs_register_fontset (f, XCAR (tem)); | ||
| 5044 | |||
| 5045 | /* Extract the window parameters from the supplied values | 5046 | /* Extract the window parameters from the supplied values |
| 5046 | that are needed to determine window geometry. */ | 5047 | that are needed to determine window geometry. */ |
| 5047 | { | 5048 | { |
| @@ -5406,9 +5407,9 @@ w32_load_system_font (f,fontname,size) | |||
| 5406 | 5407 | ||
| 5407 | /* The slot `encoding' specifies how to map a character | 5408 | /* The slot `encoding' specifies how to map a character |
| 5408 | code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to | 5409 | code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to |
| 5409 | the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, 0:0x2020..0x7F7F, | 5410 | the font code-points (0:0x20..0x7F, 1:0xA0..0xFF), or |
| 5410 | the font code-points (0:0x20..0x7F, 1:0xA0..0xFF, | 5411 | (0:0x20..0x7F, 1:0xA0..0xFF, |
| 5411 | 0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, or | 5412 | (0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, |
| 5412 | 2:0xA020..0xFF7F). For the moment, we don't know which charset | 5413 | 2:0xA020..0xFF7F). For the moment, we don't know which charset |
| 5413 | uses this font. So, we set information in fontp->encoding[1] | 5414 | uses this font. So, we set information in fontp->encoding[1] |
| 5414 | which is never used by any charset. If mapping can't be | 5415 | which is never used by any charset. If mapping can't be |
| @@ -7129,9 +7130,9 @@ If DISPLAY is nil, that stands for the selected frame's display.") | |||
| 7129 | for (i = 0; i < dpyinfo->n_fonts; i++) | 7130 | for (i = 0; i < dpyinfo->n_fonts; i++) |
| 7130 | if (dpyinfo->font_table[i].name) | 7131 | if (dpyinfo->font_table[i].name) |
| 7131 | { | 7132 | { |
| 7133 | if (dpyinfo->font_table[i].name != dpyinfo->font_table[i].full_name) | ||
| 7134 | xfree (dpyinfo->font_table[i].full_name); | ||
| 7132 | xfree (dpyinfo->font_table[i].name); | 7135 | xfree (dpyinfo->font_table[i].name); |
| 7133 | /* Don't free the full_name string; | ||
| 7134 | it is always shared with something else. */ | ||
| 7135 | w32_unload_font (dpyinfo, dpyinfo->font_table[i].font); | 7136 | w32_unload_font (dpyinfo, dpyinfo->font_table[i].font); |
| 7136 | } | 7137 | } |
| 7137 | x_destroy_all_bitmaps (dpyinfo); | 7138 | x_destroy_all_bitmaps (dpyinfo); |
| @@ -7200,7 +7201,7 @@ Lisp_Object Qxbm; | |||
| 7200 | 7201 | ||
| 7201 | /* Keywords. */ | 7202 | /* Keywords. */ |
| 7202 | 7203 | ||
| 7203 | Lisp_Object QCtype, QCdata, QCascent, QCmargin, QCrelief; | 7204 | Lisp_Object QCtype, QCascent, QCmargin, QCrelief; |
| 7204 | extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile; | 7205 | extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile; |
| 7205 | Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask; | 7206 | Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask; |
| 7206 | extern Lisp_Object QCindex; | 7207 | extern Lisp_Object QCindex; |
| @@ -11847,10 +11848,6 @@ x_create_tip_frame (dpyinfo, parms) | |||
| 11847 | specbind (Qx_resource_name, name); | 11848 | specbind (Qx_resource_name, name); |
| 11848 | } | 11849 | } |
| 11849 | 11850 | ||
| 11850 | /* Create fontsets from `global_fontset_alist' before handling fonts. */ | ||
| 11851 | for (tem = Vglobal_fontset_alist; CONSP (tem); tem = XCDR (tem)) | ||
| 11852 | fs_register_fontset (f, XCAR (tem)); | ||
| 11853 | |||
| 11854 | /* Extract the window parameters from the supplied values | 11851 | /* Extract the window parameters from the supplied values |
| 11855 | that are needed to determine window geometry. */ | 11852 | that are needed to determine window geometry. */ |
| 11856 | { | 11853 | { |
| @@ -13060,8 +13057,6 @@ only be necessary if the default setting causes problems."); | |||
| 13060 | staticpro (&QCheuristic_mask); | 13057 | staticpro (&QCheuristic_mask); |
| 13061 | QCcolor_symbols = intern (":color-symbols"); | 13058 | QCcolor_symbols = intern (":color-symbols"); |
| 13062 | staticpro (&QCcolor_symbols); | 13059 | staticpro (&QCcolor_symbols); |
| 13063 | QCdata = intern (":data"); | ||
| 13064 | staticpro (&QCdata); | ||
| 13065 | QCascent = intern (":ascent"); | 13060 | QCascent = intern (":ascent"); |
| 13066 | staticpro (&QCascent); | 13061 | staticpro (&QCascent); |
| 13067 | QCmargin = intern (":margin"); | 13062 | QCmargin = intern (":margin"); |