(mouse-drag-throw, mouse-drag-drag): Autoload.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5e5c7e..08006c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-07-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * mouse-drag.el (mouse-drag-throw, mouse-drag-drag): Autoload.
+
        * textmodes/sgml-mode.el (sgml-font-lock-syntactic-keywords):
        Use syntax-ppss on a position *before* the char we want to change.
 

diff --git a/lisp/mouse-drag.el b/lisp/mouse-drag.el
index e3eada7..ead45d4 100644 (file)
--- a/lisp/mouse-drag.el
+++ b/lisp/mouse-drag.el
@@ -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.