comparison src/macterm.c @ 83423:b64b7e867d0a

Merged from [e-mail]--gnu-2005 (patch 677) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-677 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-463

83422:1f5d64c4df6f

/* Non-nil means Emacs uses toolkit scroll bars.  */

Lisp_Object Vx_toolkit_scroll_bars;

/* If Non-nil, the text will be rendered using Core Graphics text rendering which may anti-alias the text.  */
Lisp_Object Vmac_use_core_graphics;


/* Non-zero means that a HELP_EVENT has been generated since Emacs
   start.  */

static int any_help_event_p;

/* Last window where we saw the mouse.  Used by mouse-autoselect-window.  */
static Lisp_Object last_window;

/* This is a chain of structures for all the X displays currently in
   use.  */

struct x_display_info *x_display_list;

extern EMACS_INT extra_keyboard_modifiers;

/* The keysyms to use for the various modifiers.  */

static Lisp_Object Qalt, Qhyper, Qsuper, Qcontrol,
  Qmeta, Qmodifier_value;

extern int inhibit_window_system;

#if __MRC__ && !TARGET_API_MAC_CARBON
QDGlobals qd;  /* QuickDraw global information structure.  */

     char *buf;
     int nchars, mode, bytes_per_char;
{
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  UInt32 textFlags, savedFlags;
  if (!NILP(Vmac_use_core_graphics)) {
    textFlags = kQDUseCGTextRendering;
    savedFlags = SwapQDTextFlags(textFlags);
  }
#endif

						GC_FONT (gc)->mac_style,
						&text_layout);
      if (err == noErr)
	{
#ifdef MAC_OSX
	  if (NILP (Vmac_use_core_graphics))
	    {
#endif
	      mac_begin_clip (GC_CLIP_REGION (gc));
	      MoveTo (x, y);
	      ATSUDrawText (text_layout,

#endif

  if (mode != srcOr)
    RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f)));
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  if (!NILP(Vmac_use_core_graphics))
    SwapQDTextFlags(savedFlags);
#endif
}

  int i;
  CGContextRef context;
  CGGlyph *glyphs;
  CGSize *advances;

  if (NILP (Vmac_use_core_graphics) || GC_FONT (gc)->cg_font == NULL)
    return 0;

  port = GetWindowPort (FRAME_MAC_WINDOW (f));
  port_height = FRAME_PIXEL_HEIGHT (f);
  gx = x;

/* True if the option and command modifiers should be used to emulate
   a three button mouse */
Lisp_Object Vmac_emulate_three_button_mouse;

#if USE_CARBON_EVENTS
/* True if the mouse wheel button (i.e. button 4) should map to
   mouse-2, instead of mouse-3.  */
Lisp_Object Vmac_wheel_button_is_mouse_2;

/* If Non-nil, the Mac "Command" key is passed on to the Mac Toolbox
   for processing before Emacs sees it.  */
Lisp_Object Vmac_pass_command_to_system;

/* If Non-nil, the Mac "Control" key is passed on to the Mac Toolbox
   for processing before Emacs sees it.  */
Lisp_Object Vmac_pass_control_to_system;
#endif

/* Points to the variable `inev' in the function XTread_socket.  It is
   used for passing an input event to the function back from
   Carbon/Apple event handlers.  */

