From: yamaoka <yamaoka>
Date: Thu, 13 Apr 2000 01:49:23 +0000 (+0000)
Subject: (mime-preview-scroll-down-entity): Bind `window-pixel-scroll-increment' to nil
X-Git-Tag: wemi-1_13-last-~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6661b2ff7e34d54f2213c5447d08f71d678dc6bb;p=elisp%2Fsemi.git

(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.
---

diff --git a/ChangeLog b/ChangeLog
index ac01565..f948a84 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2000-04-13  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* 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  <keiichi@nanap.org>
 
 	* 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)))))
       )))