Mercurial > emacs
changeset 50717:318f8d4ecf5a
(scroll-bar-drag-1): Replace beginning-of-line with vertical-motion.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 27 Apr 2003 11:09:53 +0000 |
| parents | bb0aa4c18cfe |
| children | 240f333f936c |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Sat Apr 26 23:53:00 2003 +0000 +++ b/lisp/scroll-bar.el Sun Apr 27 11:09:53 2003 +0000 @@ -218,7 +218,7 @@ (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)