199 |
|
|
200 |
/* The keysyms to use for the various modifiers. */ |
/* The keysyms to use for the various modifiers. */ |
201 |
|
|
202 |
static Lisp_Object Qalt, Qhyper, Qsuper, Qctrl, |
static Lisp_Object Qalt, Qhyper, Qsuper, Qcontrol, |
203 |
Qmeta, Qmodifier_value; |
Qmeta, Qmodifier_value; |
204 |
|
|
205 |
extern int inhibit_window_system; |
extern int inhibit_window_system; |
10922 |
x_error_message_string = Qnil; |
x_error_message_string = Qnil; |
10923 |
#endif |
#endif |
10924 |
|
|
10925 |
|
Qcontrol = intern ("control"); staticpro (&Qcontrol); |
10926 |
|
Qmeta = intern ("meta"); staticpro (&Qmeta); |
10927 |
|
Qalt = intern ("alt"); staticpro (&Qalt); |
10928 |
|
Qhyper = intern ("hyper"); staticpro (&Qhyper); |
10929 |
|
Qsuper = intern ("super"); staticpro (&Qsuper); |
10930 |
Qmodifier_value = intern ("modifier-value"); |
Qmodifier_value = intern ("modifier-value"); |
10931 |
Qctrl = intern ("ctrl"); |
staticpro (&Qmodifier_value); |
10932 |
Fput (Qctrl, Qmodifier_value, make_number (ctrl_modifier)); |
|
10933 |
Qmeta = intern ("meta"); |
Fput (Qcontrol, Qmodifier_value, make_number (ctrl_modifier)); |
10934 |
Fput (Qmeta, Qmodifier_value, make_number (meta_modifier)); |
Fput (Qmeta, Qmodifier_value, make_number (meta_modifier)); |
10935 |
Qalt = intern ("alt"); |
Fput (Qalt, Qmodifier_value, make_number (alt_modifier)); |
10936 |
Fput (Qalt, Qmodifier_value, make_number (alt_modifier)); |
Fput (Qhyper, Qmodifier_value, make_number (hyper_modifier)); |
10937 |
Qhyper = intern ("hyper"); |
Fput (Qsuper, Qmodifier_value, make_number (super_modifier)); |
|
Fput (Qhyper, Qmodifier_value, make_number (hyper_modifier)); |
|
|
Qsuper = intern ("super"); |
|
|
Fput (Qsuper, Qmodifier_value, make_number (super_modifier)); |
|
10938 |
|
|
10939 |
Qapplication = intern ("application"); staticpro (&Qapplication); |
Qapplication = intern ("application"); staticpro (&Qapplication); |
10940 |
Qabout = intern ("about"); staticpro (&Qabout); |
Qabout = intern ("about"); staticpro (&Qabout); |
10981 |
staticpro (&last_mouse_motion_frame); |
staticpro (&last_mouse_motion_frame); |
10982 |
last_mouse_motion_frame = Qnil; |
last_mouse_motion_frame = Qnil; |
10983 |
|
|
|
|
|
|
|
|
10984 |
/* Variables to configure modifier key assignment. */ |
/* Variables to configure modifier key assignment. */ |
10985 |
|
|
10986 |
DEFVAR_LISP ("mac-control-modifier", &Vmac_control_modifier, |
DEFVAR_LISP ("mac-control-modifier", &Vmac_control_modifier, |
10987 |
doc: /* Modifier key assumed when the Mac control key is pressed. |
doc: /* Modifier key assumed when the Mac control key is pressed. |
10988 |
The value can be `alt', `ctrl', `hyper', or `super' for the respective |
The value can be `alt', `control', `hyper', or `super' for the |
10989 |
modifier. The default is `ctrl'. */); |
respective modifier. The default is `control'. */); |
10990 |
Vmac_control_modifier = Qctrl; |
Vmac_control_modifier = Qcontrol; |
10991 |
|
|
10992 |
DEFVAR_LISP ("mac-option-modifier", &Vmac_option_modifier, |
DEFVAR_LISP ("mac-option-modifier", &Vmac_option_modifier, |
10993 |
doc: /* Modifier key assumed when the Mac alt/option key is pressed. |
doc: /* Modifier key assumed when the Mac alt/option key is pressed. |
10994 |
The value can be `alt', `ctrl', `hyper', or `super' for the respective |
The value can be `alt', `control', `hyper', or `super' for the |
10995 |
modifier. If the value is nil then the key will act as the normal |
respective modifier. If the value is nil then the key will act as the |
10996 |
Mac control modifier, and the option key can be used to compose |
normal Mac control modifier, and the option key can be used to compose |
10997 |
characters depending on the chosen Mac keyboard setting. */); |
characters depending on the chosen Mac keyboard setting. */); |
10998 |
Vmac_option_modifier = Qnil; |
Vmac_option_modifier = Qnil; |
10999 |
|
|
11000 |
DEFVAR_LISP ("mac-command-modifier", &Vmac_command_modifier, |
DEFVAR_LISP ("mac-command-modifier", &Vmac_command_modifier, |
11001 |
doc: /* Modifier key assumed when the Mac command key is pressed. |
doc: /* Modifier key assumed when the Mac command key is pressed. |
11002 |
The value can be `alt', `ctrl', `hyper', or `super' for the respective |
The value can be `alt', `control', `hyper', or `super' for the |
11003 |
modifier. The default is `meta'. */); |
respective modifier. The default is `meta'. */); |
11004 |
Vmac_command_modifier = Qmeta; |
Vmac_command_modifier = Qmeta; |
11005 |
|
|
11006 |
DEFVAR_LISP ("mac-function-modifier", &Vmac_function_modifier, |
DEFVAR_LISP ("mac-function-modifier", &Vmac_function_modifier, |
11007 |
doc: /* Modifier key assumed when the Mac function key is pressed. |
doc: /* Modifier key assumed when the Mac function key is pressed. |
11008 |
The value can be `alt', `ctrl', `hyper', or `super' for the respective |
The value can be `alt', `control', `hyper', or `super' for the |
11009 |
modifier. Note that remapping the function key may lead to unexpected |
respective modifier. Note that remapping the function key may lead to |
11010 |
results for some keys on non-US/GB keyboards. */); |
unexpected results for some keys on non-US/GB keyboards. */); |
11011 |
Vmac_function_modifier = Qnil; |
Vmac_function_modifier = Qnil; |
11012 |
|
|
11013 |
DEFVAR_LISP ("mac-emulate-three-button-mouse", |
DEFVAR_LISP ("mac-emulate-three-button-mouse", |
11014 |
&Vmac_emulate_three_button_mouse, |
&Vmac_emulate_three_button_mouse, |
11015 |
doc: /* t means that when the option-key is held down while pressing the |
doc: /* Specify a way of three button mouse emulation. |
11016 |
mouse button, the click will register as mouse-2 and while the |
The value can be nil, t, or the symbol `reverse'. |
11017 |
command-key is held down, the click will register as mouse-3. |
nil means that no emulation should be done and the modifiers should be |
11018 |
'reverse means that the option-key will register for mouse-3 |
placed on the mouse-1 event. |
11019 |
and the command-key will register for mouse-2. nil means that |
t means that when the option-key is held down while pressing the mouse |
11020 |
no emulation should be done and the modifiers should be placed |
button, the click will register as mouse-2 and while the command-key |
11021 |
on the mouse-1 event. */); |
is held down, the click will register as mouse-3. |
11022 |
|
The symbol `reverse' means that the option-key will register for |
11023 |
|
mouse-3 and the command-key will register for mouse-2. */); |
11024 |
Vmac_emulate_three_button_mouse = Qnil; |
Vmac_emulate_three_button_mouse = Qnil; |
11025 |
|
|
11026 |
#if USE_CARBON_EVENTS |
#if USE_CARBON_EVENTS |
11027 |
DEFVAR_LISP ("mac-wheel-button-is-mouse-2", &Vmac_wheel_button_is_mouse_2, |
DEFVAR_LISP ("mac-wheel-button-is-mouse-2", &Vmac_wheel_button_is_mouse_2, |
11028 |
doc: /* Non-nil means that the wheel button will be treated as mouse-2 and |
doc: /* Non-nil if the wheel button is mouse-2 and the right click mouse-3. |
11029 |
the right click will be mouse-3. |
Otherwise, the right click will be treated as mouse-2 and the wheel |
11030 |
Otherwise, the right click will be mouse-2 and the wheel button mouse-3.*/); |
button will be mouse-3. */); |
11031 |
Vmac_wheel_button_is_mouse_2 = Qt; |
Vmac_wheel_button_is_mouse_2 = Qt; |
11032 |
|
|
11033 |
DEFVAR_LISP ("mac-pass-command-to-system", &Vmac_pass_command_to_system, |
DEFVAR_LISP ("mac-pass-command-to-system", &Vmac_pass_command_to_system, |
11034 |
doc: /* If non-nil, the Mac \"Command\" key is passed on to the Mac |
doc: /* Non-nil if command key presses are passed on to the Mac Toolbox. */); |
|
Toolbox for processing before Emacs sees it. */); |
|
11035 |
Vmac_pass_command_to_system = Qt; |
Vmac_pass_command_to_system = Qt; |
11036 |
|
|
11037 |
DEFVAR_LISP ("mac-pass-control-to-system", &Vmac_pass_control_to_system, |
DEFVAR_LISP ("mac-pass-control-to-system", &Vmac_pass_control_to_system, |
11038 |
doc: /* If non-nil, the Mac \"Control\" key is passed on to the Mac |
doc: /* Non-nil if control key presses are passed on to the Mac Toolbox. */); |
|
Toolbox for processing before Emacs sees it. */); |
|
11039 |
Vmac_pass_control_to_system = Qt; |
Vmac_pass_control_to_system = Qt; |
11040 |
|
|
11041 |
#endif |
#endif |
11050 |
creating the terminal frame on Mac OS 9 before loading |
creating the terminal frame on Mac OS 9 before loading |
11051 |
term/mac-win.elc. */ |
term/mac-win.elc. */ |
11052 |
DEFVAR_LISP ("mac-charset-info-alist", &Vmac_charset_info_alist, |
DEFVAR_LISP ("mac-charset-info-alist", &Vmac_charset_info_alist, |
11053 |
doc: /* Alist linking Emacs character sets to Mac text encoding and Emacs coding system. |
doc: /* Alist of Emacs character sets vs text encodings and coding systems. |
11054 |
Each entry should be of the form: |
Each entry should be of the form: |
11055 |
|
|
11056 |
(CHARSET-NAME TEXT-ENCODING CODING-SYSTEM) |
(CHARSET-NAME TEXT-ENCODING CODING-SYSTEM) |
11057 |
|
|
11058 |
where CHARSET-NAME is a string used in font names to identify the |
where CHARSET-NAME is a string used in font names to identify the |
11059 |
charset, TEXT-ENCODING is a TextEncodingBase value, and CODING_SYSTEM |
charset, TEXT-ENCODING is a TextEncodingBase value in Mac, and |
11060 |
is a coding system corresponding to TEXT-ENCODING. */); |
CODING_SYSTEM is a coding system corresponding to TEXT-ENCODING. */); |
11061 |
Vmac_charset_info_alist = |
Vmac_charset_info_alist = |
11062 |
Fcons (list3 (build_string ("mac-roman"), |
Fcons (list3 (build_string ("mac-roman"), |
11063 |
make_number (smRoman), Qnil), Qnil); |
make_number (smRoman), Qnil), Qnil); |