/[emacs]/emacs/src/macterm.c
ViewVC logotype

Diff of /emacs/src/macterm.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.144 by mituharu, Sat Nov 19 06:35:19 2005 UTC revision 1.145 by mituharu, Thu Nov 24 08:20:16 2005 UTC
# Line 199  extern EMACS_INT extra_keyboard_modifier Line 199  extern EMACS_INT extra_keyboard_modifier
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;
# Line 10922  syms_of_macterm () Line 10922  syms_of_macterm ()
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);
# Line 10979  syms_of_macterm () Line 10981  syms_of_macterm ()
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
# Line 11050  may anti-alias the text.  */); Line 11050  may anti-alias the text.  */);
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);

Legend:
Removed from v.1.144  
changed lines
  Added in v.1.145

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26