comparison src/macterm.c @ 66841:b633b787c04d

[USE_CG_TEXT_DRAWING] (mac_draw_string_cg): New function. (x_draw_glyph_string_foreground) [USE_CG_TEXT_DRAWING]: Use it. (XLoadQueryFont) [USE_CG_TEXT_DRAWING]: Set members cg_font and cg_glyphs in struct MacFontStruct if synthesized bold or italic is not used and font substitution never occurs for ASCII and Latin-1 characters. (XLoadQueryFont): Maximum and minimum metrics are now those among ASCII characters. (XLoadQueryFont) [!MAC_OS8 || USE_ATSUI]: Apply WebKit-style height adjustments for Courier, Helvetica, and Times.

66840:8c0a6fb71ce1

#include "window.h"
#include "keyboard.h"
#include "intervals.h"
#include "atimer.h"
#include "keymap.h"
 


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

Lisp_Object Vx_toolkit_scroll_bars;

			      Long2Fix (x), Long2Fix (port_height - y));
	      CGContextSynchronize (context);
	      QDEndCGContext (port, &context);
#if 0
	      /* This doesn't work on Mac OS X 10.1.  */
	      ATSUClearLayoutControls (text_layout, 
				       sizeof (tags) / sizeof (tags[0]),
				       tags);
#else
	      ATSUSetLayoutControls (text_layout,
				     sizeof (tags) / sizeof (tags[0]),

     XChar2b *buf;
     int nchars;
{
  mac_draw_string_common (f, gc, x, y, (char *) buf, nchars, srcCopy, 2);
}


/* Mac replacement for XCopyArea: dest must be window.  */

static void

	  if (s->two_byte_p
#if USE_ATSUI
	      || GC_FONT (s->gc)->mac_style
#endif
	      )
	    mac_draw_string_16 (s->f, s->gc, x,	s->ybase - boff,
				s->char2b, s->nchars);
	  else
	    mac_draw_string (s->f, s->gc, x, s->ybase - boff,
			     char1b, s->nchars);

  char *name;
  Str255 family;
  Str31 charset;
  SInt16 fontnum;
#if USE_ATSUI
  ATSUStyle mac_style = NULL;
#endif
  Style fontface;
#if TARGET_API_MAC_CARBON
  TextEncoding encoding;

      OSErr err;
      ATSUAttributeTag tags[] = {kATSUFontTag, kATSUSizeTag,
				 kATSUQDBoldfaceTag, kATSUQDItalicTag};
      ByteCount sizes[] = {sizeof (ATSUFontID), sizeof (Fixed),
			   sizeof (Boolean), sizeof (Boolean)};
      static ATSUFontID font_id;
      static Fixed size_fixed;
      static Boolean bold_p, italic_p;
      ATSUAttributeValuePtr values[] = {&font_id, &size_fixed,
					&bold_p, &italic_p};
      ATSUFontFeatureType types[] = {kAllTypographicFeaturesType};

  font->mac_fontsize = size;
  font->mac_fontface = fontface;
  font->mac_scriptcode = scriptcode;
#if USE_ATSUI
  font->mac_style = mac_style;
#endif

  /* Apple Japanese (SJIS) font is listed as both
     "*-jisx0208.1983-sjis" (Japanese script) and "*-jisx0201.1976-0"
     (Roman script) in init_font_name_table ().  The latter should be

	{
	  mac_unload_font (&one_mac_display_info, font);
	  return NULL;
	}
      bzero (font->per_char, sizeof (XCharStruct) * 0x10000);

      err = atsu_get_text_layout_with_text_ptr (&c, 1,
						font->mac_style,
						&text_layout);
      if (err != noErr)
	{
	  mac_unload_font (&one_mac_display_info, font);
	  return NULL;
	}

      for (c = 0x20; c <= 0x7e; c++)
	{
	  err = ATSUClearLayoutCache (text_layout, kATSUFromTextBeginning);
	  if (err == noErr)
	    err = ATSUMeasureTextImage (text_layout,
					kATSUFromTextBeginning, kATSUToTextEnd,
					0, 0, &char_bounds);

			       min (min_bounds.bottom, char_bounds.bottom));
		      UnionRect (&max_bounds, &char_bounds, &max_bounds);
		    }
		}
	    }
	}
      STORE_XCHARSTRUCT (font->min_bounds, min_width, min_bounds);
      STORE_XCHARSTRUCT (font->max_bounds, max_width, max_bounds);

      font->min_byte1 = 0;
      font->max_byte1 = 0xff;
      font->min_char_or_byte2 = 0;
      font->max_char_or_byte2 = 0xff;

	  min_width = max_width = char_width;
	  SetRect (&min_bounds, -32767, -32767, 32767, 32767);
	  SetRect (&max_bounds, 0, 0, 0, 0);
	  for (c = 0x20; c <= 0xff; c++)
	    {
	      ch = c;
	      char_width = CharWidth (ch);
	      QDTextBounds (1, &ch, &char_bounds);
	      STORE_XCHARSTRUCT (font->per_char[c - 0x20],
				 char_width, char_bounds);

			   min (min_bounds.right, char_bounds.right),
			   min (min_bounds.bottom, char_bounds.bottom));
		  UnionRect (&max_bounds, &char_bounds, &max_bounds);
		}
	    }
	  STORE_XCHARSTRUCT (font->min_bounds, min_width, min_bounds);
	  STORE_XCHARSTRUCT (font->max_bounds, max_width, max_bounds);
	  if (min_width == max_width
	      && max_bounds.left >= 0 && max_bounds.right <= max_width)
	    {
	      /* Fixed width and no overhangs.  */
	      xfree (font->per_char);

      TextFont (old_fontnum);
      TextSize (old_fontsize);
      TextFace (old_fontface);
    }

  return font;
}


