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;