;;; mouse-drag.el --- use mouse-2 to do a new style of scrolling
;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: John Heidemann <johnh@ISI.EDU>
;; Keywords: mouse
;; for ``one-click text copy and move''.
;;
;; To use mouse-drag, place the following in your .emacs file:
-;; (require 'mouse-drag)
-;; -and either-
+;; -either-
;; (global-set-key [down-mouse-2] 'mouse-drag-throw)
;; -or-
;; (global-set-key [down-mouse-2] 'mouse-drag-drag)
(if (< mouse-delta 0) -1 1)
(if mouse-throw-with-scroll-bar 1 -1)))
-
+;;;###autoload
(defun mouse-drag-throw (start-event)
"\"Throw\" the page according to a mouse drag.
;; Now restore the old window.
(select-window old-selected-window)))
+;;;###autoload
(defun mouse-drag-drag (start-event)
"\"Drag\" the page according to a mouse drag.