From 9d7ab3f0ee327299fd64587c13ba34ee2bf541dc Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 27 Apr 2003 11:09:53 +0000
Subject: [PATCH] (scroll-bar-drag-1): Replace beginning-of-line with
 vertical-motion.

---
 lisp/scroll-bar.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 1ee1b462db4..609bea4ab9c 100644
--- 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)
-- 
2.39.2