Mercurial > emacs
changeset 96510:ad09327f37a0
(mouse-drag-throw, mouse-drag-drag): Autoload.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 05 Jul 2008 04:27:37 +0000 |
| parents | 0b35188a36dd |
| children | b91f578d3ace |
| files | lisp/ChangeLog lisp/mouse-drag.el |
| diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 05 04:26:11 2008 +0000 +++ b/lisp/ChangeLog Sat Jul 05 04:27:37 2008 +0000 @@ -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.
--- a/lisp/mouse-drag.el Sat Jul 05 04:26:11 2008 +0000 +++ b/lisp/mouse-drag.el Sat Jul 05 04:27:37 2008 +0000 @@ -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 (< 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 @@ ;; 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.