From 6661b2ff7e34d54f2213c5447d08f71d678dc6bb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 13 Apr 2000 01:49:23 +0000 Subject: [PATCH] (mime-preview-scroll-down-entity): 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. (mime-preview-scroll-up-entity): Likewise. --- ChangeLog | 8 ++++++++ mime-view.el | 6 ++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index ac01565..f948a84 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2000-04-13 Katsumi Yamaoka + + * mime-view.el (mime-preview-scroll-down-entity): 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. + (mime-preview-scroll-up-entity): Likewise. + 2000-01-16 Keiichi Suzuki * mime-w3.el (mime-preview-text/html): Don't get root entity from diff --git a/mime-view.el b/mime-view.el index 0609e2c..6ab635c 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1498,7 +1498,8 @@ If reached to (point-max), it calls function registered in variable (progn (goto-char point) (recenter next-screen-context-lines)) (condition-case nil - (scroll-up h) + (let (window-pixel-scroll-increment) + (scroll-up h)) (end-of-buffer (goto-char (point-max))))) ))) @@ -1523,7 +1524,8 @@ If reached to (point-min), it calls function registered in variable (progn (goto-char point) (recenter (* -1 next-screen-context-lines))) (condition-case nil - (scroll-down h) + (let (window-pixel-scroll-increment) + (scroll-down h)) (beginning-of-buffer (goto-char (point-min))))) ))) -- 1.7.10.4