diff options
| author | Eli Zaretskii | 2017-11-04 11:30:10 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2017-11-04 11:30:10 +0200 |
| commit | d9be8704ae905e510cc4b657d267770deb816873 (patch) | |
| tree | 5c7e1430dc30851b1c8cefd31dcacaaa850d7992 /src | |
| parent | 6f43d29d29605b710e51ff7f1487063c2f5b0b5a (diff) | |
| download | emacs-d9be8704ae905e510cc4b657d267770deb816873.tar.gz emacs-d9be8704ae905e510cc4b657d267770deb816873.zip | |
Fix hscroll suspension after cursor motion
* src/xdisp.c (hscroll_window_tree): Trigger a thorough redisplay
of the window when temporary suspension of hscrolling is
disabled. (Bug#29002)
Diffstat (limited to 'src')
| -rw-r--r-- | src/xdisp.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index dc23959aadb..b8bb6ba8dfc 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -13174,8 +13174,15 @@ hscroll_window_tree (Lisp_Object window) | |||
| 13174 | 13174 | ||
| 13175 | /* If the position of this window's point has explicitly | 13175 | /* If the position of this window's point has explicitly |
| 13176 | changed, no more suspend auto hscrolling. */ | 13176 | changed, no more suspend auto hscrolling. */ |
| 13177 | if (NILP (Fequal (Fwindow_point (window), Fwindow_old_point (window)))) | 13177 | if (w->suspend_auto_hscroll |
| 13178 | w->suspend_auto_hscroll = false; | 13178 | && NILP (Fequal (Fwindow_point (window), |
| 13179 | Fwindow_old_point (window)))) | ||
| 13180 | { | ||
| 13181 | w->suspend_auto_hscroll = false; | ||
| 13182 | /* Force thorough redisplay of this window, to show the | ||
| 13183 | effect of disabling hscroll suspension immediately. */ | ||
| 13184 | SET_FRAME_GARBAGED (XFRAME (w->frame)); | ||
| 13185 | } | ||
| 13179 | 13186 | ||
| 13180 | /* Remember window point. */ | 13187 | /* Remember window point. */ |
| 13181 | Fset_marker (w->old_pointm, | 13188 | Fset_marker (w->old_pointm, |