/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.662 by gerd, Fri Mar 8 11:34:00 2002 UTC revision 1.663 by jhd, Sun Mar 10 16:16:38 2002 UTC
# Line 554  Lisp_Object Qmouse_wheel; Line 554  Lisp_Object Qmouse_wheel;
554  Lisp_Object Qlanguage_change;  Lisp_Object Qlanguage_change;
555  #endif  #endif
556  Lisp_Object Qdrag_n_drop;  Lisp_Object Qdrag_n_drop;
557    Lisp_Object Qsave_session;
558    
559  /* Lisp_Object Qmouse_movement; - also an event header */  /* Lisp_Object Qmouse_movement; - also an event header */
560    
561  /* Properties of event headers.  */  /* Properties of event headers.  */
# Line 3731  kbd_buffer_get_event (kbp, used_mouse_me Line 3733  kbd_buffer_get_event (kbp, used_mouse_me
3733            kbd_fetch_ptr = event + 1;            kbd_fetch_ptr = event + 1;
3734          }          }
3735  #endif  #endif
3736          else if (event->kind == save_session_event)
3737            {
3738              obj = Fcons (Qsave_session, Qnil);
3739              kbd_fetch_ptr = event + 1;
3740            }
3741        /* Just discard these, by returning nil.        /* Just discard these, by returning nil.
3742           With MULTI_KBOARD, these events are used as placeholders           With MULTI_KBOARD, these events are used as placeholders
3743           when we need to randomly delete events from the queue.           when we need to randomly delete events from the queue.
# Line 5395  make_lispy_event (event) Line 5402  make_lispy_event (event)
5402        /* A user signal.  */        /* A user signal.  */
5403        return *lispy_user_signals[event->code];        return *lispy_user_signals[event->code];
5404                
5405        case save_session_event:
5406          return Qsave_session;
5407          
5408        /* The 'kind' field of the event is something we don't recognize.  */        /* The 'kind' field of the event is something we don't recognize.  */
5409      default:      default:
5410        abort ();        abort ();
# Line 10357  syms_of_keyboard () Line 10367  syms_of_keyboard ()
10367    Qdrag_n_drop = intern ("drag-n-drop");    Qdrag_n_drop = intern ("drag-n-drop");
10368    staticpro (&Qdrag_n_drop);    staticpro (&Qdrag_n_drop);
10369    
10370      Qsave_session = intern ("save-session");
10371      staticpro(&Qsave_session);
10372      
10373    Qusr1_signal = intern ("usr1-signal");    Qusr1_signal = intern ("usr1-signal");
10374    staticpro (&Qusr1_signal);    staticpro (&Qusr1_signal);
10375    Qusr2_signal = intern ("usr2-signal");    Qusr2_signal = intern ("usr2-signal");
# Line 10941  keys_of_keyboard () Line 10954  keys_of_keyboard ()
10954                              "ignore-event");                              "ignore-event");
10955    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
10956                              "ignore-event");                              "ignore-event");
10957      initial_define_lispy_key (Vspecial_event_map, "save-session",
10958                                "handle-save-session");
10959  }  }

Legend:
Removed from v.1.662  
changed lines
  Added in v.1.663

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26