]> code.delx.au - gnu-emacs/blobdiff - lisp/mouse-drag.el
Add 2010 to copyright years.
[gnu-emacs] / lisp / mouse-drag.el
index e3eada70d819d9bfce8dc5b53c55baf7379017fb..4dc57529385dc6cde42c77bcb09996ea571ec515 100644 (file)
@@ -1,7 +1,7 @@
 ;;; 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
@@ -48,8 +48,7 @@
 ;; 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)
@@ -187,7 +186,7 @@ If t, the scroll bar moves in the direction the mouse moves.")
      (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.
 
@@ -254,6 +253,7 @@ To test this function, evaluate:
     ;; 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.