From 0c849e266ec502c3f7e6cc81fdd76086773d8162 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 12 Apr 2000 06:41:17 +0000 Subject: [PATCH] (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. --- lisp/gnus-art.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)))))))) -- 1.7.10.4