Function: cfengine-fill-paragraph

cfengine-fill-paragraph is an interactive and byte-compiled function defined in cfengine.el.gz.

Signature

(cfengine-fill-paragraph &optional JUSTIFY)

Documentation

Fill paragraphs in Cfengine code.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cfengine.el.gz
(defun cfengine-fill-paragraph (&optional justify)
  "Fill `paragraphs' in Cfengine code."
  (interactive "P")
  (or (if (fboundp 'fill-comment-paragraph)
          (fill-comment-paragraph justify)
	;; else do nothing in a comment
	(nth 4 (parse-partial-sexp (save-excursion
				     (beginning-of-defun)
				     (point))
				   (point))))
      (let ((paragraph-start
	     ;; Include start of parenthesized block.
	     "\f\\|[ \t]*$\\|.*(")
	    (paragraph-separate
	     ;; Include action and class lines, start and end of
	     ;; bracketed blocks and end of parenthesized blocks to
	     ;; avoid including these in fill.  This isn't ideal.
	     "[ \t\f]*$\\|.*#\\|.*[){}]\\|\\s-*[[:alpha:]_().|!]+:")
	    fill-paragraph-function)
	(fill-paragraph justify))
      t))