void

  if (font->per_char)
    xfree (font->per_char);
#if USE_ATSUI
  if (font->mac_style)
    ATSUDisposeStyle (font->mac_style);
#endif
  xfree (font);
}

#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 
     composed one.
     if ((mods & optionKey) &&
      (( !NILP(Vmac_option_modifier) || 
      ((mods & cmdKey) || (mods & controlKey))))) */

  if (!NILP (Vmac_option_modifier) && (mods & optionKey)) {
    Lisp_Object val = Fget(Vmac_option_modifier, Qmodifier_value);
    if (INTEGERP(val))

  }
  if (!NILP (Vmac_command_modifier) && (mods & cmdKey)) {
    Lisp_Object val = Fget(Vmac_command_modifier, Qmodifier_value);
    if (INTEGERP(val))
      result |= XUINT(val);
  }   
  if (!NILP (Vmac_control_modifier) && (mods & controlKey)) {
    Lisp_Object val = Fget(Vmac_control_modifier, Qmodifier_value);
    if (INTEGERP(val))
      result |= XUINT(val);
  }  

#ifdef MAC_OSX
  if (!NILP (Vmac_function_modifier) && (mods & kEventKeyModifierFnMask)) {
    Lisp_Object val = Fget(Vmac_function_modifier, Qmodifier_value);
    if (INTEGERP(val))
      result |= XUINT(val);
  } 
#endif
 
  return result;
}

static int
mac_get_emulated_btn ( UInt32 modifiers )

  /*0x78*/ 0xbf /*f2*/, 0x56 /*pgdown*/, 0xbe /*f1*/, 0x51 /*left*/,
  /*0x7C*/ 0x53 /*right*/, 0x54 /*down*/, 0x52 /*up*/, 0
};


static int 
keycode_to_xkeysym (int keyCode, int *xKeySym)
{
  *xKeySym = keycode_to_xkeysym_table [keyCode & 0x7f];
  return *xKeySym != 0;
}

};
static int
convert_fn_keycode (EventRef eventRef, int keyCode, int *newCode)
{
#ifdef MAC_OSX
  /* Use the special map to translate keys when function modifier is 
     to be caught. KeyTranslate can't be used in that case.
     We can't detect the function key using the input_event.modifiers,
     because this uses the high word of an UInt32. Therefore,
     we'll just read it out of the original eventRef.
  */

  The above table always translates to lower characters. We need to use
  the KCHR keyboard resource (KeyTranslate() ) to map k->K and 8->*.

  - The table is meant for English language keyboards, and it will work
  for many others with the exception of key combinations like Fn-ö on
  a German keyboard, which is currently mapped to Fn-;. 
  How to solve this without keeping separate tables for all keyboards
  around? KeyTranslate isn't of much help here, as it only takes a 16-bit
  value for keycode with the modifiers in he high byte, i.e. no room for the
  Fn modifier. That's why we need the table.

  */

  UInt32 mods = 0;
  if (!NILP(Vmac_function_modifier))  
    {
      GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL,
			 sizeof (UInt32), NULL, &mods);
      if (mods & kEventKeyModifierFnMask) 
	{  *newCode = fn_keycode_to_xkeysym_table [keyCode & 0x7f];
	   
	  return (*newCode != 0);
	}
    }
