From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 27 Apr 2003 11:09:53 +0000 (+0000)
Subject: (scroll-bar-drag-1): Replace beginning-of-line with vertical-motion.
X-Git-Tag: ttn-vms-21-2-B4~10407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d7ab3f0ee327299fd64587c13ba34ee2bf541dc;p=emacs.git

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

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)