diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-07-05 04:27:37 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-07-05 04:27:37 +0000 |
commit | 1bd38124f0d586bd555f93c63a3bd13a15aa4a5e (patch) | |
tree | 5e5b63c1406aa9001ee052cdbf1c6bfabf525cb9 /lisp/mouse-drag.el | |
parent | 41b90495794f94679f36e7b89f4ce32f02449aca (diff) | |
download | emacs-1bd38124f0d586bd555f93c63a3bd13a15aa4a5e.tar.gz |
(mouse-drag-throw, mouse-drag-drag): Autoload.
Diffstat (limited to 'lisp/mouse-drag.el')
-rw-r--r-- | lisp/mouse-drag.el | 6 |
1 files changed, 3 insertions, 3 deletions
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. |