Changeset 3934

Timestamp:

10/28/05 17:50:37 (3 years ago)

Author:

horiguti

Message:

* mw32scroll.el (w32-scroll-bar-drag): Avoid arithmetic error when
start dragging at the end of the buffer. Refine scrolling around the
end of the buffer.

Files:

• trunk/lisp/ChangeLog.Meadow (modified) (1 diff)
• trunk/lisp/mw32scroll.el (modified) (3 diffs)

trunk/lisp/ChangeLog.Meadow

@@ +1 @@
+2005-10-28  Kyotaro HORIGUCHI  <horiguti@meadowy.org>
+
+        * mw32scroll.el (w32-scroll-bar-drag): Avoid arithmetic error when
+        start dragging at the end of the buffer.
+
-2005-10-28  Hideyuki SHIRAI  <shirai@meadowy.org>
-

trunk/lisp/mw32scroll.el

@@ -46 +46 @@
-         (scrollbar-epoch (car (nth 2 (nth 1 event))))
-         (scrollbar-pagesize (nth 2 (mw32-get-scroll-bar-info window)))
+         (scrollbar-ceil
+          (- (1+ (cdr (nth 2 (nth 1 event)))) scrollbar-pagesize))
-         (echo-keystrokes 0)
-         done line col pos scrollbar-offset start-position
@@ -53 +55 @@
-    (if (zerop scrollbar-epoch)
-        (setq scrollbar-epoch 1))
+
+    (if (>= scrollbar-epoch scrollbar-ceil)
+        (setq scrollbar-epoch (1- scrollbar-ceil)))
-
-    (save-selected-window
@@ -64 +69 @@
-      (setq buffer-epoch (window-start))
-      (setq buffer-scroll-limit
-
-
-
+
+
+
+
-      (set-window-start window buffer-epoch)
-      (setq lower-ratio (/ (float (- buffer-epoch (point-min)))
-                           scrollbar-epoch))
-      (setq upper-ratio (/ (float (- buffer-scroll-limit buffer-epoch))
-
-
-
+
-      (while (not done)
-        (setq event (read-event))