From 1bd38124f0d586bd555f93c63a3bd13a15aa4a5e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 5 Jul 2008 04:27:37 +0000 Subject: [PATCH] (mouse-drag-throw, mouse-drag-drag): Autoload. --- lisp/ChangeLog | 2 ++ lisp/mouse-drag.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) 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 + * 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. -- 2.11.4.GIT