diff options
| author | Chong Yidong | 2006-08-29 22:17:05 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-08-29 22:17:05 +0000 |
| commit | 41d24b39c7a261c08e66a9397e128c639cace0bb (patch) | |
| tree | 78b1b7a914d4bcd103f243376316151a797f3028 /src | |
| parent | 0832681690ad4705cc57d6c490d0175d699bd6f6 (diff) | |
| download | emacs-41d24b39c7a261c08e66a9397e128c639cace0bb.tar.gz emacs-41d24b39c7a261c08e66a9397e128c639cace0bb.zip | |
* indent.c (Fvertical_motion): Don't move back if we were
displaying a Lisp string, either.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/indent.c | 13 |
2 files changed, 12 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 41f02828c97..68d8c52f388 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2006-08-29 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * indent.c (Fvertical_motion): Don't move back if we were | ||
| 4 | displaying a Lisp string, either. | ||
| 5 | |||
| 1 | 2006-08-28 Kim F. Storm <storm@cua.dk> | 6 | 2006-08-28 Kim F. Storm <storm@cua.dk> |
| 2 | 7 | ||
| 3 | * xdisp.c (get_window_cursor_type) [!HAVE_WINDOW_SYSTEM]: | 8 | * xdisp.c (get_window_cursor_type) [!HAVE_WINDOW_SYSTEM]: |
diff --git a/src/indent.c b/src/indent.c index cc928f2171f..cbb53c3678f 100644 --- a/src/indent.c +++ b/src/indent.c | |||
| @@ -2074,7 +2074,7 @@ whether or not it is currently displayed in some window. */) | |||
| 2074 | { | 2074 | { |
| 2075 | int it_start; | 2075 | int it_start; |
| 2076 | int oselective; | 2076 | int oselective; |
| 2077 | int start_on_image_or_stretch_p; | 2077 | int start_on_image_or_stretch_or_string_p; |
| 2078 | 2078 | ||
| 2079 | SET_TEXT_POS (pt, PT, PT_BYTE); | 2079 | SET_TEXT_POS (pt, PT, PT_BYTE); |
| 2080 | start_display (&it, w, pt); | 2080 | start_display (&it, w, pt); |
| @@ -2086,8 +2086,9 @@ whether or not it is currently displayed in some window. */) | |||
| 2086 | while the end position is really at some X > 0, the same X that | 2086 | while the end position is really at some X > 0, the same X that |
| 2087 | PT had. */ | 2087 | PT had. */ |
| 2088 | it_start = IT_CHARPOS (it); | 2088 | it_start = IT_CHARPOS (it); |
| 2089 | start_on_image_or_stretch_p = (it.method == GET_FROM_IMAGE | 2089 | start_on_image_or_stretch_or_string_p = (it.method == GET_FROM_IMAGE |
| 2090 | || it.method == GET_FROM_STRETCH); | 2090 | || it.method == GET_FROM_STRETCH |
| 2091 | || it.method == GET_FROM_STRING); | ||
| 2091 | reseat_at_previous_visible_line_start (&it); | 2092 | reseat_at_previous_visible_line_start (&it); |
| 2092 | it.current_x = it.hpos = 0; | 2093 | it.current_x = it.hpos = 0; |
| 2093 | /* Temporarily disable selective display so we don't move too far */ | 2094 | /* Temporarily disable selective display so we don't move too far */ |
| @@ -2098,10 +2099,10 @@ whether or not it is currently displayed in some window. */) | |||
| 2098 | 2099 | ||
| 2099 | /* Move back if we got too far. This may happen if | 2100 | /* Move back if we got too far. This may happen if |
| 2100 | truncate-lines is on and PT is beyond right margin. | 2101 | truncate-lines is on and PT is beyond right margin. |
| 2101 | It may also happen if it_start is on an image or a stretch | 2102 | It may also happen if it_start is on an image, stretch |
| 2102 | glyph -- in that case, don't go back. */ | 2103 | glyph, or string -- in that case, don't go back. */ |
| 2103 | if (IT_CHARPOS (it) > it_start && XINT (lines) > 0 | 2104 | if (IT_CHARPOS (it) > it_start && XINT (lines) > 0 |
| 2104 | && !start_on_image_or_stretch_p) | 2105 | && !start_on_image_or_stretch_or_string_p) |
| 2105 | move_it_by_lines (&it, -1, 0); | 2106 | move_it_by_lines (&it, -1, 0); |
| 2106 | 2107 | ||
| 2107 | it.vpos = 0; | 2108 | it.vpos = 0; |