Re: no justify-region

[Kevin Rodgers]

Dan Jacobson wrote:
> "M-x apropos justify" shows there is unjustify-region but no
> justify-region.
>
> Wait, Info says "A numeric argument to `M-q' causes it to "justify"
> the text as well as filling it."
>
> Well, OK, but many users will just do "M-x justi TAB" and find only
> justify-current-line and assume the bigwigs never said anything much
> justifiable.

(defun justify-region (from to &optional justify nosqueeze to-eop)
  "Fill and justify each of the paragraphs in the region between FROM 
and TO.
A prefix arg means to read JUSTIFY (default: full) interactively.

Optional arguments JUSTIFY, NOSQUEEZE, and TO-EOP are as for `fill-region'."
  (interactive (progn
                 (barf-if-buffer-read-only)
                 (list (region-beginning) (region-end)
                       (if current-prefix-arg
                           (intern (completing-read "Justify (default: full): "
                                                    '("full"
                                                      "left"
                                                      "right"
                                                      "center")
                                                    nil t nil nil "full"))))))
  (fill-region from to (or justify 'full) nosqueeze to-eop))


--
Kevin