The JUSTIFY option doesn't work very well when the fill prefix has
trailing whitespace, but that's a reason not to use it as a user, not
for suppressing it. The REGION behaviour seems potentially useful, so
suppressing it was undoubtedly a mistake. (Compatibility isn't an issue
here: both arguments have been around since at least Emacs 23.)
(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."