*** empty log message ***

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 924bc71d837d9145b894b79c3414891c1093c59a..9c9bc4921b693f3664892144214237bada42e983 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -82,9 +82,28 @@ Display cursor at that position for a second."
     (unwind-protect
        (progn (mouse-set-point event)
               (push-mark nil t)
-              (sleep-for 1))
+              (sit-for 1))
       (goto-char point-save))))
 
+(defun mouse-fill-paragraph (event)
+  "Fill the paragraph at the mouse position."
+  (interactive "@e")
+  (save-excursion
+    (mouse-set-point event)
+    (fill-paragraph)))
+
+(defun mouse-fill-paragraph-with-prefix (event)
+  "Fill the paragraph at the mouse position with specified fill prefix.
+Click at the end of the fill prefix that you want; 
+The text before the mouse position, on the same line, is used as the prefix."
+  (interactive "@e")
+  (save-excursion
+    (mouse-set-point event)
+    (let ((fill-prefix (buffer-substring (save-excursion (beginning-of-line)
+                                                        (point))
+                                        (point))))      
+      (fill-paragraph))))
+
 (defun mouse-scroll (event)
   "Scroll point to the mouse position."
   (interactive "@e")