From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 5 Jul 2008 04:27:37 +0000 (+0000)
Subject: (mouse-drag-throw, mouse-drag-drag): Autoload.
X-Git-Tag: emacs-pretest-23.0.90~4327
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bd38124f0d586bd555f93c63a3bd13a15aa4a5e;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5e5c7e629c..08006c398a4 100644
--- 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 e3eada70d81..ead45d43959 100644
--- 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.