diff options
author | Karl Heuer <[email protected]> | 1994-10-04 12:03:19 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-10-04 12:03:19 +0000 |
commit | e9c9a718fbe5d67275c0e1f507e1efe6d198e0e9 (patch) | |
tree | fb2afe34d838c0527b3ce0083c74ef001c789252 /src/dispnew.c | |
parent | f187f1f77699125867bc44ea6a62863844f02c9c (diff) |
(redraw_frame, Fsleep_for, sit_for, Fsit_for): Use new accessor macros instead
of calling XSET directly.
Diffstat (limited to 'src/dispnew.c')
-rw-r--r-- | src/dispnew.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 0faabda929..9f2fbf9c71 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -186,7 +186,7 @@ redraw_frame (f) FRAME_PTR f; { Lisp_Object frame; - XSET (frame, Lisp_Frame, f); + XSETFRAME (frame, f); Fredraw_frame (frame); } @@ -2163,7 +2163,7 @@ Emacs was built without floating point support.\n\ int sec, usec; if (NILP (milliseconds)) - XSET (milliseconds, Lisp_Int, 0); + XSETINT (milliseconds, 0); else CHECK_NUMBER (milliseconds, 1); usec = XINT (milliseconds) * 1000; @@ -2269,7 +2269,7 @@ sit_for (sec, usec, reading, display) gobble_input (0); #endif - XSET (read_kbd, Lisp_Int, reading ? -1 : 1); + XSETINT (read_kbd, reading ? -1 : 1); wait_reading_process_input (sec, usec, read_kbd, display); @@ -2318,7 +2318,7 @@ Value is t if waited the full time with no input arriving.") int sec, usec; if (NILP (milliseconds)) - XSET (milliseconds, Lisp_Int, 0); + XSETINT (milliseconds, 0); else CHECK_NUMBER (milliseconds, 1); usec = XINT (milliseconds) * 1000; |