From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 18 Feb 1994 01:12:10 +0000 (+0000)
Subject: (Fdelete_other_windows): Don't call Frecenter;
X-Git-Tag: emacs-19.34~9864
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f2eb61d72e59ab048c1bc9349f6ce1e50196944;p=emacs.git

(Fdelete_other_windows): Don't call Frecenter;
do it by hand and avoid setting w->force_start.
---

diff --git a/src/window.c b/src/window.c
index 21ebafd4550..bee5e9aae98 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1342,7 +1342,10 @@ value is reasonable when this function is called.")
   Fset_buffer (w->buffer);
   opoint = point;
   SET_PT (marker_position (w->start));
-  Frecenter (make_number (top - FRAME_MENU_BAR_LINES (XFRAME (WINDOW_FRAME (w)))));
+  /* Like Frecenter but avoid setting w->force_start.  */
+  Fvertical_motion (make_number (- (top - FRAME_MENU_BAR_LINES (XFRAME (WINDOW_FRAME (w))))));
+  Fset_marker (w->start, make_number (PT), w->buffer);
+  w->start_at_line_beg = Fbolp ();
 
   SET_PT (opoint);
   set_buffer_internal (obuf);