From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 11 Feb 1994 00:00:28 +0000 (+0000)
Subject: (Fpos_visible_in_window_p): Take hscroll into account.
X-Git-Tag: emacs-19.34~9965
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afdb2485967733eeea4806f8cb580f7aef8411ca;p=emacs.git

(Fpos_visible_in_window_p): Take hscroll into account.
---

diff --git a/src/window.c b/src/window.c
index e4ed37bbec1..21ebafd4550 100644
--- a/src/window.c
+++ b/src/window.c
@@ -185,6 +185,7 @@ POS defaults to point; WINDOW, to the selected window.")
   register int posint;
   register struct buffer *buf;
   struct position posval;
+  int hscroll;
 
   if (NILP (pos))
     posint = point;
@@ -196,6 +197,7 @@ POS defaults to point; WINDOW, to the selected window.")
 
   w = decode_window (window);
   top = marker_position (w->start);
+  hscroll = XINT (w->hscroll);
 
   if (posint < top)
     return Qnil;
@@ -218,9 +220,10 @@ POS defaults to point; WINDOW, to the selected window.")
 	return Qnil;
 
       /* If that info is not correct, calculate afresh */
-      posval = *compute_motion (top, 0, 0, posint, height, 0,
+      posval = *compute_motion (top, 0, (hscroll ? 1 - hscroll : 0),
+				posint, height, 0,
 				window_internal_width (w) - 1,
-				XINT (w->hscroll), 0);
+				hscroll, 0);
 
       return posval.vpos < height ? Qt : Qnil;
     }