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

[Jan Djärv]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.662 emacs/src/keyboard.c:1.663
*** emacs/src/keyboard.c:1.662  Fri Mar  8 06:34:00 2002
--- emacs/src/keyboard.c        Sun Mar 10 11:16:38 2002
***************
*** 554,559 ****
--- 554,561 ----
  Lisp_Object Qlanguage_change;
  #endif
  Lisp_Object Qdrag_n_drop;
+ Lisp_Object Qsave_session;
+ 
  /* Lisp_Object Qmouse_movement; - also an event header */
  
  /* Properties of event headers.  */
***************
*** 3731,3736 ****
--- 3733,3743 ----
          kbd_fetch_ptr = event + 1;
        }
  #endif
+       else if (event->kind == save_session_event)
+         {
+           obj = Fcons (Qsave_session, Qnil);
+         kbd_fetch_ptr = event + 1;
+         }
        /* Just discard these, by returning nil.
         With MULTI_KBOARD, these events are used as placeholders
         when we need to randomly delete events from the queue.
***************
*** 5395,5400 ****
--- 5402,5410 ----
        /* A user signal.  */
        return *lispy_user_signals[event->code];
        
+     case save_session_event:
+       return Qsave_session;
+       
        /* The 'kind' field of the event is something we don't recognize.  */
      default:
        abort ();
***************
*** 10357,10362 ****
--- 10367,10375 ----
    Qdrag_n_drop = intern ("drag-n-drop");
    staticpro (&Qdrag_n_drop);
  
+   Qsave_session = intern ("save-session");
+   staticpro(&Qsave_session);
+   
    Qusr1_signal = intern ("usr1-signal");
    staticpro (&Qusr1_signal);
    Qusr2_signal = intern ("usr2-signal");
***************
*** 10941,10944 ****
--- 10954,10959 ----
                            "ignore-event");
    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
                            "ignore-event");
+   initial_define_lispy_key (Vspecial_event_map, "save-session",
+                           "handle-save-session");
  }