From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 31 Jan 2001 14:47:44 +0000 (+0000)
Subject: (Fscroll_right, Fscroll_left): Use interactive_p
X-Git-Tag: emacs-pretest-21.0.98~265
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5686fbd5a084931344446f871dbff7ac6eef0b6;p=emacs.git

(Fscroll_right, Fscroll_left): Use interactive_p
instead of Finteractive_p.
---

diff --git a/src/window.c b/src/window.c
index 1b6ac07955d..6f1fd59145a 100644
--- a/src/window.c
+++ b/src/window.c
@@ -4426,7 +4426,7 @@ Default for ARG is window width minus 2.")
   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 @@ Default for ARG is window width minus 2.")
   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;