diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-04-27 11:09:53 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-04-27 11:09:53 +0000 |
| commit | 9d7ab3f0ee327299fd64587c13ba34ee2bf541dc (patch) | |
| tree | 507bfb40ced1d210373fa2580f1280687b2c3336 /lisp/scroll-bar.el | |
| parent | 1d1d1b1fe36726136118ad46274b8d30954170cb (diff) | |
| download | emacs-9d7ab3f0ee327299fd64587c13ba34ee2bf541dc.tar.gz | |
(scroll-bar-drag-1): Replace beginning-of-line with vertical-motion.
Diffstat (limited to 'lisp/scroll-bar.el')
| -rw-r--r-- | lisp/scroll-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |