From: yamaoka <yamaoka>
Date: Wed, 12 Apr 2000 06:41:17 +0000 (+0000)
Subject: (gnus-article-prev-page): Bind `window-pixel-scroll-increment' to nil while
X-Git-Tag: t-gnus-6_14_1-18~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0c849e266ec502c3f7e6cc81fdd76086773d8162;p=elisp%2Fgnus.git-

(gnus-article-prev-page): Bind `window-pixel-scroll-increment' to nil while
scrolling for canceling a backlash and a modeline erosion.  It may work under
XEmacs 21.2.20 and later.
(gnus-article-next-page): Ditto.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7b9d12d..bb8a4e4 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3859,7 +3859,8 @@ Argument LINES specifies lines to be scrolled up."
 	  (t
 	   (if start
 	       (set-window-start (selected-window) start)
-	     (scroll-up lines))
+	     (let (window-pixel-scroll-increment)
+	       (scroll-up lines)))
 	   nil))))
 
 (defun gnus-article-prev-page (&optional lines)
@@ -3878,7 +3879,8 @@ Argument LINES specifies lines to be scrolled down."
 	   (gnus-narrow-to-page -1))
 	  (t
 	   (condition-case nil
-	       (scroll-down lines)
+	       (let (window-pixel-scroll-increment)
+		 (scroll-down lines))
 	     (beginning-of-buffer
 	      (goto-char (point-min))))))))