el/dot-emacs.el (mdw-fill-paragraph): Pass on arguments faithfully.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 0030abde0e9afa7ab78d0fd8fc1d2557f8feb698..df3397dc3ff433248916aa08e4f846ee4a6f3419 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1635,11 +1635,11 @@ (defadvice do-auto-fill (around mdw-dynamic-fill-prefix () activate compile)
   (let ((fill-prefix (mdw-choose-dynamic-fill-prefix)))
     ad-do-it))
 
-(defun mdw-fill-paragraph ()
+(defun mdw-fill-paragraph (&optional justify region)
   "Fill paragraph, getting a dynamic fill prefix."
-  (interactive)
+  (interactive (list (if current-prefix-arg 'full) t))
   (let ((fill-prefix (mdw-choose-dynamic-fill-prefix)))
-    (fill-paragraph nil)))
+    (fill-paragraph justify region)))
 
 (defun mdw-point-within-string-p ()
   "Return non-nil if point is within a string."