(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 (file)
--- 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 (file)
--- 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)))))
       )))