#endif
{
  unsigned int result = 0;
  if (mods & shiftKey)
    result |= shift_modifier;



  /* Deactivated to simplify configuration:
     if Vmac_option_modifier is non-NIL, we fully process the Option
     key. Otherwise, we only process it if an additional Ctrl or Command
     is pressed. That way the system may convert the character to a

	GetEventParameter (ref, kEventParamKeyModifiers, typeUInt32, NULL,
			   sizeof (UInt32), NULL, &mods);
	return mac_get_emulated_btn(mods);
      }
    case kEventMouseButtonSecondary:
      return NILP (Vmac_wheel_button_is_mouse_2) ? 1 : 2;
    case kEventMouseButtonTertiary:
    case 4:  /* 4 is the number for the mouse wheel button */
      return NILP (Vmac_wheel_button_is_mouse_2) ? 2 : 1;
    default:
      return 0;
    }
}

	UInt32 modifiers;
	static EventParamName names[] = {kEventParamDirectObject,
					 kEventParamKeyModifiers};
	static EventParamType types[] = {typeHICommand,
					 typeUInt32};
	static UInt32 sizes[] = {sizeof (HICommand),
				 sizeof (UInt32)};
	err = create_apple_event_from_event_ref (event, 2, names, types,
						 sizes, &apple_event);
	if (err == noErr)
	  {
	    err = mac_store_apple_event (class_key, id_key, &apple_event);
	    AEDisposeDesc (&apple_event);
	  }

  switch (GetEventKind (event))
    {
    case kEventServicePaste:
      id_key = Qpaste;
      err = create_apple_event_from_event_ref (event, 0, NULL,
					       NULL, NULL, &apple_event);
      break;

    case kEventServicePerform:
      {
	static EventParamName names[] = {kEventParamServiceMessageName,
					 kEventParamServiceUserData};
	static EventParamType types[] = {typeCFStringRef,
					 typeCFStringRef};
	static UInt32 sizes[] = {sizeof (CFStringRef),
				 sizeof (CFStringRef)};

	id_key = Qperform;
	err = create_apple_event_from_event_ref (event, 2, names, types,
						 sizes, &apple_event);
      }
      break;

    default:
      abort ();

      event.modifiers = mac_to_emacs_modifiers (modifiers);
      event.timestamp = TickCount () * (1000 / 60);
      XSETINT (event.x, mouse.h);
      XSETINT (event.y, mouse.v);
      XSETFRAME (frame, f);
      event.frame_or_window = Fcons (frame, file_list);
      event.arg = Qnil;
      /* Post to the interrupt queue */
      kbd_buffer_store_event (&event);
      /* MAC_TODO: Mimic behavior of windows by switching contexts to Emacs */
      {
	ProcessSerialNumber psn;

}

static int
backtranslate_modified_keycode(int mods, int keycode, int def)
{
  if  (mods &
       (controlKey |
	(NILP (Vmac_option_modifier) ? 0 : optionKey) |
	cmdKey))
    {
      /* This code comes from Keyboard Resource,
	 Appendix C of IM - Text.  This is necessary
	 since shift is ignored in KCHR table
	 translation when option or command is pressed.

	 Not done for combinations with the option key (alt)
	 unless it is to be caught by Emacs:  this is
	 to preserve key combinations translated by the OS
	 such as Alt-3.
      */
      /* mask off option and command */
      int new_modifiers = mods & 0xe600;
      /* set high byte of keycode to modifier high byte*/
      int new_keycode = keycode | new_modifiers;
      Ptr kchr_ptr = (Ptr) GetScriptManagerVariable (smKCHRCache);
      unsigned long some_state = 0;
      return (int) KeyTranslate (kchr_ptr, new_keycode,
			   &some_state) & 0xff;
      /* TO DO: Recognize two separate resulting characters, "for
	 example, when the user presses Option-E followed by N, you
	 can map this through the KeyTranslate function using the
	 U.S. 'KCHR' resource to produce ´n, which KeyTranslate
	 returns as two characters in the bytes labeled Character code

	    /* When using Carbon Events, we need to pass raw keyboard
	       events to the TSM ourselves.  If TSM handles it, it
	       will pass back noErr, otherwise it will pass back
	       "eventNotHandledErr" and we can process it
	       normally.  */
	    if ((!NILP (Vmac_pass_command_to_system)
		 || !(er.modifiers & cmdKey))
		&& (!NILP (Vmac_pass_control_to_system)
		    || !(er.modifiers & controlKey))
		&& (NILP (Vmac_option_modifier)
		    || !(er.modifiers & optionKey)))
	      if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		  != eventNotHandledErr)

		  inev.code = 0xff00 | xkeysym;
		  inev.kind = NON_ASCII_KEYSTROKE_EVENT;
		}
	      else
		{

		  inev.code =
		    backtranslate_modified_keycode(er.modifiers, keycode,
						   er.message & charCodeMask);
		  inev.kind = ASCII_KEYSTROKE_EVENT;

		}
	  }

