diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 15:47:28 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 15:47:28 +0000 |
commit | 93972b25ca63f41447779fd38f05f704598e8a6c (patch) | |
tree | 8abb06babf17f12186b8a29d9d8a7a1d5a22c876 /src | |
parent | bb7f140573797d7dc7c2a7da7a59138356752d63 (diff) | |
download | emacs-93972b25ca63f41447779fd38f05f704598e8a6c.tar.gz |
(direct_output_for_insert, direct_output_forward_char, change_frame_size,
Fsleep_for): Don't use XFASTINT as an lvalue.
Diffstat (limited to 'src')
-rw-r--r-- | src/dispnew.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 9f2fbf9c715..c91354bad1a 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -1100,9 +1100,9 @@ direct_output_for_insert (g) } unchanged_modified = MODIFF; beg_unchanged = GPT - BEG; - XFASTINT (w->last_point) = point; - XFASTINT (w->last_point_x) = hpos; - XFASTINT (w->last_modified) = MODIFF; + XSETFASTINT (w->last_point, point); + XSETFASTINT (w->last_point_x, hpos); + XSETFASTINT (w->last_modified, MODIFF); reassert_line_highlight (0, vpos); write_glyphs (¤t_frame->glyphs[vpos][hpos], 1); @@ -1147,14 +1147,14 @@ direct_output_forward_char (n) /* Don't use direct output next to an invisible character since we might need to do something special. */ - XFASTINT (position) = point; + XSETFASTINT (position, point); if (XFASTINT (position) < ZV && ! NILP (Fget_char_property (position, Qinvisible, selected_window))) return 0; - XFASTINT (position) = point - 1; + XSETFASTINT (position, point - 1); if (XFASTINT (position) >= BEGV && ! NILP (Fget_char_property (position, Qinvisible, @@ -1163,8 +1163,8 @@ direct_output_forward_char (n) #endif FRAME_CURSOR_X (frame) += n; - XFASTINT (w->last_point_x) = FRAME_CURSOR_X (frame); - XFASTINT (w->last_point) = point; + XSETFASTINT (w->last_point_x, FRAME_CURSOR_X (frame)); + XSETFASTINT (w->last_point, point); cursor_to (FRAME_CURSOR_Y (frame), FRAME_CURSOR_X (frame)); fflush (stdout); @@ -2048,8 +2048,8 @@ change_frame_size (frame, newheight, newwidth, pretend, delay) /* Frame has both root and minibuffer. */ set_window_height (FRAME_ROOT_WINDOW (frame), newheight - 1 - FRAME_MENU_BAR_LINES (frame), 0); - XFASTINT (XWINDOW (FRAME_MINIBUF_WINDOW (frame))->top) - = newheight - 1; + XSETFASTINT (XWINDOW (FRAME_MINIBUF_WINDOW (frame))->top, + newheight - 1); set_window_height (FRAME_MINIBUF_WINDOW (frame), 1, 0); } else @@ -2202,7 +2202,7 @@ Emacs was built without floating point support.\n\ { Lisp_Object zero; - XFASTINT (zero) = 0; + XSETFASTINT (zero, 0); wait_reading_process_input (sec, usec, zero, 0); } |