mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juanma Barranquero 2003-04-27 11:09:53 +00:00
parent 1d1d1b1fe3
commit 9d7ab3f0ee
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/scroll-bar.el
View file

@ -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)