#endif
  return false;
}

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

	 It also does not translate correctly
	 control-shift chars like C-% so mask off shift
	 here also.

	 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,

#if USE_CARBON_EVENTS
	    if (convert_fn_keycode (eventRef, keycode, &xkeysym))
	      {
		inev.code = xkeysym;
		/* this doesn't work - tried to add shift modifiers */
		  inev.code =  
		    backtranslate_modified_keycode(er.modifiers & (~0x2200), 
						   xkeysym | 0x80,  xkeysym); 
		inev.kind = ASCII_KEYSTROKE_EVENT;
	      } 
	    else 
#endif	     
	      if (keycode_to_xkeysym (keycode, &xkeysym))
		{
		  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);

  UInt32 qc_modifiers = ctrl_modifier;

  /* Map modifiers */
  mac_quit_char_modifiers = 0;
  if (qc_modifiers & ctrl_modifier)  mac_quit_char_modifiers |= controlKey;
  if (qc_modifiers & shift_modifier) mac_quit_char_modifiers |= shiftKey; 
  if (qc_modifiers & alt_modifier)   mac_quit_char_modifiers |= optionKey;
}

static void
init_quit_char_handler ()

  Qmodifier_value = intern ("modifier-value");
  Qctrl = intern ("ctrl");
  Fput (Qctrl, Qmodifier_value, make_number (ctrl_modifier));
  Qmeta = intern ("meta");
  Fput (Qmeta, Qmodifier_value, make_number (meta_modifier)); 
  Qalt = intern ("alt");
  Fput (Qalt, Qmodifier_value, make_number (alt_modifier));
  Qhyper = intern ("hyper");
  Fput (Qhyper, Qmodifier_value, make_number (hyper_modifier));
  Qsuper = intern ("super");

  Vx_toolkit_scroll_bars = Qnil;
#endif

  staticpro (&last_mouse_motion_frame);
  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', `ctrl', `hyper', or `super' for the respective
