diff options
author | Richard M. Stallman <[email protected]> | 1993-12-23 00:22:10 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-12-23 00:22:10 +0000 |
commit | ea0d86af5b290a3cd41a88c9e02e1b654fa44fe0 (patch) | |
tree | 031e82679acb4d6fccd4c34d06feafe3d6588c73 | |
parent | c56a586eb5683a292c0003fc589b106f1434f81e (diff) |
(Fsit_for): Call prepare_menu_bars.
(direct_output_forward_char):
Give up if in truncated text at end of line.
-rw-r--r-- | src/dispnew.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 651e920969..fbcaf5330b 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -928,7 +928,12 @@ direct_output_forward_char (n) register FRAME_PTR frame = selected_frame; register struct window *w = XWINDOW (selected_window); int position; - + int hpos = FRAME_CURSOR_X (frame); + + /* Give up if in truncated text at end of line. */ + if (hpos >= XFASTINT (w->left) + window_internal_width (w) - 1) + return 0; + /* Avoid losing if cursor is in invisible text off left margin or about to go off either side of window. */ if ((FRAME_CURSOR_X (frame) == XFASTINT (w->left) @@ -1959,8 +1964,9 @@ Emacs was built without floating point support.\n\ /* This is just like wait_reading_process_input, except that it does the redisplay. - It's also just like Fsit_for, except that it can be used for - waiting for input as well. */ + It's also much like Fsit_for, except that it can be used for + waiting for input as well. One differnce is that sit_for + does not call prepare_menu_bars; Fsit_for does call that. */ Lisp_Object sit_for (sec, usec, reading, display) @@ -2051,6 +2057,8 @@ Value is t if waited the full time with no input arriving.") error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); #endif + if (NILP (nodisp)) + prepare_menu_bars (); return sit_for (sec, usec, 0, NILP (nodisp)); } |