#if USE_CARBON_EVENTS
	  inev.modifiers = mac_event_to_emacs_modifiers (eventRef);

#if USE_ATSUI
  staticpro (&atsu_font_id_hash);
  atsu_font_id_hash = Qnil;
#endif

  DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
	       doc: /* If not nil, Emacs uses toolkit scroll bars.  */);
#ifdef USE_TOOLKIT_SCROLL_BARS
  Vx_toolkit_scroll_bars = Qt;
#else

  last_mouse_motion_frame = Qnil;

/* Variables to configure modifier key assignment.  */

  DEFVAR_LISP ("mac-control-modifier", &Vmac_control_modifier,
    doc: /* Modifier key assumed when the Mac control key is pressed.
The value can be `alt', `control', `hyper', or `super' for the
respective modifier.  The default is `control'.  */);
  Vmac_control_modifier = Qcontrol;

  DEFVAR_LISP ("mac-option-modifier", &Vmac_option_modifier,
    doc: /* Modifier key assumed when the Mac alt/option key is pressed.
The value can be `alt', `control', `hyper', or `super' for the
respective modifier.  If the value is nil then the key will act as the
normal Mac control modifier, and the option key can be used to compose
characters depending on the chosen Mac keyboard setting.  */);
  Vmac_option_modifier = Qnil;

  DEFVAR_LISP ("mac-command-modifier", &Vmac_command_modifier,
    doc: /* Modifier key assumed when the Mac command key is pressed.
The value can be `alt', `control', `hyper', or `super' for the
respective modifier.  The default is `meta'.  */);
  Vmac_command_modifier = Qmeta;

  DEFVAR_LISP ("mac-function-modifier", &Vmac_function_modifier,
    doc: /* Modifier key assumed when the Mac function key is pressed.
The value can be `alt', `control', `hyper', or `super' for the
respective modifier.  Note that remapping the function key may lead to
unexpected results for some keys on non-US/GB keyboards.  */);
  Vmac_function_modifier = Qnil;

  DEFVAR_LISP ("mac-emulate-three-button-mouse",
	       &Vmac_emulate_three_button_mouse,
    doc: /* Specify a way of three button mouse emulation.
The value can be nil, t, or the symbol `reverse'.
nil means that no emulation should be done and the modifiers should be
placed on the mouse-1 event.
t means that when the option-key is held down while pressing the mouse
button, the click will register as mouse-2 and while the command-key

The symbol `reverse' means that the option-key will register for
mouse-3 and the command-key will register for mouse-2.  */);
  Vmac_emulate_three_button_mouse = Qnil;

#if USE_CARBON_EVENTS
  DEFVAR_LISP ("mac-wheel-button-is-mouse-2", &Vmac_wheel_button_is_mouse_2,
   doc: /* Non-nil if the wheel button is mouse-2 and the right click mouse-3.
Otherwise, the right click will be treated as mouse-2 and the wheel
button will be mouse-3.  */);
  Vmac_wheel_button_is_mouse_2 = Qt;

  DEFVAR_LISP ("mac-pass-command-to-system", &Vmac_pass_command_to_system,
   doc: /* Non-nil if command key presses are passed on to the Mac Toolbox.  */);
  Vmac_pass_command_to_system = Qt;

  DEFVAR_LISP ("mac-pass-control-to-system", &Vmac_pass_control_to_system,
   doc: /* Non-nil if control key presses are passed on to the Mac Toolbox.  */);
  Vmac_pass_control_to_system = Qt;

