From b4196acf57df3eab653e2ab9a84145ae60c588f2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 29 Jan 2001 23:53:21 +0000 Subject: [PATCH] * wl-message.el (wl-message-next-page): Bind `window-pixel-scroll-increment' to nil while scrolling up. --- wl/ChangeLog | 5 +++++ wl/wl-message.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 2e9c732..e8080ac 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-01-29 Katsumi Yamaoka + + * wl-message.el (wl-message-next-page): Bind + `window-pixel-scroll-increment' to nil while scrolling up. + 2001-01-27 TAKAHASHI Kaoru * wl-draft.el (wl-draft-reply-list-symbol): Remove FROM argument. diff --git a/wl/wl-message.el b/wl/wl-message.el index f90ca1d..297e4a3 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -286,7 +286,11 @@ (wl-message-narrow-to-page 1) (setq ret-val nil)) (condition-case () - (scroll-up lines) + (static-if (boundp 'window-pixel-scroll-increment) + ;; XEmacs 21.2.20 and later. + (let (window-pixel-scroll-increment) + (scroll-up lines)) + (scroll-up lines)) (end-of-buffer (goto-char (point-max)))) (setq ret-val nil)) -- 1.7.10.4