Fix scrolling

* src/window.c (scroll_command): Fix scrolling.
This commit is contained in:
Basil L. Contovounesios 2018-07-06 16:23:21 -07:00 committed by Daniel Colascione
parent 3bbd4ffc68
commit 6c60c4e2ff

View file

@ -5654,7 +5654,7 @@ scroll_command (Lisp_Object window, Lisp_Object n, int direction)
/* If given window's buffer isn't current, make it current for
the moment. But don't screw up if window_scroll gets an error. */
if (XBUFFER (w->contents) != current_buffer)
if (other_window || XBUFFER (w->contents) != current_buffer)
{
record_unwind_protect_excursion ();
Fset_buffer (w->contents);