Remove support for Mac Carbon.

* mactoolbox.c:
* macterm.h:
* macterm.c:
* macselect.c:
* macmenu.c:
* macgui.h:
* macfns.c:
* mac.c: Remove file.
* s/darwin.h:
* m/intel386.h:
* xfaces.c:
* xdisp.c:
* window.c:
* tparam.c:
* termhooks.h:
* termcap.c:
* term.c:
* syssignal.h:
* sysselect.h:
* sysdep.c:
* process.c:
* lread.c:
* lisp.h:
* keyboard.c:
* image.c:
* fringe.c:
* frame.h:
* frame.c:
* fontset.c:
* font.h:
* font.c:
* fns.c:
* fileio.c:
* emacs.c:
* dispnew.c:
* dispextern.h:
* config.in:
* atimer.c:
* Makefile.in: Remove code for Carbon

* erc.el: Remove code for Carbon.

Remove support for Mac Carbon.
* term/mac-win.el: Remove file
* international/mule-cmds.el:
* version.el:
* startup.el:
* simple.el:
* mwheel.el:
* mouse.el:
* loadup.el:
* isearch.el:
* info.el:
* frame.el:
* faces.el:
* disp-table.el:
* cus-start.el:
* cus-face.el:
* cus-edit.el:
* Makefile.in: Remove code for Carbon.

Remove support for Mac Carbon.
* makefile.w32-in:
* emacsclient.c: Remove code for Carbon.

* PROBLEMS:
* MACHINES: Remove mentions of Mac Carbon.

* ns-emacs.texi:
* faq.texi: Remove mentions of Mac Carbon.

* os.texi:
* frames.texi:
* display.texi: Remove mentions of Mac Carbon.

* xresources.texi: Remove mentions of Mac Carbon.

* make-tarball.txt:
* admin.el:
* FOR-RELEASE:
* CPP-DEFINES: Remove mentions of Mac Carbon.

Remove support for Mac Carbon.
* mac: Remove directory.
* make-dist:
* configure.in:
* README:
* Makefile.in:
* INSTALL:  Remove code for Carbon.
* configure: Regenerate.

1 files changed, 0 insertions, 1165 deletions