#endif

  DEFVAR_LISP ("mac-allow-anti-aliasing", &Vmac_use_core_graphics,
   doc: /* If non-nil, allow anti-aliasing.
The text will be rendered using Core Graphics text rendering which
may anti-alias the text.  */);
  Vmac_use_core_graphics = Qnil;

  /* Register an entry for `mac-roman' so that it can be used when
     creating the terminal frame on Mac OS 9 before loading
     term/mac-win.elc.  */
  DEFVAR_LISP ("mac-charset-info-alist", &Vmac_charset_info_alist,

83423:b64b7e867d0a

/* Non-nil means Emacs uses toolkit scroll bars.  */

Lisp_Object Vx_toolkit_scroll_bars;

/* If non-zero, the text will be rendered using Core Graphics text
   rendering which may anti-alias the text.  */
int mac_use_core_graphics;


/* Non-zero means that a HELP_EVENT has been generated since Emacs
   start.  */

static int any_help_event_p;

/* Last window where we saw the mouse.  Used by mouse-autoselect-window.  */
static Lisp_Object last_window;

/* Non-zero means make use of UNDERLINE_POSITION font properties.
   (Not yet supported.)  */
int x_use_underline_position_properties;

/* This is a chain of structures for all the X displays currently in
   use.  */

struct x_display_info *x_display_list;

extern EMACS_INT extra_keyboard_modifiers;

/* The keysyms to use for the various modifiers.  */

static Lisp_Object Qalt, Qhyper, Qsuper, Qcontrol, Qmeta, Qmodifier_value;

extern int inhibit_window_system;

#if __MRC__ && !TARGET_API_MAC_CARBON
QDGlobals qd;  /* QuickDraw global information structure.  */

     char *buf;
     int nchars, mode, bytes_per_char;
{
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  UInt32 textFlags, savedFlags;
  if (mac_use_core_graphics) {
    textFlags = kQDUseCGTextRendering;
    savedFlags = SwapQDTextFlags(textFlags);
  }
#endif

						GC_FONT (gc)->mac_style,
						&text_layout);
      if (err == noErr)
	{
#ifdef MAC_OSX
	  if (!mac_use_core_graphics)
	    {
#endif
	      mac_begin_clip (GC_CLIP_REGION (gc));
	      MoveTo (x, y);
	      ATSUDrawText (text_layout,

#endif

  if (mode != srcOr)
    RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f)));
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  if (mac_use_core_graphics)
    SwapQDTextFlags(savedFlags);
#endif
}

  int i;
  CGContextRef context;
  CGGlyph *glyphs;
  CGSize *advances;

  if (!mac_use_core_graphics || GC_FONT (gc)->cg_font == NULL)
    return 0;

  port = GetWindowPort (FRAME_MAC_WINDOW (f));
  port_height = FRAME_PIXEL_HEIGHT (f);
  gx = x;

/* True if the option and command modifiers should be used to emulate
   a three button mouse */
Lisp_Object Vmac_emulate_three_button_mouse;

#if USE_CARBON_EVENTS
/* Non-zero if the mouse wheel button (i.e. button 4) should map to
   mouse-2, instead of mouse-3.  */
int mac_wheel_button_is_mouse_2;

/* If non-zero, the Mac "Command" key is passed on to the Mac Toolbox
   for processing before Emacs sees it.  */
int mac_pass_command_to_system;

/* If non-zero, the Mac "Control" key is passed on to the Mac Toolbox
   for processing before Emacs sees it.  */
int mac_pass_control_to_system;
#endif

/* Points to the variable `inev' in the function XTread_socket.  It is
   used for passing an input event to the function back from
   Carbon/Apple event handlers.  */

