diff options
| author | Juanma Barranquero | 2003-04-27 11:09:53 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-04-27 11:09:53 +0000 |
| commit | 9d7ab3f0ee327299fd64587c13ba34ee2bf541dc (patch) | |
| tree | 507bfb40ced1d210373fa2580f1280687b2c3336 | |
| parent | 1d1d1b1fe36726136118ad46274b8d30954170cb (diff) | |
| download | emacs-9d7ab3f0ee327299fd64587c13ba34ee2bf541dc.tar.gz emacs-9d7ab3f0ee327299fd64587c13ba34ee2bf541dc.zip | |
(scroll-bar-drag-1): Replace beginning-of-line with vertical-motion.
| -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." | |||
| 218 | (goto-char (+ (point-min) | 218 | (goto-char (+ (point-min) |
| 219 | (scroll-bar-scale portion-whole | 219 | (scroll-bar-scale portion-whole |
| 220 | (- (point-max) (point-min))))) | 220 | (- (point-max) (point-min))))) |
| 221 | (beginning-of-line) | 221 | (vertical-motion 0 window) |
| 222 | (set-window-start window (point))))) | 222 | (set-window-start window (point))))) |
| 223 | 223 | ||
| 224 | (defun scroll-bar-drag (event) | 224 | (defun scroll-bar-drag (event) |