diff --git a/src/macselect.c b/src/macselect.c
deleted file mode 100644
index b505698fab0..00000000000
--- a/src/macselect.c
+++ /dev/null
@@ -1,1165 +0,0 @@
-/* Selection processing for Emacs on Mac OS.
-   Copyright (C) 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
-
-This file is part of GNU Emacs.
-
-GNU Emacs is free software: you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation, either version 3 of the License, or
-(at your option) any later version.
-
-GNU Emacs is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
-
-#include <config.h>
-
-#include "lisp.h"
-#include "macterm.h"
-#include "blockinput.h"
-#include "keymap.h"
-
-#if !TARGET_API_MAC_CARBON
-#include <Endian.h>
-#endif
-
-static void x_own_selection P_ ((Lisp_Object, Lisp_Object));
-static Lisp_Object x_get_local_selection P_ ((Lisp_Object, Lisp_Object, int));
-static Lisp_Object x_get_foreign_selection P_ ((Lisp_Object,
-                                                Lisp_Object,
-                                                Lisp_Object));
-
-Lisp_Object QPRIMARY, QSECONDARY, QTIMESTAMP, QTARGETS;
-
-static Lisp_Object Vx_lost_selection_functions;
-/* Coding system for communicating with other programs via selections.  */
-static Lisp_Object Vselection_coding_system;
-
-/* Coding system for the next communicating with other programs.  */
-static Lisp_Object Vnext_selection_coding_system;
-
-static Lisp_Object Qforeign_selection;
-
-/* The timestamp of the last input event Emacs received from the
-   window server.  */
-/* Defined in keyboard.c.  */
-extern unsigned long last_event_timestamp;
-
-/* This is an association list whose elements are of the form
-     ( SELECTION-NAME SELECTION-VALUE SELECTION-TIMESTAMP FRAME OWNERSHIP-INFO)
-   SELECTION-NAME is a lisp symbol.
-   SELECTION-VALUE is the value that emacs owns for that selection.
-     It may be any kind of Lisp object.
-   SELECTION-TIMESTAMP is the time at which emacs began owning this selection,
-     as a cons of two 16-bit numbers (making a 32 bit time.)
-   FRAME is the frame for which we made the selection.
-   OWNERSHIP-INFO is a value saved when emacs owns for that selection.
-     If another application takes the ownership of that selection
-     later, then newly examined ownership info value should be
-     different from the saved one.
-   If there is an entry in this alist, the current ownership info for
-    the selection coincides with OWNERSHIP-INFO, then it can be
-    assumed that Emacs owns that selection.
-   The only (eq) parts of this list that are visible from Lisp are the
-    selection-values.  */
-static Lisp_Object Vselection_alist;
-
-/* This is an alist whose CARs are selection-types and whose CDRs are
-   the names of Lisp functions to call to convert the given Emacs
-   selection value to a string representing the given selection type.
-   This is for Lisp-level extension of the emacs selection
-   handling.  */
-Lisp_Object Vselection_converter_alist;
-
-/* A selection name (represented as a Lisp symbol) can be associated
-   with a named scrap via `mac-scrap-name' property.  Likewise for a
-   selection type with a scrap flavor type via `mac-ostype'.  */
-Lisp_Object Qmac_scrap_name, Qmac_ostype;
-
-
-/* Do protocol to assert ourself as a selection owner.
-   Update the Vselection_alist so that we can reply to later requests for
-   our selection.  */
-
-static void
-x_own_selection (selection_name, selection_value)
-     Lisp_Object selection_name, selection_value;
-{
-  OSStatus err;
-  Selection sel;
-  struct gcpro gcpro1, gcpro2;
-  Lisp_Object rest, handler_fn, value, target_type;
-  int count;
-
-  CHECK_SYMBOL (selection_name);
-
-  GCPRO2 (selection_name, selection_value);
-
-  BLOCK_INPUT;
-
-  err = mac_get_selection_from_symbol (selection_name, 1, &sel);
-  if (err == noErr && sel)
-    {
-      /* Don't allow a quit within the converter.
-         When the user types C-g, he would be surprised
-         if by luck it came during a converter.  */
-      count = SPECPDL_INDEX ();
-      specbind (Qinhibit_quit, Qt);
-
-      for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest))
-        {
-          if (!(CONSP (XCAR (rest))
-                && (target_type = XCAR (XCAR (rest)),
-                    SYMBOLP (target_type))
-                && mac_valid_selection_target_p (target_type)
-                && (handler_fn = XCDR (XCAR (rest)),
-                    SYMBOLP (handler_fn))))
-            continue;
-
-          if (!NILP (handler_fn))
-            value = call3 (handler_fn, selection_name,
-                           target_type, selection_value);
-
-          if (NILP (value))
-            continue;
-
-          if (mac_valid_selection_value_p (value, target_type))
-            err = mac_put_selection_value (sel, target_type, value);
-          else if (CONSP (value)
-                   && EQ (XCAR (value), target_type)
-                   && mac_valid_selection_value_p (XCDR (value), target_type))
-            err = mac_put_selection_value (sel, target_type, XCDR (value));
-        }
-
-      unbind_to (count, Qnil);
-    }
-
-  UNBLOCK_INPUT;
-
-  UNGCPRO;
-
-  if (sel && err != noErr)
-    error ("Can't set selection");
-
-  /* Now update the local cache */
-  {
-    Lisp_Object selection_time;
-    Lisp_Object selection_data;
-    Lisp_Object ownership_info;
-    Lisp_Object prev_value;
-
-    selection_time = long_to_cons (last_event_timestamp);
-    if (sel)
-      {
-        BLOCK_INPUT;
-        ownership_info = mac_get_selection_ownership_info (sel);
-        UNBLOCK_INPUT;
-      }
-    else
-      ownership_info = Qnil;    /* dummy value for local-only selection */
-    selection_data = Fcons (selection_name,
-                            Fcons (selection_value,
-                                   Fcons (selection_time,
-                                          Fcons (selected_frame,
-                                                 Fcons (ownership_info,
-                                                        Qnil)))));
-    prev_value = assq_no_quit (selection_name, Vselection_alist);
-
-    Vselection_alist = Fcons (selection_data, Vselection_alist);
-
-    /* If we already owned the selection, remove the old selection data.
-       Perhaps we should destructively modify it instead.
-       Don't use Fdelq as that may QUIT.  */
-    if (!NILP (prev_value))
-      {
-        Lisp_Object rest;       /* we know it's not the CAR, so it's easy.  */
-        for (rest = Vselection_alist; CONSP (rest); rest = XCDR (rest))
-          if (EQ (prev_value, Fcar (XCDR (rest))))
-            {
-              XSETCDR (rest, Fcdr (XCDR (rest)));
-              break;
-            }
-      }
-  }
-}
-
-/* Given a selection-name and desired type, look up our local copy of
-   the selection value and convert it to the type.
-   The value is nil or a string.
-   This function is used both for remote requests (LOCAL_REQUEST is zero)
-   and for local x-get-selection-internal (LOCAL_REQUEST is nonzero).
-
-   This calls random Lisp code, and may signal or gc.  */
-
-static Lisp_Object
-x_get_local_selection (selection_symbol, target_type, local_request)
-     Lisp_Object selection_symbol, target_type;
-     int local_request;
-{
-  Lisp_Object local_value;
-  Lisp_Object handler_fn, value, type, check;
-  int count;
-
-  if (NILP (Fx_selection_owner_p (selection_symbol)))
-    return Qnil;
-
-  local_value = assq_no_quit (selection_symbol, Vselection_alist);
-
-  /* TIMESTAMP is a special case 'cause that's easiest.  */
-  if (EQ (target_type, QTIMESTAMP))
-    {
-      handler_fn = Qnil;
-      value = XCAR (XCDR (XCDR (local_value)));
-    }
-#if 0
-  else if (EQ (target_type, QDELETE))
-    {
-      handler_fn = Qnil;
-      Fx_disown_selection_internal
-        (selection_symbol,
-         XCAR (XCDR (XCDR (local_value))));
-      value = QNULL;
-    }
-#endif
-  else
-    {
-      /* Don't allow a quit within the converter.
-         When the user types C-g, he would be surprised
-         if by luck it came during a converter.  */
-      count = SPECPDL_INDEX ();
-      specbind (Qinhibit_quit, Qt);
-
-      CHECK_SYMBOL (target_type);
-      handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist));
-      /* gcpro is not needed here since nothing but HANDLER_FN
-         is live, and that ought to be a symbol.  */
-
-      if (!NILP (handler_fn))
-        value = call3 (handler_fn,
-                       selection_symbol, (local_request ? Qnil : target_type),
-                       XCAR (XCDR (local_value)));
-      else
-        value = Qnil;
-      unbind_to (count, Qnil);
-    }
-
-  if (local_request)
-    return value;
-
-  /* Make sure this value is of a type that we could transmit
-     to another application.  */
-
-  type = target_type;
-  check = value;
-  if (CONSP (value)
-      && SYMBOLP (XCAR (value)))
-    type = XCAR (value),
-    check = XCDR (value);
-
-  if (NILP (value) || mac_valid_selection_value_p (check, type))
-    return value;
-
-  signal_error ("Invalid data returned by selection-conversion function",
-                list2 (handler_fn, value));
-}
-
-
-/* Clear all selections that were made from frame F.
-   We do this when about to delete a frame.  */
-
-void
-x_clear_frame_selections (f)
-     FRAME_PTR f;
-{
-  Lisp_Object frame;
-  Lisp_Object rest;
-
-  XSETFRAME (frame, f);
-
-  /* Otherwise, we're really honest and truly being told to drop it.
-     Don't use Fdelq as that may QUIT;.  */
-
-  /* Delete elements from the beginning of Vselection_alist.  */
-  while (!NILP (Vselection_alist)
-         && EQ (frame, Fcar (Fcdr (Fcdr (Fcdr (Fcar (Vselection_alist)))))))
-    {
-      /* Let random Lisp code notice that the selection has been stolen.  */
-      Lisp_Object hooks, selection_symbol;
-
-      hooks = Vx_lost_selection_functions;
-      selection_symbol = Fcar (Fcar (Vselection_alist));
-
-      if (!EQ (hooks, Qunbound)
-          && !NILP (Fx_selection_owner_p (selection_symbol)))
-        {
-          for (; CONSP (hooks); hooks = Fcdr (hooks))
-            call1 (Fcar (hooks), selection_symbol);
-#if 0 /* This can crash when deleting a frame
-         from x_connection_closed.  Anyway, it seems unnecessary;
-         something else should cause a redisplay.  */
-          redisplay_preserve_echo_area (21);
-#endif
-        }
-
-      Vselection_alist = Fcdr (Vselection_alist);
-    }
-
-  /* Delete elements after the beginning of Vselection_alist.  */
-  for (rest = Vselection_alist; CONSP (rest); rest = XCDR (rest))
-    if (EQ (frame, Fcar (Fcdr (Fcdr (Fcdr (Fcar (XCDR (rest))))))))
-      {
-        /* Let random Lisp code notice that the selection has been stolen.  */
-        Lisp_Object hooks, selection_symbol;
-
-        hooks = Vx_lost_selection_functions;
-        selection_symbol = Fcar (Fcar (XCDR (rest)));
-
-        if (!EQ (hooks, Qunbound)
-          && !NILP (Fx_selection_owner_p (selection_symbol)))
-          {
-            for (; CONSP (hooks); hooks = Fcdr (hooks))
-              call1 (Fcar (hooks), selection_symbol);
-#if 0 /* See above */
-            redisplay_preserve_echo_area (22);
-#endif
-          }
-        XSETCDR (rest, Fcdr (XCDR (rest)));
-        break;
-      }
-}
-
-/* Do protocol to read selection-data from the server.
-   Converts this to Lisp data and returns it.  */
-
-static Lisp_Object
-x_get_foreign_selection (selection_symbol, target_type, time_stamp)
-     Lisp_Object selection_symbol, target_type, time_stamp;
-{
-  OSStatus err;
-  Selection sel;
-  Lisp_Object result = Qnil;
-
-  BLOCK_INPUT;
-
-  err = mac_get_selection_from_symbol (selection_symbol, 0, &sel);
-  if (err == noErr && sel)
-    {
-      if (EQ (target_type, QTARGETS))
-        {
-          result = mac_get_selection_target_list (sel);
-          result = Fvconcat (1, &result);
-        }
-      else
-        {
-          result = mac_get_selection_value (sel, target_type);
-          if (STRINGP (result))
-            Fput_text_property (make_number (0), make_number (SBYTES (result)),
-                                Qforeign_selection, target_type, result);
-        }
-    }
-
-  UNBLOCK_INPUT;
-
-  return result;
-}
-
-
-DEFUN ("x-own-selection-internal", Fx_own_selection_internal,
-       Sx_own_selection_internal, 2, 2, 0,
-       doc: /* Assert a selection of the given TYPE with the given VALUE.
-TYPE is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
-VALUE is typically a string, or a cons of two markers, but may be
-anything that the functions on `selection-converter-alist' know about.  */)
-     (selection_name, selection_value)
-     Lisp_Object selection_name, selection_value;
-{
-  check_mac ();
-  CHECK_SYMBOL (selection_name);
-  if (NILP (selection_value)) error ("SELECTION-VALUE may not be nil");
-  x_own_selection (selection_name, selection_value);
-  return selection_value;
-}
-
-
-/* Request the selection value from the owner.  If we are the owner,
-   simply return our selection value.  If we are not the owner, this
-   will block until all of the data has arrived.  */
-
-DEFUN ("x-get-selection-internal", Fx_get_selection_internal,
-       Sx_get_selection_internal, 2, 3, 0,
-       doc: /* Return text selected from some Mac application.
-SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
-TYPE is the type of data desired, typically `STRING'.
-TIME_STAMP is ignored on Mac.  */)
-     (selection_symbol, target_type, time_stamp)
-     Lisp_Object selection_symbol, target_type, time_stamp;
-{
-  Lisp_Object val = Qnil;
-  struct gcpro gcpro1, gcpro2;
-  GCPRO2 (target_type, val); /* we store newly consed data into these */
-  check_mac ();
-  CHECK_SYMBOL (selection_symbol);
-  CHECK_SYMBOL (target_type);
-
-  val = x_get_local_selection (selection_symbol, target_type, 1);
-
-  if (NILP (val))
-    {
-      val = x_get_foreign_selection (selection_symbol, target_type, time_stamp);
-      goto DONE;
-    }
-
-  if (CONSP (val)
-      && SYMBOLP (XCAR (val)))
-    {
-      val = XCDR (val);
-      if (CONSP (val) && NILP (XCDR (val)))
-        val = XCAR (val);
-    }
- DONE:
-  UNGCPRO;
-  return val;
-}
-
-DEFUN ("x-disown-selection-internal", Fx_disown_selection_internal,
-       Sx_disown_selection_internal, 1, 2, 0,
-       doc: /* If we own the selection SELECTION, disown it.
-Disowning it means there is no such selection.  */)
-     (selection, time)
-     Lisp_Object selection;
-     Lisp_Object time;
-{
-  OSStatus err;
-  Selection sel;
-  Lisp_Object local_selection_data;
-
-  check_mac ();
-  CHECK_SYMBOL (selection);
-
-  if (NILP (Fx_selection_owner_p (selection)))
-    return Qnil;  /* Don't disown the selection when we're not the owner.  */
-
-  local_selection_data = assq_no_quit (selection, Vselection_alist);
-
-  /* Don't use Fdelq as that may QUIT;.  */
-
-  if (EQ (local_selection_data, Fcar (Vselection_alist)))
-    Vselection_alist = Fcdr (Vselection_alist);
-  else
-    {
-      Lisp_Object rest;
-      for (rest = Vselection_alist; CONSP (rest); rest = XCDR (rest))
-        if (EQ (local_selection_data, Fcar (XCDR (rest))))
-          {
-            XSETCDR (rest, Fcdr (XCDR (rest)));
-            break;
-          }
-    }
-
-  /* Let random lisp code notice that the selection has been stolen.  */
-
-  {
-    Lisp_Object rest;
-    rest = Vx_lost_selection_functions;
-    if (!EQ (rest, Qunbound))
-      {
-        for (; CONSP (rest); rest = Fcdr (rest))
-          call1 (Fcar (rest), selection);
-        prepare_menu_bars ();
-        redisplay_preserve_echo_area (20);
-      }
-  }
-
-  BLOCK_INPUT;
-
-  err = mac_get_selection_from_symbol (selection, 0, &sel);
-  if (err == noErr && sel)
-    mac_clear_selection (&sel);
-
-  UNBLOCK_INPUT;
-
-  return Qt;
-}
-
-
-DEFUN ("x-selection-owner-p", Fx_selection_owner_p, Sx_selection_owner_p,
-       0, 1, 0,
-       doc: /* Whether the current Emacs process owns the given SELECTION.
-The arg should be the name of the selection in question, typically one of
-the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
-For convenience, the symbol nil is the same as `PRIMARY',
-and t is the same as `SECONDARY'.  */)
-     (selection)
-     Lisp_Object selection;
-{
-  OSStatus err;
-  Selection sel;
-  Lisp_Object result = Qnil, local_selection_data;
-
-  check_mac ();
-  CHECK_SYMBOL (selection);
-  if (EQ (selection, Qnil)) selection = QPRIMARY;
-  if (EQ (selection, Qt)) selection = QSECONDARY;
-
-  local_selection_data = assq_no_quit (selection, Vselection_alist);
-
-  if (NILP (local_selection_data))
-    return Qnil;
-
-  BLOCK_INPUT;
-
-  err = mac_get_selection_from_symbol (selection, 0, &sel);
-  if (err == noErr && sel)
-    {
-      Lisp_Object ownership_info;
-
-      ownership_info = XCAR (XCDR (XCDR (XCDR (XCDR (local_selection_data)))));
-      if (!NILP (Fequal (ownership_info,
-                         mac_get_selection_ownership_info (sel))))
-        result = Qt;
-    }
-  else
-    result = Qt;
-
-  UNBLOCK_INPUT;
-
-  return result;
-}
-
-DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
-       0, 1, 0,
-       doc: /* Whether there is an owner for the given SELECTION.
-The arg should be the name of the selection in question, typically one of
-the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
-For convenience, the symbol nil is the same as `PRIMARY',
-and t is the same as `SECONDARY'.  */)
-     (selection)
-     Lisp_Object selection;
-{
-  OSStatus err;
-  Selection sel;
-  Lisp_Object result = Qnil, rest;
-
-  /* It should be safe to call this before we have an Mac frame.  */
-  if (! FRAME_MAC_P (SELECTED_FRAME ()))
-    return Qnil;
-
-  CHECK_SYMBOL (selection);
-  if (!NILP (Fx_selection_owner_p (selection)))
-    return Qt;
-  if (EQ (selection, Qnil)) selection = QPRIMARY;
-  if (EQ (selection, Qt)) selection = QSECONDARY;
-
-  BLOCK_INPUT;
-
-  err = mac_get_selection_from_symbol (selection, 0, &sel);
-  if (err == noErr && sel)
-    for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest))
-      {
-        if (CONSP (XCAR (rest)) && SYMBOLP (XCAR (XCAR (rest)))
-            && mac_selection_has_target_p (sel, XCAR (XCAR (rest))))
-          {
-            result = Qt;
-            break;
-          }
-      }
-
-  UNBLOCK_INPUT;
-
-  return result;
-}
-
-
-/***********************************************************************
-                         Apple event support
-***********************************************************************/
-int mac_ready_for_apple_events = 0;
-Lisp_Object Vmac_apple_event_map;
-Lisp_Object Qmac_apple_event_class, Qmac_apple_event_id;
-static Lisp_Object Qemacs_suspension_id;
-extern Lisp_Object Qundefined;
-extern void mac_store_apple_event P_ ((Lisp_Object, Lisp_Object,
-                                       const AEDesc *));
-
-struct apple_event_binding
-{
-  UInt32 code;                  /* Apple event class or ID.  */
-  Lisp_Object key, binding;
-};
-
-struct suspended_ae_info
-{
-  UInt32 expiration_tick, suspension_id;
-  AppleEvent apple_event, reply;
-  struct suspended_ae_info *next;
-};
-
-/* List of apple events deferred at the startup time.  */
-static struct suspended_ae_info *deferred_apple_events = NULL;
-
-/* List of suspended apple events, in order of expiration_tick.  */
-static struct suspended_ae_info *suspended_apple_events = NULL;
-
-static void
-find_event_binding_fun (key, binding, args, data)
-     Lisp_Object key, binding, args;
-     void *data;
-{
-  struct apple_event_binding *event_binding =
-    (struct apple_event_binding *)data;
-  Lisp_Object code_string;
-
-  if (!SYMBOLP (key))
-    return;
-  code_string = Fget (key, args);
-  if (STRINGP (code_string) && SBYTES (code_string) == 4
-      && (EndianU32_BtoN (*((UInt32 *) SDATA (code_string)))
-          == event_binding->code))
-    {
-      event_binding->key = key;
-      event_binding->binding = binding;
-    }
-}
-
-static void
-find_event_binding (keymap, event_binding, class_p)
-     Lisp_Object keymap;
-     struct apple_event_binding *event_binding;
-     int class_p;
-{
-  if (event_binding->code == 0)
-    event_binding->binding =
-      access_keymap (keymap, event_binding->key, 0, 1, 0);
-  else
-    {
-      event_binding->binding = Qnil;
-      map_keymap (keymap, find_event_binding_fun,
-                  class_p ? Qmac_apple_event_class : Qmac_apple_event_id,
-                  event_binding, 0);
-    }
-}
-
-void
-mac_find_apple_event_spec (class, id, class_key, id_key, binding)
-     AEEventClass class;
-     AEEventID id;
-     Lisp_Object *class_key, *id_key, *binding;
-{
-  struct apple_event_binding event_binding;
-  Lisp_Object keymap;
-
-  *binding = Qnil;
-
-  keymap = get_keymap (Vmac_apple_event_map, 0, 0);
-  if (NILP (keymap))
-    return;
-
-  event_binding.code = class;
-  event_binding.key = *class_key;
-  event_binding.binding = Qnil;
-  find_event_binding (keymap, &event_binding, 1);
-  *class_key = event_binding.key;
-  keymap = get_keymap (event_binding.binding, 0, 0);
-  if (NILP (keymap))
-    return;
-
-  event_binding.code = id;
-  event_binding.key = *id_key;
-  event_binding.binding = Qnil;
-  find_event_binding (keymap, &event_binding, 0);
-  *id_key = event_binding.key;
-  *binding = event_binding.binding;
-}
-
-static OSErr
-defer_apple_events (apple_event, reply)
-     const AppleEvent *apple_event, *reply;
-{
-  OSErr err;
-  struct suspended_ae_info *new;
-
-  new = xmalloc (sizeof (struct suspended_ae_info));
-  bzero (new, sizeof (struct suspended_ae_info));
-  new->apple_event.descriptorType = typeNull;
-  new->reply.descriptorType = typeNull;
-
-  err = AESuspendTheCurrentEvent (apple_event);
-
-  /* Mac OS 10.3 Xcode manual says AESuspendTheCurrentEvent makes
-     copies of the Apple event and the reply, but Mac OS 10.4 Xcode
-     manual says it doesn't.  Anyway we create copies of them and save
-     them in `deferred_apple_events'.  */
-  if (err == noErr)
-    err = AEDuplicateDesc (apple_event, &new->apple_event);
-  if (err == noErr)
-    err = AEDuplicateDesc (reply, &new->reply);
-  if (err == noErr)
-    {
-      new->next = deferred_apple_events;
-      deferred_apple_events = new;
-    }
-  else
-    {
-      AEDisposeDesc (&new->apple_event);
-      AEDisposeDesc (&new->reply);
-      xfree (new);
-    }
-
-  return err;
-}
-
-static OSErr
-mac_handle_apple_event_1 (class, id, apple_event, reply)
-     Lisp_Object class, id;
-     const AppleEvent *apple_event;
-     AppleEvent *reply;
-{
-  OSErr err;
-  static UInt32 suspension_id = 0;
-  struct suspended_ae_info *new;
-
-  new = xmalloc (sizeof (struct suspended_ae_info));
-  bzero (new, sizeof (struct suspended_ae_info));
-  new->apple_event.descriptorType = typeNull;
-  new->reply.descriptorType = typeNull;
-
-  err = AESuspendTheCurrentEvent (apple_event);
-  if (err == noErr)
-    err = AEDuplicateDesc (apple_event, &new->apple_event);
-  if (err == noErr)
-    err = AEDuplicateDesc (reply, &new->reply);
-  if (err == noErr)
-    err = AEPutAttributePtr (&new->apple_event, KEY_EMACS_SUSPENSION_ID_ATTR,
-                             typeUInt32, &suspension_id, sizeof (UInt32));
-  if (err == noErr)
-    {
-      OSErr err1;
-      SInt32 reply_requested;
-
-      err1 = AEGetAttributePtr (&new->apple_event, keyReplyRequestedAttr,
-                                typeSInt32, NULL, &reply_requested,
-                                sizeof (SInt32), NULL);
-      if (err1 != noErr)
-        {
-          /* Emulate keyReplyRequestedAttr in older versions.  */
-          reply_requested = reply->descriptorType != typeNull;
-          err = AEPutAttributePtr (&new->apple_event, keyReplyRequestedAttr,
-                                   typeSInt32, &reply_requested,
-                                   sizeof (SInt32));
-        }
-    }
-  if (err == noErr)
-    {
-      SInt32 timeout = 0;
-      struct suspended_ae_info **p;
-
-      new->suspension_id = suspension_id;
-      suspension_id++;
-      err = AEGetAttributePtr (apple_event, keyTimeoutAttr, typeSInt32,
-                               NULL, &timeout, sizeof (SInt32), NULL);
-      new->expiration_tick = TickCount () + timeout;
-
-      for (p = &suspended_apple_events; *p; p = &(*p)->next)
-        if ((*p)->expiration_tick >= new->expiration_tick)
-          break;
-      new->next = *p;
-      *p = new;
-
-      mac_store_apple_event (class, id, &new->apple_event);
-    }
-  else
-    {
-      AEDisposeDesc (&new->reply);
-      AEDisposeDesc (&new->apple_event);
-      xfree (new);
-    }
-
-  return err;
-}
-
-pascal OSErr
-mac_handle_apple_event (apple_event, reply, refcon)
-     const AppleEvent *apple_event;
-     AppleEvent *reply;
-     SInt32 refcon;
-{
-  OSErr err;
-  UInt32 suspension_id;
-  AEEventClass event_class;
-  AEEventID event_id;
-  Lisp_Object class_key, id_key, binding;
-
-  if (!mac_ready_for_apple_events)
-    {
-      err = defer_apple_events (apple_event, reply);
-      if (err != noErr)
-        return errAEEventNotHandled;
-      return noErr;
-    }
-
-  err = AEGetAttributePtr (apple_event, KEY_EMACS_SUSPENSION_ID_ATTR,
-                           typeUInt32, NULL,
-                           &suspension_id, sizeof (UInt32), NULL);
-  if (err == noErr)
-    /* Previously suspended event.  Pass it to the next handler.  */
-    return errAEEventNotHandled;
-
-  err = AEGetAttributePtr (apple_event, keyEventClassAttr, typeType, NULL,
-                           &event_class, sizeof (AEEventClass), NULL);
-  if (err == noErr)
-    err = AEGetAttributePtr (apple_event, keyEventIDAttr, typeType, NULL,
-                             &event_id, sizeof (AEEventID), NULL);
-  if (err == noErr)
-    {
-      mac_find_apple_event_spec (event_class, event_id,
-                                 &class_key, &id_key, &binding);
-      if (!NILP (binding) && !EQ (binding, Qundefined))
-        {
-          if (INTEGERP (binding))
-            return XINT (binding);
-          err = mac_handle_apple_event_1 (class_key, id_key,
-                                          apple_event, reply);
-        }
-      else
-        err = errAEEventNotHandled;
-    }
-  if (err == noErr)
-    return noErr;
-  else
-    return errAEEventNotHandled;
-}
-
-static int
-cleanup_suspended_apple_events (head, all_p)
-     struct suspended_ae_info **head;
-     int all_p;
-{
-  UInt32 current_tick = TickCount (), nresumed = 0;
-  struct suspended_ae_info *p, *next;
-
-  for (p = *head; p; p = next)
-    {
-      if (!all_p && p->expiration_tick > current_tick)
-        break;
-      AESetTheCurrentEvent (&p->apple_event);
-      AEResumeTheCurrentEvent (&p->apple_event, &p->reply,
-                               (AEEventHandlerUPP) kAENoDispatch, 0);
-      AEDisposeDesc (&p->reply);
-      AEDisposeDesc (&p->apple_event);
-      nresumed++;
-      next = p->next;
-      xfree (p);
-    }
-  *head = p;
-
-  return nresumed;
-}
-
-void
-cleanup_all_suspended_apple_events ()
-{
-  cleanup_suspended_apple_events (&deferred_apple_events, 1);
-  cleanup_suspended_apple_events (&suspended_apple_events, 1);
-}
-
-static UInt32
-get_suspension_id (apple_event)
-     Lisp_Object apple_event;
-{
-  Lisp_Object tem;
-
-  CHECK_CONS (apple_event);
-  CHECK_STRING_CAR (apple_event);
-  if (SBYTES (XCAR (apple_event)) != 4
-      || strcmp (SDATA (XCAR (apple_event)), "aevt") != 0)
-    error ("Not an apple event");
-
-  tem = assq_no_quit (Qemacs_suspension_id, XCDR (apple_event));
-  if (NILP (tem))
-    error ("Suspension ID not available");
-
-  tem = XCDR (tem);
-  if (!(CONSP (tem)
-        && STRINGP (XCAR (tem)) && SBYTES (XCAR (tem)) == 4
-        && strcmp (SDATA (XCAR (tem)), "magn") == 0
-        && STRINGP (XCDR (tem)) && SBYTES (XCDR (tem)) == 4))
-    error ("Bad suspension ID format");
-
-  return *((UInt32 *) SDATA (XCDR (tem)));
-}
-
-
-DEFUN ("mac-process-deferred-apple-events", Fmac_process_deferred_apple_events, Smac_process_deferred_apple_events, 0, 0, 0,
-       doc: /* Process Apple events that are deferred at the startup time.  */)
-  ()
-{
-  if (mac_ready_for_apple_events)
-    return Qnil;
-
-  BLOCK_INPUT;
-  mac_ready_for_apple_events = 1;
-  if (deferred_apple_events)
-    {
-      struct suspended_ae_info *prev, *tail, *next;
-
-      /* `nreverse' deferred_apple_events.  */
-      prev = NULL;
-      for (tail = deferred_apple_events; tail; tail = next)
-        {
-          next = tail->next;
-          tail->next = prev;
-          prev = tail;
-        }
-
-      /* Now `prev' points to the first cell.  */
-      for (tail = prev; tail; tail = next)
-        {
-          next = tail->next;
-          AEResumeTheCurrentEvent (&tail->apple_event, &tail->reply,
-                                   ((AEEventHandlerUPP)
-                                    kAEUseStandardDispatch), 0);
-          AEDisposeDesc (&tail->reply);
-          AEDisposeDesc (&tail->apple_event);
-          xfree (tail);
-        }
-
-      deferred_apple_events = NULL;
-    }
-  UNBLOCK_INPUT;
-
-  return Qt;
-}
-
-DEFUN ("mac-cleanup-expired-apple-events", Fmac_cleanup_expired_apple_events, Smac_cleanup_expired_apple_events, 0, 0, 0,
-       doc: /* Clean up expired Apple events.
-Return the number of expired events.   */)
-     ()
-{
-  int nexpired;
-
-  BLOCK_INPUT;
-  nexpired = cleanup_suspended_apple_events (&suspended_apple_events, 0);
-  UNBLOCK_INPUT;
-
-  return make_number (nexpired);
-}
-
-DEFUN ("mac-ae-set-reply-parameter", Fmac_ae_set_reply_parameter, Smac_ae_set_reply_parameter, 3, 3, 0,
-       doc: /* Set parameter KEYWORD to DESCRIPTOR on reply of APPLE-EVENT.
-KEYWORD is a 4-byte string.  DESCRIPTOR is a Lisp representation of an
-Apple event descriptor.  It has the form of (TYPE . DATA), where TYPE
-is a 4-byte string.  Valid format of DATA is as follows:
-
-  * If TYPE is "null", then DATA is nil.
-  * If TYPE is "list", then DATA is a list (DESCRIPTOR1 ... DESCRIPTORn).
-  * If TYPE is "reco", then DATA is a list ((KEYWORD1 . DESCRIPTOR1)
-    ... (KEYWORDn . DESCRIPTORn)).
-  * If TYPE is "aevt", then DATA is ignored and the descriptor is
-    treated as null.
-  * Otherwise, DATA is a string.
-
-If a (sub-)descriptor is in an invalid format, it is silently treated
-as null.
-
-Return t if the parameter is successfully set.  Otherwise return nil.  */)
-     (apple_event, keyword, descriptor)
-     Lisp_Object apple_event, keyword, descriptor;
-{
-  Lisp_Object result = Qnil;
-  UInt32 suspension_id;
-  struct suspended_ae_info *p;
-
-  suspension_id = get_suspension_id (apple_event);
-
-  CHECK_STRING (keyword);
-  if (SBYTES (keyword) != 4)
-    error ("Apple event keyword must be a 4-byte string: %s",
-           SDATA (keyword));
-
-  BLOCK_INPUT;
-  for (p = suspended_apple_events; p; p = p->next)
-    if (p->suspension_id == suspension_id)
-      break;
-  if (p && p->reply.descriptorType != typeNull)
-    {
-      OSErr err;
-
-      err = mac_ae_put_lisp (&p->reply,
-                             EndianU32_BtoN (*((UInt32 *) SDATA (keyword))),
-                             descriptor);
-      if (err == noErr)
-        result = Qt;
-    }
-  UNBLOCK_INPUT;
-
-  return result;
-}
-
-DEFUN ("mac-resume-apple-event", Fmac_resume_apple_event, Smac_resume_apple_event, 1, 2, 0,
-       doc: /* Resume handling of APPLE-EVENT.
-Every Apple event handled by the Lisp interpreter is suspended first.
-This function resumes such a suspended event either to complete Apple
-event handling to give a reply, or to redispatch it to other handlers.
-
-If optional ERROR-CODE is an integer, it specifies the error number
-that is set in the reply.  If ERROR-CODE is t, the resumed event is
-handled with the standard dispatching mechanism, but it is not handled
-by Emacs again, thus it is redispatched to other handlers.
-
-Return t if APPLE-EVENT is successfully resumed.  Otherwise return
-nil, which means the event is already resumed or expired.  */)
-     (apple_event, error_code)
-     Lisp_Object apple_event, error_code;
-{
-  Lisp_Object result = Qnil;
-  UInt32 suspension_id;
-  struct suspended_ae_info **p, *ae;
-
-  suspension_id = get_suspension_id (apple_event);
-
-  BLOCK_INPUT;
-  for (p = &suspended_apple_events; *p; p = &(*p)->next)
-    if ((*p)->suspension_id == suspension_id)
-      break;
-  if (*p)
-    {
-      ae = *p;
-      *p = (*p)->next;
-      if (INTEGERP (error_code)
-          && ae->reply.descriptorType != typeNull)
-        {
-          SInt32 errn = XINT (error_code);
-
-          AEPutParamPtr (&ae->reply, keyErrorNumber, typeSInt32,
-                         &errn, sizeof (SInt32));
-        }
-      AESetTheCurrentEvent (&ae->apple_event);
-      AEResumeTheCurrentEvent (&ae->apple_event, &ae->reply,
-                               ((AEEventHandlerUPP)
-                                (EQ (error_code, Qt) ?
-                                 kAEUseStandardDispatch : kAENoDispatch)),
-                               0);
-      AEDisposeDesc (&ae->reply);
-      AEDisposeDesc (&ae->apple_event);
-      xfree (ae);
-      result = Qt;
-    }
-  UNBLOCK_INPUT;
-
-  return result;
-}
-
-
-/***********************************************************************
-                      Drag and drop support
-***********************************************************************/
-#if TARGET_API_MAC_CARBON
-Lisp_Object Vmac_dnd_known_types;
-#endif  /* TARGET_API_MAC_CARBON */
-
-
-/***********************************************************************
-                        Services menu support
-***********************************************************************/
-#ifdef MAC_OSX
-/* Selection name for communication via Services menu.  */
-Lisp_Object Vmac_service_selection;
-#endif
-
-void
-syms_of_macselect ()
-{
-  defsubr (&Sx_get_selection_internal);
-  defsubr (&Sx_own_selection_internal);
-  defsubr (&Sx_disown_selection_internal);
-  defsubr (&Sx_selection_owner_p);
-  defsubr (&Sx_selection_exists_p);
-  defsubr (&Smac_process_deferred_apple_events);
-  defsubr (&Smac_cleanup_expired_apple_events);
-  defsubr (&Smac_resume_apple_event);
-  defsubr (&Smac_ae_set_reply_parameter);
-
-  Vselection_alist = Qnil;
-  staticpro (&Vselection_alist);
-
-  DEFVAR_LISP ("selection-converter-alist", &Vselection_converter_alist,
-               doc: /* An alist associating selection-types with functions.
-These functions are called to convert the selection, with three args:
-the name of the selection (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');
-a desired type to which the selection should be converted;
-and the local selection value (whatever was given to `x-own-selection').
-
-The function should return the value to send to the Scrap Manager
-\(must be a string).  A return value of nil
-means that the conversion could not be done.  */);
-  Vselection_converter_alist = Qnil;
-
-  DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions,
-               doc: /* A list of functions to be called when Emacs loses a selection.
-\(This happens when a Lisp program explicitly clears the selection.)
-The functions are called with one argument, the selection type
-\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD').  */);
-  Vx_lost_selection_functions = Qnil;
-
-  DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
-               doc: /* Coding system for communicating with other programs.
-When sending or receiving text via cut_buffer, selection, and clipboard,
-the text is encoded or decoded by this coding system.
-The default value is determined by the system script code.  */);
-  Vselection_coding_system = Qnil;
-
-  DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
-               doc: /* Coding system for the next communication with other programs.
-Usually, `selection-coding-system' is used for communicating with
-other programs.  But, if this variable is set, it is used for the
-next communication only.  After the communication, this variable is
-set to nil.  */);
-  Vnext_selection_coding_system = Qnil;
-
-  DEFVAR_LISP ("mac-apple-event-map", &Vmac_apple_event_map,
-               doc: /* Keymap for Apple events handled by Emacs.  */);
-  Vmac_apple_event_map = Qnil;
-
-#if TARGET_API_MAC_CARBON
-  DEFVAR_LISP ("mac-dnd-known-types", &Vmac_dnd_known_types,
-               doc: /* The types accepted by default for dropped data.
-The types are chosen in the order they appear in the list.  */);
-  Vmac_dnd_known_types = mac_dnd_default_known_types ();
-#endif
-
-#ifdef MAC_OSX
-  DEFVAR_LISP ("mac-service-selection", &Vmac_service_selection,
-               doc: /* Selection name for communication via Services menu.  */);
-  Vmac_service_selection = intern ("PRIMARY");
-#endif
-
-  QPRIMARY   = intern ("PRIMARY");      staticpro (&QPRIMARY);
-  QSECONDARY = intern ("SECONDARY");    staticpro (&QSECONDARY);
-  QTIMESTAMP = intern ("TIMESTAMP");    staticpro (&QTIMESTAMP);
-  QTARGETS   = intern ("TARGETS");      staticpro (&QTARGETS);
-
-  Qforeign_selection = intern ("foreign-selection");
-  staticpro (&Qforeign_selection);
-
-  Qmac_scrap_name = intern ("mac-scrap-name");
-  staticpro (&Qmac_scrap_name);
-
-  Qmac_ostype = intern ("mac-ostype");
-  staticpro (&Qmac_ostype);
-
-  Qmac_apple_event_class = intern ("mac-apple-event-class");
-  staticpro (&Qmac_apple_event_class);
-
-  Qmac_apple_event_id = intern ("mac-apple-event-id");
-  staticpro (&Qmac_apple_event_id);
-
-  Qemacs_suspension_id = intern ("emacs-suspension-id");
-  staticpro (&Qemacs_suspension_id);
-}
-
-/* arch-tag: f3c91ad8-99e0-4bd6-9eef-251b2f848732
-   (do not change this comment) */