no justify-region

no justify-region

[Dan Jacobson]

"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.

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