[Emacs-diffs] Changes to emacs/src/keyboard.c

[YAMAMOTO Mitsuharu]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.843 emacs/src/keyboard.c:1.844
*** emacs/src/keyboard.c:1.843  Sat Oct 29 19:34:58 2005
--- emacs/src/keyboard.c        Sat Dec 10 01:49:24 2005
***************
*** 527,532 ****
--- 527,535 ----
  #endif
  Lisp_Object Qdrag_n_drop;
  Lisp_Object Qsave_session;
+ #ifdef MAC_OS
+ Lisp_Object Qmac_apple_event;
+ #endif
  
  /* Lisp_Object Qmouse_movement; - also an event header */
  
***************
*** 5864,5869 ****
--- 5867,5886 ----
      case SAVE_SESSION_EVENT:
        return Qsave_session;
  
+ #ifdef MAC_OS
+     case MAC_APPLE_EVENT:
+       {
+       Lisp_Object spec[2];
+ 
+       spec[0] = event->x;
+       spec[1] = event->y;
+       return Fcons (Qmac_apple_event,
+                     Fcons (Fvector (2, spec),
+                            Fcons (mac_make_lispy_event_code (event->code),
+                                   Qnil)));
+       }
+ #endif
+ 
        /* The 'kind' field of the event is something we don't recognize.  */
      default:
        abort ();
***************
*** 10878,10883 ****
--- 10895,10905 ----
  
    Qsave_session = intern ("save-session");
    staticpro (&Qsave_session);
+ 
+ #ifdef MAC_OS
+   Qmac_apple_event = intern ("mac-apple-event");
+   staticpro (&Qmac_apple_event);
+ #endif
  
    Qusr1_signal = intern ("usr1-signal");
    staticpro (&Qusr1_signal);