aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJim Blandy1993-03-02 08:14:57 +0000
committerJim Blandy1993-03-02 08:14:57 +0000
commitfd2777e08fa44566b6e802c613f7051c29f7861f (patch)
tree6752762e4b8215e56e13092bd80c581697ce3017 /src
parent3c37094348fddcd44941e7c65acd0ab19a5e131d (diff)
downloademacs-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.c14
-rw-r--r--src/keyboard.h11
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
88extern Lisp_Object Vminibuffer_list; 88extern Lisp_Object Vminibuffer_list;
89extern Lisp_Object get_minibuffer (); 89extern Lisp_Object get_minibuffer ();
90
91extern Lisp_Object Vlast_event_frame;
92 90
93DEFUN ("framep", Fframep, Sframep, 1, 1, 0, 91DEFUN ("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;
37extern Lisp_Object this_command_keys; 37extern Lisp_Object this_command_keys;
38extern int this_command_key_count; 38extern 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. */
46Lisp_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. */
74extern Lisp_Object Qfunction_key, Qmouse_click, Qmouse_movement; 83extern Lisp_Object Qfunction_key, Qmouse_click, Qmouse_movement;
75extern Lisp_Object Qscrollbar_movement; 84extern 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) \