diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:58:16 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:58:16 +0000 |
| commit | dbc4e1c12940079cad7b24e1654a0badcda8d6fc (patch) | |
| tree | e0fbea5b15bd13d2839c8b59b624cec80f31bfd8 /lisp/scroll-bar.el | |
| parent | 72766144811cd7258b2a59e56f6e3657537ea508 (diff) | |
| download | emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.tar.gz | |
JimB's changes since January 18th
Diffstat (limited to 'lisp/scroll-bar.el')
| -rw-r--r-- | lisp/scroll-bar.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index fbbc91a870d..e0d38e3d30c 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -21,6 +21,8 @@ ;;; along with GNU Emacs; see the file COPYING. If not, write to ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +(require 'mouse) + ;;;; Utilities. @@ -43,7 +45,7 @@ that scrollbar position." "Set the window start according to where the scrollbar is dragged. EVENT should be a scrollbar click or drag event." (interactive "e") - (let* ((end-position (nth (1- (length event)) event)) + (let* ((end-position (event-end event)) (window (nth 0 end-position)) (portion-whole (nth 2 end-position))) (save-excursion @@ -60,7 +62,7 @@ EVENT should be a scrollbar click." (let ((old-selected-window (selected-window))) (unwind-protect (progn - (let* ((end-position (nth (1- (length event)) event)) + (let* ((end-position (event-end event)) (window (nth 0 end-position)) (portion-whole (nth 2 end-position))) (select-window window) @@ -75,7 +77,7 @@ EVENT should be a scrollbar click." (let ((old-selected-window (selected-window))) (unwind-protect (progn - (let* ((end-position (nth (1- (length event)) event)) + (let* ((end-position (event-end event)) (window (nth 0 end-position)) (portion-whole (nth 2 end-position))) (select-window window) |