# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980952464 0
# Node ID 22d10a2fa31a8befb8a5f8f3ddd026fe05b95b45
# Parent  959f9593632f21dfb78e355fd210b10f1ca9044a
(Fscroll_right, Fscroll_left): Use interactive_p
instead of Finteractive_p.

diff -r 959f9593632f -r 22d10a2fa31a src/window.c
--- a/src/window.c	Wed Jan 31 14:08:26 2001 +0000
+++ b/src/window.c	Wed Jan 31 14:47:44 2001 +0000
@@ -4426,7 +4426,7 @@
   hscroll = XINT (w->hscroll) + XINT (arg);
   result = Fset_window_hscroll (selected_window, make_number (hscroll));
 
-  if (!NILP (Finteractive_p ()))
+  if (interactive_p (0))
     w->min_hscroll = w->hscroll;
 
   return result;
@@ -4450,7 +4450,7 @@
   hscroll = XINT (w->hscroll) - XINT (arg);
   result = Fset_window_hscroll (selected_window, make_number (hscroll));
   
-  if (!NILP (Finteractive_p ()))
+  if (interactive_p (0))
     w->min_hscroll = w->hscroll;
 
   return result;