# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1015776998 0
# Node ID 8090818ccd53496d0309f08c32eedb1bab3fada9
# Parent  7c1c9baea70f9c9649d356b213516cb530faffbd
Added Emacs event save_session_event.

diff -r 7c1c9baea70f -r 8090818ccd53 src/keyboard.c
--- a/src/keyboard.c	Sun Mar 10 16:15:48 2002 +0000
+++ b/src/keyboard.c	Sun Mar 10 16:16:38 2002 +0000
@@ -554,6 +554,8 @@
 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,6 +3733,11 @@
 	  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,6 +5402,9 @@
       /* 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,6 +10367,9 @@
   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,4 +10954,6 @@
 			    "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");
+}