Function: nxml-do-fill-paragraph

nxml-do-fill-paragraph is a byte-compiled function defined in nxml-mode.el.gz.

Signature

(nxml-do-fill-paragraph ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-mode.el.gz
;;; Filling

(defun nxml-do-fill-paragraph (arg)
  (let (fill-paragraph-function
	fill-prefix
	start end)
    (save-excursion
      (nxml-forward-paragraph)
      (setq end (point))
      (nxml-backward-paragraph)
      (skip-chars-forward " \t\r\n")
      (setq start (point))
      (beginning-of-line)
      (setq fill-prefix (buffer-substring-no-properties (point) start))
      (when (and (not (nxml-get-inside (point)))
		 (looking-at "[ \t]*<!--"))
	(setq fill-prefix (concat fill-prefix "     ")))
      (fill-region-as-paragraph start end arg))
    (skip-line-prefix fill-prefix)
    fill-prefix))