aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2017-11-04 11:30:10 +0200
committerEli Zaretskii2017-11-04 11:30:10 +0200
commitd9be8704ae905e510cc4b657d267770deb816873 (patch)
tree5c7e1430dc30851b1c8cefd31dcacaaa850d7992 /src
parent6f43d29d29605b710e51ff7f1487063c2f5b0b5a (diff)
downloademacs-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.c11
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,