comparison lisp/textmodes/fill.el @ 85069:8058943a15e4

(fill-paragraph-or-region): New function.

85068:6d4dbcc19e80

	(if (>= (point) initial)
	    (setq fill-pfx
		  (fill-region-as-paragraph (point) end justify nosqueeze))
	  (goto-char end))))
    fill-pfx))


(defcustom default-justification 'left
  "*Method of justifying text not otherwise specified.
Possible values are `left', `right', `full', `center', or `none'.

85069:8058943a15e4

	(if (>= (point) initial)
	    (setq fill-pfx
		  (fill-region-as-paragraph (point) end justify nosqueeze))
	  (goto-char end))))
    fill-pfx))

(defun fill-paragraph-or-region (arg)
  "Fill the active region or current paragraph.
In Transient Mark mode, when the mark is active, it calls `fill-region'
on the active region.  Otherwise, it calls `fill-paragraph'."
  (interactive (progn
		 (barf-if-buffer-read-only)
		 (list (if current-prefix-arg 'full))))
  (if (and transient-mark-mode mark-active
	   (not (eq (region-beginning) (region-end))))
      (fill-region (region-beginning) (region-end) arg)
    (fill-paragraph arg)))


(defcustom default-justification 'left
  "*Method of justifying text not otherwise specified.
Possible values are `left', `right', `full', `center', or `none'.