modifier.  The default is `ctrl'.  */);
  Vmac_control_modifier = Qctrl;

  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', `ctrl', `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', `ctrl', `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', `ctrl', `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;

66841:b633b787c04d

#include "window.h"
#include "keyboard.h"
#include "intervals.h"
#include "atimer.h"
#include "keymap.h"



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

Lisp_Object Vx_toolkit_scroll_bars;

			      Long2Fix (x), Long2Fix (port_height - y));
	      CGContextSynchronize (context);
	      QDEndCGContext (port, &context);
#if 0
	      /* This doesn't work on Mac OS X 10.1.  */
	      ATSUClearLayoutControls (text_layout,
				       sizeof (tags) / sizeof (tags[0]),
				       tags);
#else
	      ATSUSetLayoutControls (text_layout,
				     sizeof (tags) / sizeof (tags[0]),

     XChar2b *buf;
     int nchars;
{
  mac_draw_string_common (f, gc, x, y, (char *) buf, nchars, srcCopy, 2);
}


#if USE_CG_TEXT_DRAWING
static XCharStruct *x_per_char_metric P_ ((XFontStruct *, XChar2b *));

static int
mac_draw_string_cg (f, gc, x, y, buf, nchars)
     struct frame *f;
     GC gc;
     int x, y;
     XChar2b *buf;
     int nchars;
{
  CGrafPtr port;
  float port_height, gx, gy;
  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;
  gy = port_height - y;
  glyphs = (CGGlyph *)buf;
  advances = xmalloc (sizeof (CGSize) * nchars);
  for (i = 0; i < nchars; i++)
    {
      advances[i].width = x_per_char_metric (GC_FONT (gc), buf)->width;
      advances[i].height = 0;
      glyphs[i] = GC_FONT (gc)->cg_glyphs[buf->byte2];
      buf++;
    }

  QDBeginCGContext (port, &context);
  if (gc->n_clip_rects)
    {
      CGContextTranslateCTM (context, 0, port_height);
      CGContextScaleCTM (context, 1, -1);
      CGContextClipToRects (context, gc->clip_rects, gc->n_clip_rects);
      CGContextScaleCTM (context, 1, -1);
      CGContextTranslateCTM (context, 0, -port_height);
    }
  CGContextSetRGBFillColor (context,
			    RED_FROM_ULONG (gc->xgcv.foreground) / 255.0,
			    GREEN_FROM_ULONG (gc->xgcv.foreground) / 255.0,
			    BLUE_FROM_ULONG (gc->xgcv.foreground) / 255.0,
			    1.0);
  CGContextSetFont (context, GC_FONT (gc)->cg_font);
  CGContextSetFontSize (context, GC_FONT (gc)->mac_fontsize);
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
  CGContextSetTextPosition (context, gx, gy);
  CGContextShowGlyphsWithAdvances (context, glyphs, advances, nchars);
#else
  for (i = 0; i < nchars; i++)
    {
      CGContextShowGlyphsAtPoint (context, gx, gy, glyphs + i, 1);
      gx += advances[i].width;
    }
#endif
  CGContextSynchronize (context);
  QDEndCGContext (port, &context);

  xfree (advances);

  return 1;
}
#endif


/* Mac replacement for XCopyArea: dest must be window.  */

static void

	  if (s->two_byte_p
#if USE_ATSUI
	      || GC_FONT (s->gc)->mac_style
#endif
	      )
#if USE_CG_TEXT_DRAWING
	    if (!s->two_byte_p
		&& mac_draw_string_cg (s->f, s->gc, x, s->ybase - boff,
				       s->char2b, s->nchars))
	      ;
	    else
#endif
	    mac_draw_string_16 (s->f, s->gc, x,	s->ybase - boff,
				s->char2b, s->nchars);
	  else
	    mac_draw_string (s->f, s->gc, x, s->ybase - boff,
			     char1b, s->nchars);

  char *name;
  Str255 family;
  Str31 charset;
  SInt16 fontnum;
#if USE_ATSUI
  static ATSUFontID font_id;
  ATSUStyle mac_style = NULL;
#endif
  Style fontface;
#if TARGET_API_MAC_CARBON
  TextEncoding encoding;

      OSErr err;
      ATSUAttributeTag tags[] = {kATSUFontTag, kATSUSizeTag,
				 kATSUQDBoldfaceTag, kATSUQDItalicTag};
      ByteCount sizes[] = {sizeof (ATSUFontID), sizeof (Fixed),
			   sizeof (Boolean), sizeof (Boolean)};
      static Fixed size_fixed;
      static Boolean bold_p, italic_p;
      ATSUAttributeValuePtr values[] = {&font_id, &size_fixed,
					&bold_p, &italic_p};
      ATSUFontFeatureType types[] = {kAllTypographicFeaturesType};

  font->mac_fontsize = size;
  font->mac_fontface = fontface;
  font->mac_scriptcode = scriptcode;
#if USE_ATSUI
  font->mac_style = mac_style;
#if USE_CG_TEXT_DRAWING
  font->cg_font = NULL;
  font->cg_glyphs = NULL;
#endif
#endif

  /* Apple Japanese (SJIS) font is listed as both
     "*-jisx0208.1983-sjis" (Japanese script) and "*-jisx0201.1976-0"
     (Roman script) in init_font_name_table ().  The latter should be

	{
	  mac_unload_font (&one_mac_display_info, font);
	  return NULL;
	}
      bzero (font->per_char, sizeof (XCharStruct) * 0x10000);

#if USE_CG_TEXT_DRAWING
      {
	FMFontFamily font_family;
	FMFontStyle style;
	ATSFontRef ats_font;

	err = FMGetFontFamilyInstanceFromFont (font_id, &font_family, &style);
	if (err == noErr)
	  err = FMGetFontFromFontFamilyInstance (font_family, fontface,
						 &font_id, &style);
	/* Use CG text drawing if italic/bold is not synthesized.  */
	if (err == noErr && style == fontface)
	  {
	    ats_font = FMGetATSFontRefFromFont (font_id);
	    font->cg_font = CGFontCreateWithPlatformFont (&ats_font);
	  }
      }

      if (font->cg_font)
	font->cg_glyphs = xmalloc (sizeof (CGGlyph) * 0x100);
      if (font->cg_glyphs)
	bzero (font->cg_glyphs, sizeof (CGGlyph) * 0x100);
#endif

      err = atsu_get_text_layout_with_text_ptr (&c, 1,
						font->mac_style,
						&text_layout);
      if (err != noErr)
	{
	  mac_unload_font (&one_mac_display_info, font);
	  return NULL;
	}

      for (c = 0x20; c <= 0xff; c++)
	{
	  if (c == 0xad)
	    /* Soft hyphen is not supported in ATSUI.  */
	    continue;
	  else if (c == 0x7f)
	    {
	      STORE_XCHARSTRUCT (font->min_bounds, min_width, min_bounds);
	      STORE_XCHARSTRUCT (font->max_bounds, max_width, max_bounds);
	      c = 0x9f;
	      continue;
	    }

	  err = ATSUClearLayoutCache (text_layout, kATSUFromTextBeginning);
	  if (err == noErr)
	    err = ATSUMeasureTextImage (text_layout,
					kATSUFromTextBeginning, kATSUToTextEnd,
					0, 0, &char_bounds);

			       min (min_bounds.bottom, char_bounds.bottom));
		      UnionRect (&max_bounds, &char_bounds, &max_bounds);
		    }
		}
	    }
#if USE_CG_TEXT_DRAWING
	  if (err == noErr && char_width > 0 && font->cg_font)
	    {
	      ATSUGlyphInfoArray glyph_info_array;
	      ByteCount count = sizeof (ATSUGlyphInfoArray);

	      err = ATSUMatchFontsToText (text_layout, kATSUFromTextBeginning,
					  kATSUToTextEnd, NULL, NULL, NULL);
	      if (err == noErr)
		err = ATSUGetGlyphInfo (text_layout, kATSUFromTextBeginning,
					kATSUToTextEnd, &count,
					&glyph_info_array);
	      if (err == noErr)
		font->cg_glyphs[c] = glyph_info_array.glyphs[0].glyphID;
	      else
		{
		  /* Don't use CG text drawing if font substitution
		     occurs in ASCII or Latin-1 characters.  */
		  CGFontRelease (font->cg_font);
		  font->cg_font = NULL;
		  xfree (font->cg_glyphs);
		  font->cg_glyphs = NULL;
		}
	    }
#endif
	}

      font->min_byte1 = 0;
      font->max_byte1 = 0xff;
      font->min_char_or_byte2 = 0;
      font->max_char_or_byte2 = 0xff;

	  min_width = max_width = char_width;
	  SetRect (&min_bounds, -32767, -32767, 32767, 32767);
	  SetRect (&max_bounds, 0, 0, 0, 0);
	  for (c = 0x20; c <= 0xff; c++)
	    {
	      if (c == 0x7f)
		{
		  STORE_XCHARSTRUCT (font->min_bounds, min_width, min_bounds);
		  STORE_XCHARSTRUCT (font->max_bounds, max_width, max_bounds);
		  continue;
		}

	      ch = c;
	      char_width = CharWidth (ch);
	      QDTextBounds (1, &ch, &char_bounds);
	      STORE_XCHARSTRUCT (font->per_char[c - 0x20],
				 char_width, char_bounds);

			   min (min_bounds.right, char_bounds.right),
			   min (min_bounds.bottom, char_bounds.bottom));
		  UnionRect (&max_bounds, &char_bounds, &max_bounds);
		}
	    }
	  if (min_width == max_width
	      && max_bounds.left >= 0 && max_bounds.right <= max_width)
	    {
	      /* Fixed width and no overhangs.  */
	      xfree (font->per_char);

      TextFont (old_fontnum);
      TextSize (old_fontsize);
      TextFace (old_fontface);
    }

#if !defined (MAC_OS8) || USE_ATSUI
  /* AppKit and WebKit do some adjustment to the heights of Courier,
     Helvetica, and Times.  This only works on the environments where
     the XDrawImageString counterpart is never used.  */
  if (strcmp (family, "courier") == 0 || strcmp (family, "helvetica") == 0
      || strcmp (family, "times") == 0)
    font->ascent += (font->ascent + font->descent) * .15 + 0.5;
#endif

  return font;
}


void

  if (font->per_char)
    xfree (font->per_char);
#if USE_ATSUI
  if (font->mac_style)
    ATSUDisposeStyle (font->mac_style);
#if USE_CG_TEXT_DRAWING
  if (font->cg_font)
    CGFontRelease (font->cg_font);
  if (font->cg_glyphs)
    xfree (font->cg_glyphs);
#endif
#endif
  xfree (font);
}

#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
     composed one.
     if ((mods & optionKey) &&
      (( !NILP(Vmac_option_modifier) ||
      ((mods & cmdKey) || (mods & controlKey))))) */

  if (!NILP (Vmac_option_modifier) && (mods & optionKey)) {
    Lisp_Object val = Fget(Vmac_option_modifier, Qmodifier_value);
    if (INTEGERP(val))

  }
  if (!NILP (Vmac_command_modifier) && (mods & cmdKey)) {
    Lisp_Object val = Fget(Vmac_command_modifier, Qmodifier_value);
    if (INTEGERP(val))
      result |= XUINT(val);
  }
  if (!NILP (Vmac_control_modifier) && (mods & controlKey)) {
    Lisp_Object val = Fget(Vmac_control_modifier, Qmodifier_value);
    if (INTEGERP(val))
      result |= XUINT(val);
  }

#ifdef MAC_OSX
  if (!NILP (Vmac_function_modifier) && (mods & kEventKeyModifierFnMask)) {
    Lisp_Object val = Fget(Vmac_function_modifier, Qmodifier_value);
    if (INTEGERP(val))
      result |= XUINT(val);
  }
#endif

  return result;
}

static int
mac_get_emulated_btn ( UInt32 modifiers )

  /*0x78*/ 0xbf /*f2*/, 0x56 /*pgdown*/, 0xbe /*f1*/, 0x51 /*left*/,
  /*0x7C*/ 0x53 /*right*/, 0x54 /*down*/, 0x52 /*up*/, 0
};


static int
keycode_to_xkeysym (int keyCode, int *xKeySym)
{
  *xKeySym = keycode_to_xkeysym_table [keyCode & 0x7f];
  return *xKeySym != 0;
}

};
static int
convert_fn_keycode (EventRef eventRef, int keyCode, int *newCode)
{
#ifdef MAC_OSX
  /* Use the special map to translate keys when function modifier is
     to be caught. KeyTranslate can't be used in that case.
     We can't detect the function key using the input_event.modifiers,
     because this uses the high word of an UInt32. Therefore,
     we'll just read it out of the original eventRef.
  */

  The above table always translates to lower characters. We need to use
  the KCHR keyboard resource (KeyTranslate() ) to map k->K and 8->*.

  - The table is meant for English language keyboards, and it will work
  for many others with the exception of key combinations like Fn-ö on
  a German keyboard, which is currently mapped to Fn-;.
  How to solve this without keeping separate tables for all keyboards
  around? KeyTranslate isn't of much help here, as it only takes a 16-bit
  value for keycode with the modifiers in he high byte, i.e. no room for the
  Fn modifier. That's why we need the table.

  */

  UInt32 mods = 0;
  if (!NILP(Vmac_function_modifier))
    {
      GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL,
			 sizeof (UInt32), NULL, &mods);
      if (mods & kEventKeyModifierFnMask)
	{  *newCode = fn_keycode_to_xkeysym_table [keyCode & 0x7f];

	  return (*newCode != 0);
	}
    }
#endif
  return false;
}

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

	 It also does not translate correctly
	 control-shift chars like C-% so mask off shift
	 here also.

	 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,

#if USE_CARBON_EVENTS
	    if (convert_fn_keycode (eventRef, keycode, &xkeysym))
	      {
		inev.code = xkeysym;
		/* this doesn't work - tried to add shift modifiers */
		  inev.code =
		    backtranslate_modified_keycode(er.modifiers & (~0x2200),
						   xkeysym | 0x80,  xkeysym);
		inev.kind = ASCII_KEYSTROKE_EVENT;
	      }
	    else
#endif
	      if (keycode_to_xkeysym (keycode, &xkeysym))
		{
		  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);

  UInt32 qc_modifiers = ctrl_modifier;

  /* Map modifiers */
  mac_quit_char_modifiers = 0;
  if (qc_modifiers & ctrl_modifier)  mac_quit_char_modifiers |= controlKey;
  if (qc_modifiers & shift_modifier) mac_quit_char_modifiers |= shiftKey;
  if (qc_modifiers & alt_modifier)   mac_quit_char_modifiers |= optionKey;
}

static void
init_quit_char_handler ()

  Qmodifier_value = intern ("modifier-value");
  Qctrl = intern ("ctrl");
  Fput (Qctrl, Qmodifier_value, make_number (ctrl_modifier));
  Qmeta = intern ("meta");
  Fput (Qmeta, Qmodifier_value, make_number (meta_modifier));
  Qalt = intern ("alt");
  Fput (Qalt, Qmodifier_value, make_number (alt_modifier));
  Qhyper = intern ("hyper");
  Fput (Qhyper, Qmodifier_value, make_number (hyper_modifier));
  Qsuper = intern ("super");

  Vx_toolkit_scroll_bars = Qnil;
#endif

  staticpro (&last_mouse_motion_frame);
  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', `ctrl', `hyper', or `super' for the respective
modifier.  The default is `ctrl'.  */);
  Vmac_control_modifier = Qctrl;

  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', `ctrl', `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', `ctrl', `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', `ctrl', `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;