aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJason Rumney2000-03-22 22:29:41 +0000
committerJason Rumney2000-03-22 22:29:41 +0000
commit126f2e359281ade902fea8efa1615ab7b2a34383 (patch)
treea3926f39158860e6c66dbd023147f17de5b1d3bc /src
parent683e946edf779d12a3df4d415ffa61e86f0599db (diff)
downloademacs-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.c29
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
7203Lisp_Object QCtype, QCdata, QCascent, QCmargin, QCrelief; 7204Lisp_Object QCtype, QCascent, QCmargin, QCrelief;
7204extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile; 7205extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile;
7205Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask; 7206Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask;
7206extern Lisp_Object QCindex; 7207extern 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");