#endif
{
  unsigned int result = 0;
  if (mods & shiftKey)
    result |= shift_modifier;

  /* Deactivated to simplify configuration:
     if Vmac_option_modifier is non-NIL, we fully process the Option
     key. Otherwise, we only process it if an additional Ctrl or Command
     is pressed. That way the system may convert the character to a

	GetEventParameter (ref, kEventParamKeyModifiers, typeUInt32, NULL,
			   sizeof (UInt32), NULL, &mods);
	return mac_get_emulated_btn(mods);
      }
    case kEventMouseButtonSecondary:
      return mac_wheel_button_is_mouse_2 ? 2 : 1;
    case kEventMouseButtonTertiary:
    case 4:  /* 4 is the number for the mouse wheel button */
      return mac_wheel_button_is_mouse_2 ? 1 : 2;
    default:
      return 0;
    }
}

	UInt32 modifiers;
	static EventParamName names[] = {kEventParamDirectObject,
					 kEventParamKeyModifiers};
	static EventParamType types[] = {typeHICommand,
					 typeUInt32};
	err = create_apple_event_from_event_ref (event, 2, names, types,
						 &apple_event);
	if (err == noErr)
	  {
	    err = mac_store_apple_event (class_key, id_key, &apple_event);
	    AEDisposeDesc (&apple_event);
	  }

  switch (GetEventKind (event))
    {
    case kEventServicePaste:
      id_key = Qpaste;
      err = create_apple_event_from_event_ref (event, 0, NULL, NULL,
					       &apple_event);
      break;

    case kEventServicePerform:
      {
	static EventParamName names[] = {kEventParamServiceMessageName,
					 kEventParamServiceUserData};
	static EventParamType types[] = {typeCFStringRef,
					 typeCFStringRef};

	id_key = Qperform;
	err = create_apple_event_from_event_ref (event, 2, names, types,
						 &apple_event);
      }
      break;

    default:
      abort ();

      event.modifiers = mac_to_emacs_modifiers (modifiers);
      event.timestamp = TickCount () * (1000 / 60);
      XSETINT (event.x, mouse.h);
      XSETINT (event.y, mouse.v);
      XSETFRAME (frame, f);
      event.frame_or_window = frame;
      event.arg = file_list;
      /* Post to the interrupt queue */
      kbd_buffer_store_event (&event);
      /* MAC_TODO: Mimic behavior of windows by switching contexts to Emacs */
      {
	ProcessSerialNumber psn;

}

static int
backtranslate_modified_keycode(int mods, int keycode, int def)
{
  EventModifiers mapped_modifiers =
    (NILP (Vmac_control_modifier) ? 0 : controlKey)
    | (NILP (Vmac_option_modifier) ? 0 : optionKey)
    | (NILP (Vmac_command_modifier) ? 0 : cmdKey);

  if (mods & mapped_modifiers)
    {
      /* This code comes from Keyboard Resource,
	 Appendix C of IM - Text.  This is necessary
	 since shift is ignored in KCHR table
	 translation when option or command is pressed.

	 Not done for combinations with the option key (alt)
	 unless it is to be caught by Emacs:  this is
	 to preserve key combinations translated by the OS
	 such as Alt-3.
      */
      /* Mask off modifier keys that are mapped to some Emacs
	 modifiers.  */
      int new_modifiers = mods & ~mapped_modifiers;
      /* set high byte of keycode to modifier high byte*/
      int new_keycode = keycode | new_modifiers;
      Ptr kchr_ptr = (Ptr) GetScriptManagerVariable (smKCHRCache);
      unsigned long some_state = 0;
      return (int) KeyTranslate (kchr_ptr, new_keycode,
				 &some_state) & 0xff;
      /* TO DO: Recognize two separate resulting characters, "for
	 example, when the user presses Option-E followed by N, you
	 can map this through the KeyTranslate function using the
	 U.S. 'KCHR' resource to produce ´n, which KeyTranslate
	 returns as two characters in the bytes labeled Character code

	    /* When using Carbon Events, we need to pass raw keyboard
	       events to the TSM ourselves.  If TSM handles it, it
	       will pass back noErr, otherwise it will pass back
	       "eventNotHandledErr" and we can process it
	       normally.  */
	    if ((mac_pass_command_to_system
		 || !(er.modifiers & cmdKey))
		&& (mac_pass_control_to_system
		    || !(er.modifiers & controlKey))
		&& (NILP (Vmac_option_modifier)
		    || !(er.modifiers & optionKey)))
	      if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		  != eventNotHandledErr)

		  inev.code = 0xff00 | xkeysym;
		  inev.kind = NON_ASCII_KEYSTROKE_EVENT;
		}
	      else
		{
		  inev.code =
		    backtranslate_modified_keycode(er.modifiers, keycode,
						   er.message & charCodeMask);
		  inev.kind = ASCII_KEYSTROKE_EVENT;
		}
	  }

#if USE_CARBON_EVENTS
	  inev.modifiers = mac_event_to_emacs_modifiers (eventRef);

#if USE_ATSUI
  staticpro (&atsu_font_id_hash);
  atsu_font_id_hash = Qnil;
