(Fpos_visible_in_window_p): Call pos_visible with

extra argument.

diff --git a/src/ChangeLog b/src/ChangeLog
index 31a116a..e8abc29 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,22 @@
+2000-11-14  Gerd Moellmann  <gerd@gnu.org>
+
+       * window.c (Fpos_visible_in_window_p): Call pos_visible with
+       extra argument.
+
+       * xdisp.c (current_mode_line_height, current_header_line_height):
+       New variables.
+       (init_xdisp): Initialize them.
+       (pos_visible_p): Add parameter EXACT_MODE_LINE_HEIGHTS_P.  Compute
+       and use exact mode line heights if it is set.
+
+       * lisp.h (pos_visible_p): Change prototype.
+
+       * dispextern.h (CURRENT_MODE_LINE_HEIGHT)
+       (CURRENT_HEADER_LINE_HEIGHT):  Look at current_mode_line_height
+       and current_header_line_height first.
+       (current_mode_line_height, current_header_line_height): Declare
+       extern.
+
 2000-11-14  Miles Bader  <miles@lsi.nec.co.jp>
 
        * xterm.c (x_alloc_lighter_color): Use real brightness calculation.

diff --git a/src/window.c b/src/window.c
index 5257c1b..4c755a3 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -337,7 +337,7 @@ POS defaults to point in WINDOW; WINDOW defaults to the selected window.")
         char in the window.  */
       if (!NILP (fully))
        {
-         pos_visible_p (w, posint, &fully_p);
+         pos_visible_p (w, posint, &fully_p, !NILP (fully));
          in_window = fully_p ? Qt : Qnil;
        }
       else
@@ -350,7 +350,7 @@ POS defaults to point in WINDOW; WINDOW defaults to the selected window.")
     in_window = Qnil;
   else
     {
-      if (pos_visible_p (w, posint, &fully_p))
+      if (pos_visible_p (w, posint, &fully_p, !NILP (fully)))
        in_window = NILP (fully) || fully_p ? Qt : Qnil;
       else
        in_window = Qnil;