diff options
| author | Jim Blandy | 1993-03-02 08:14:57 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-03-02 08:14:57 +0000 |
| commit | fd2777e08fa44566b6e802c613f7051c29f7861f (patch) | |
| tree | 6752762e4b8215e56e13092bd80c581697ce3017 /src | |
| parent | 3c37094348fddcd44941e7c65acd0ab19a5e131d (diff) | |
| download | emacs-fd2777e08fa44566b6e802c613f7051c29f7861f.tar.gz emacs-fd2777e08fa44566b6e802c613f7051c29f7861f.zip | |
Use the term `scroll bar', instead of `scrollbar'.
* alloc.c, frame.c, frame.h, indent.c, keyboard.c, keyboard.h,
lisp.h, term.c, termhooks.h, window.c, window.h, xdisp.c, xfns.c,
xterm.c, xterm.h: Terminology changed.
Don't generate switch-frame events by checking Vlast_event_frame;
use a separate variable for that bookkeeping. In order to
generate them properly, we may need to fiddle with it.
* keyboard.c (internal_last_event_frame): New variable.
(command_loop_1): Check internal_last_event_frame, not
Vlast_event_frame.
(read_char, kbd_buffer_store_event): Set both Vlast_event_frame and
internal_last_event_frame.
(kbd_buffer_get_event): Check internal_last_event_frame to decide
whether to generate a switch-frame event. Set Vlast_event_frame
after each event.
(init_keyboard): Initialize both Vlast_event_frame and
internal_last_event_frame.
* keyboard.h (internal_last_event_frame): Add extern declaration
for this.
* frame.c (Vlast_event_frame): Remove external declaration for
this.
(Fselect_frame): Set internal_last_event_frame to Qnil to force a
switch-frame event, not Vlast_event_frame; the latter is supposed
to convey information to the user.
Diffstat (limited to 'src')
| -rw-r--r-- | src/frame.c | 14 | ||||
| -rw-r--r-- | src/keyboard.h | 11 |
2 files changed, 16 insertions, 9 deletions
diff --git a/src/frame.c b/src/frame.c index a6106c045d7..b887436438a 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -87,8 +87,6 @@ Lisp_Object Qx; | |||
| 87 | 87 | ||
| 88 | extern Lisp_Object Vminibuffer_list; | 88 | extern Lisp_Object Vminibuffer_list; |
| 89 | extern Lisp_Object get_minibuffer (); | 89 | extern Lisp_Object get_minibuffer (); |
| 90 | |||
| 91 | extern Lisp_Object Vlast_event_frame; | ||
| 92 | 90 | ||
| 93 | DEFUN ("framep", Fframep, Sframep, 1, 1, 0, | 91 | DEFUN ("framep", Fframep, Sframep, 1, 1, 0, |
| 94 | "Return non-nil if OBJECT is a frame.\n\ | 92 | "Return non-nil if OBJECT is a frame.\n\ |
| @@ -159,11 +157,11 @@ make_frame (mini_p) | |||
| 159 | f->has_minibuffer = mini_p; | 157 | f->has_minibuffer = mini_p; |
| 160 | f->focus_frame = Qnil; | 158 | f->focus_frame = Qnil; |
| 161 | f->explicit_name = 0; | 159 | f->explicit_name = 0; |
| 162 | f->can_have_scrollbars = 0; | 160 | f->can_have_scroll_bars = 0; |
| 163 | f->has_vertical_scrollbars = 0; | 161 | f->has_vertical_scroll_bars = 0; |
| 164 | f->param_alist = Qnil; | 162 | f->param_alist = Qnil; |
| 165 | f->scrollbars = Qnil; | 163 | f->scroll_bars = Qnil; |
| 166 | f->condemned_scrollbars = Qnil; | 164 | f->condemned_scroll_bars = Qnil; |
| 167 | 165 | ||
| 168 | root_window = make_window (); | 166 | root_window = make_window (); |
| 169 | if (mini_p) | 167 | if (mini_p) |
| @@ -398,7 +396,7 @@ Changing the selected frame can change focus redirections. See\n\ | |||
| 398 | (select-window (frame-root-window (new-frame))) doesn't end up | 396 | (select-window (frame-root-window (new-frame))) doesn't end up |
| 399 | with your typing being interpreted in the new frame instead of | 397 | with your typing being interpreted in the new frame instead of |
| 400 | the one you're actually typing in. */ | 398 | the one you're actually typing in. */ |
| 401 | Vlast_event_frame = Qnil; | 399 | internal_last_event_frame = Qnil; |
| 402 | 400 | ||
| 403 | return frame; | 401 | return frame; |
| 404 | } | 402 | } |
| @@ -749,7 +747,7 @@ and nil for X and Y.") | |||
| 749 | { | 747 | { |
| 750 | FRAME_PTR f; | 748 | FRAME_PTR f; |
| 751 | Lisp_Object lispy_dummy; | 749 | Lisp_Object lispy_dummy; |
| 752 | enum scrollbar_part party_dummy; | 750 | enum scroll_bar_part party_dummy; |
| 753 | Lisp_Object x, y; | 751 | Lisp_Object x, y; |
| 754 | unsigned long long_dummy; | 752 | unsigned long long_dummy; |
| 755 | 753 | ||
diff --git a/src/keyboard.h b/src/keyboard.h index 1d4a82256d0..e44f6a800eb 100644 --- a/src/keyboard.h +++ b/src/keyboard.h | |||
| @@ -37,6 +37,15 @@ extern Lisp_Object Vfunction_key_map; | |||
| 37 | extern Lisp_Object this_command_keys; | 37 | extern Lisp_Object this_command_keys; |
| 38 | extern int this_command_key_count; | 38 | extern int this_command_key_count; |
| 39 | 39 | ||
| 40 | #ifdef MULTI_FRAME | ||
| 41 | /* The frame in which the last input event occurred, or Qmacro if the | ||
| 42 | last event came from a macro. We use this to determine when to | ||
| 43 | generate switch-frame events. This may be cleared by functions | ||
| 44 | like Fselect_frame, to make sure that a switch-frame event is | ||
| 45 | generated by the next character. */ | ||
| 46 | Lisp_Object internal_last_event_frame; | ||
| 47 | #endif | ||
| 48 | |||
| 40 | 49 | ||
| 41 | /* Macros for dealing with lispy events. */ | 50 | /* Macros for dealing with lispy events. */ |
| 42 | 51 | ||
| @@ -72,7 +81,7 @@ extern Lisp_Object Qevent_kind, Qevent_symbol_elements; | |||
| 72 | 81 | ||
| 73 | /* The values of Qevent_kind properties. */ | 82 | /* The values of Qevent_kind properties. */ |
| 74 | extern Lisp_Object Qfunction_key, Qmouse_click, Qmouse_movement; | 83 | extern Lisp_Object Qfunction_key, Qmouse_click, Qmouse_movement; |
| 75 | extern Lisp_Object Qscrollbar_movement; | 84 | extern Lisp_Object Qscroll_bar_movement; |
| 76 | 85 | ||
| 77 | /* Getting the kind of an event head. */ | 86 | /* Getting the kind of an event head. */ |
| 78 | #define EVENT_HEAD_KIND(event_head) \ | 87 | #define EVENT_HEAD_KIND(event_head) \ |