Mercurial > emacs

changeset 45562:1b62cee42a61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window_scroll_pixel_based): Don't call Fbolp; instead, see if the new start pos is at beginning of line.
author Richard M. Stallman <rms@gnu.org>
date Tue, 28 May 2002 20:26:34 +0000
parents 54b933234eb4
children 242a164e3126
files src/window.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/window.c	Tue May 28 20:25:46 2002 +0000
+++ b/src/window.c	Tue May 28 20:26:34 2002 +0000
@@ -4162,10 +4162,14 @@
 
   if (! vscrolled)
     {
+      int pos = IT_CHARPOS (it);
+      int bytepos;
       /* Set the window start, and set up the window for redisplay.  */
-      set_marker_restricted (w->start, make_number (IT_CHARPOS (it)),
+      set_marker_restricted (w->start, make_number (pos),
 			     w->buffer);
-      w->start_at_line_beg = Fbolp ();
+      bytepos = XMARKER (w->start)->bytepos;
+      w->start_at_line_beg = ((pos == BEGV || FETCH_BYTE (bytepos - 1) == '\n')
+			      ? Qt : Qnil);
       w->update_mode_line = Qt;
       XSETFASTINT (w->last_modified, 0);
       XSETFASTINT (w->last_overlay_modified, 0);