Mercurial > emacs
comparison src/sysdep.c @ 9279:2382e2f3884e
(kbd_input_ast, read_input_waiting): Use new accessor macros instead of
calling XSET directly.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 04 Oct 1994 12:26:19 +0000 |
parents | d4ad53f37cc7 |
children | 4dd2d351ea53 |
comparison
equal
deleted
inserted
replaced
9278:f2138d548313 | 9279:2382e2f3884e |
---|---|
1702 queue_kbd_input (); | 1702 queue_kbd_input (); |
1703 if (c >= 0) | 1703 if (c >= 0) |
1704 { | 1704 { |
1705 struct input_event e; | 1705 struct input_event e; |
1706 e.kind = ascii_keystroke; | 1706 e.kind = ascii_keystroke; |
1707 XSET (e.code, Lisp_Int, c); | 1707 XSETINT (e.code, c); |
1708 #ifdef MULTI_FRAME | 1708 #ifdef MULTI_FRAME |
1709 XSET(e.frame_or_window, Lisp_Frame, selected_frame); | 1709 XSETFRAME (e.frame_or_window, selected_frame); |
1710 #else | 1710 #else |
1711 e.frame_or_window = Qnil; | 1711 e.frame_or_window = Qnil; |
1712 #endif | 1712 #endif |
1713 kbd_buffer_store_event (&e); | 1713 kbd_buffer_store_event (&e); |
1714 } | 1714 } |
2333 e.modifiers = meta_modifier; | 2333 e.modifiers = meta_modifier; |
2334 if (meta_key != 2) | 2334 if (meta_key != 2) |
2335 buf[i] &= ~0x80; | 2335 buf[i] &= ~0x80; |
2336 } | 2336 } |
2337 | 2337 |
2338 XSET (e.code, Lisp_Int, buf[i]); | 2338 XSETINT (e.code, buf[i]); |
2339 kbd_buffer_store_event (&e); | 2339 kbd_buffer_store_event (&e); |
2340 /* Don't look at input that follows a C-g too closely. | 2340 /* Don't look at input that follows a C-g too closely. |
2341 This reduces lossage due to autorepeat on C-g. */ | 2341 This reduces lossage due to autorepeat on C-g. */ |
2342 if (buf[i] == quit_char) | 2342 if (buf[i] == quit_char) |
2343 break; | 2343 break; |