diff options
Diffstat (limited to 'src')
| -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 651e9209693..fbcaf5330be 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -928,7 +928,12 @@ direct_output_forward_char (n) | |||
| 928 | register FRAME_PTR frame = selected_frame; | 928 | register FRAME_PTR frame = selected_frame; |
| 929 | register struct window *w = XWINDOW (selected_window); | 929 | register struct window *w = XWINDOW (selected_window); |
| 930 | int position; | 930 | int position; |
| 931 | 931 | int hpos = FRAME_CURSOR_X (frame); | |
| 932 | |||
| 933 | /* Give up if in truncated text at end of line. */ | ||
| 934 | if (hpos >= XFASTINT (w->left) + window_internal_width (w) - 1) | ||
| 935 | return 0; | ||
| 936 | |||
| 932 | /* Avoid losing if cursor is in invisible text off left margin | 937 | /* Avoid losing if cursor is in invisible text off left margin |
| 933 | or about to go off either side of window. */ | 938 | or about to go off either side of window. */ |
| 934 | if ((FRAME_CURSOR_X (frame) == XFASTINT (w->left) | 939 | if ((FRAME_CURSOR_X (frame) == XFASTINT (w->left) |
| @@ -1959,8 +1964,9 @@ Emacs was built without floating point support.\n\ | |||
| 1959 | /* This is just like wait_reading_process_input, except that | 1964 | /* This is just like wait_reading_process_input, except that |
| 1960 | it does the redisplay. | 1965 | it does the redisplay. |
| 1961 | 1966 | ||
| 1962 | It's also just like Fsit_for, except that it can be used for | 1967 | It's also much like Fsit_for, except that it can be used for |
| 1963 | waiting for input as well. */ | 1968 | waiting for input as well. One differnce is that sit_for |
| 1969 | does not call prepare_menu_bars; Fsit_for does call that. */ | ||
| 1964 | 1970 | ||
| 1965 | Lisp_Object | 1971 | Lisp_Object |
| 1966 | sit_for (sec, usec, reading, display) | 1972 | sit_for (sec, usec, reading, display) |
| @@ -2051,6 +2057,8 @@ Value is t if waited the full time with no input arriving.") | |||
| 2051 | error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); | 2057 | error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); |
| 2052 | #endif | 2058 | #endif |
| 2053 | 2059 | ||
| 2060 | if (NILP (nodisp)) | ||
| 2061 | prepare_menu_bars (); | ||
| 2054 | return sit_for (sec, usec, 0, NILP (nodisp)); | 2062 | return sit_for (sec, usec, 0, NILP (nodisp)); |
| 2055 | } | 2063 | } |
| 2056 | 2064 | ||