(scroll-bar-drag-1): Replace beginning-of-line with vertical-motion.

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 1ee1b462db4c8d02839ff0871fa28c126a201e2e..609bea4ab9cb68d76c073e370fd55b528a1cf0b3 100644 (file)
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -218,7 +218,7 @@ EVENT should be a scroll bar click or drag event."
       (goto-char (+ (point-min)
                    (scroll-bar-scale portion-whole
                                      (- (point-max) (point-min)))))
-      (beginning-of-line)
+      (vertical-motion 0 window)
       (set-window-start window (point)))))
 
 (defun scroll-bar-drag (event)