/[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.732 by akochoi, Mon Mar 24 19:59:08 2003 UTC revision 1.733 by monnier, Fri Apr 11 23:19:50 2003 UTC
# Line 4002  kbd_buffer_get_event (kbp, used_mouse_me Line 4002  kbd_buffer_get_event (kbp, used_mouse_me
4002            internal_last_event_frame = frame;            internal_last_event_frame = frame;
4003            kbd_fetch_ptr = event + 1;            kbd_fetch_ptr = event + 1;
4004          }          }
       else if (event->kind == SELECT_WINDOW_EVENT)  
         {  
           /* Make an event (select-window (WINDOW)).  */  
           obj = Fcons (event->frame_or_window, Qnil);  
           obj = Fcons (Qselect_window, Fcons (obj, Qnil));  
   
           kbd_fetch_ptr = event + 1;  
         }  
4005        else        else
4006          {          {
4007            /* If this event is on a different frame, return a switch-frame this            /* If this event is on a different frame, return a switch-frame this
# Line 5658  make_lispy_event (event) Line 5650  make_lispy_event (event)
5650        return event->arg;        return event->arg;
5651  #endif  #endif
5652    
5653        case SELECT_WINDOW_EVENT:
5654          /* Make an event (select-window (WINDOW)).  */
5655          return Fcons (Qselect_window,
5656                        Fcons (Fcons (event->frame_or_window, Qnil),
5657                               Qnil));
5658    
5659      case TOOL_BAR_EVENT:      case TOOL_BAR_EVENT:
5660        if (EQ (event->arg, event->frame_or_window))        if (EQ (event->arg, event->frame_or_window))
5661          /* This is the prefix key.  We translate this to          /* This is the prefix key.  We translate this to
# Line 11276  keys_of_keyboard () Line 11274  keys_of_keyboard ()
11274                              "ignore-event");                              "ignore-event");
11275    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
11276                              "ignore-event");                              "ignore-event");
11277    initial_define_lispy_key (Vspecial_event_map, "select-window",    /* Handling it at such a low-level causes read_key_sequence to get
11278                              "handle-select-window");     * confused because it doesn't realize that the current_buffer was
11279       * changed by read_char.
11280       *
11281       * initial_define_lispy_key (Vspecial_event_map, "select-window",
11282       *                        "handle-select-window"); */
11283    initial_define_lispy_key (Vspecial_event_map, "save-session",    initial_define_lispy_key (Vspecial_event_map, "save-session",
11284                              "handle-save-session");                              "handle-save-session");
11285  }  }

Legend:
Removed from v.1.732  
changed lines
  Added in v.1.733

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