#endif

  /* We don't yet support this, but defining this here avoids whining
     from cus-start.el and other places, like "M-x set-variable".  */
  DEFVAR_BOOL ("x-use-underline-position-properties",
	       &x_use_underline_position_properties,
     doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
nil means ignore them.  If you encounter fonts with bogus
UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
to 4.1, set this to nil.

NOTE: Not supported on Mac yet.  */);
  x_use_underline_position_properties = 0;

  DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
	       doc: /* If not nil, Emacs uses toolkit scroll bars.  */);
#ifdef USE_TOOLKIT_SCROLL_BARS
  Vx_toolkit_scroll_bars = Qt;
#else

  last_mouse_motion_frame = Qnil;

/* Variables to configure modifier key assignment.  */

  DEFVAR_LISP ("mac-control-modifier", &Vmac_control_modifier,
    doc: /* *Modifier key assumed when the Mac control key is pressed.
The value can be `control', `meta', `alt', `hyper', or `super' for the
respective modifier.  The default is `control'.  */);
  Vmac_control_modifier = Qcontrol;

  DEFVAR_LISP ("mac-option-modifier", &Vmac_option_modifier,
    doc: /* *Modifier key assumed when the Mac alt/option key is pressed.
The value can be `control', `meta', `alt', `hyper', or `super' for the
respective modifier.  If the value is nil then the key will act as the
normal Mac control modifier, and the option key can be used to compose
characters depending on the chosen Mac keyboard setting.  */);
  Vmac_option_modifier = Qnil;

  DEFVAR_LISP ("mac-command-modifier", &Vmac_command_modifier,
    doc: /* *Modifier key assumed when the Mac command key is pressed.
The value can be `control', `meta', `alt', `hyper', or `super' for the
respective modifier.  The default is `meta'.  */);
  Vmac_command_modifier = Qmeta;

  DEFVAR_LISP ("mac-function-modifier", &Vmac_function_modifier,
    doc: /* *Modifier key assumed when the Mac function key is pressed.
The value can be `control', `meta', `alt', `hyper', or `super' for the
respective modifier.  Note that remapping the function key may lead to
unexpected results for some keys on non-US/GB keyboards.  */);
  Vmac_function_modifier = Qnil;

  DEFVAR_LISP ("mac-emulate-three-button-mouse",
	       &Vmac_emulate_three_button_mouse,
    doc: /* *Specify a way of three button mouse emulation.
The value can be nil, t, or the symbol `reverse'.
nil means that no emulation should be done and the modifiers should be
placed on the mouse-1 event.
t means that when the option-key is held down while pressing the mouse
button, the click will register as mouse-2 and while the command-key

The symbol `reverse' means that the option-key will register for
mouse-3 and the command-key will register for mouse-2.  */);
  Vmac_emulate_three_button_mouse = Qnil;

#if USE_CARBON_EVENTS
  DEFVAR_BOOL ("mac-wheel-button-is-mouse-2", &mac_wheel_button_is_mouse_2,
   doc: /* *Non-nil if the wheel button is mouse-2 and the right click mouse-3.
Otherwise, the right click will be treated as mouse-2 and the wheel
button will be mouse-3.  */);
  mac_wheel_button_is_mouse_2 = 1;

  DEFVAR_BOOL ("mac-pass-command-to-system", &mac_pass_command_to_system,
   doc: /* *Non-nil if command key presses are passed on to the Mac Toolbox.  */);
  mac_pass_command_to_system = 1;

  DEFVAR_BOOL ("mac-pass-control-to-system", &mac_pass_control_to_system,
   doc: /* *Non-nil if control key presses are passed on to the Mac Toolbox.  */);
  mac_pass_control_to_system = 1;

#endif

  DEFVAR_BOOL ("mac-allow-anti-aliasing", &mac_use_core_graphics,
   doc: /* *If non-nil, allow anti-aliasing.
The text will be rendered using Core Graphics text rendering which
may anti-alias the text.  */);
  mac_use_core_graphics = 0;

  /* Register an entry for `mac-roman' so that it can be used when
     creating the terminal frame on Mac OS 9 before loading
     term/mac-win.elc.  */
  DEFVAR_LISP ("mac-charset-info-alist", &Vmac_charset_info_alist,