Function: set-fill-prefix

set-fill-prefix is an interactive and byte-compiled function defined in fill.el.gz.

Signature

(set-fill-prefix &optional ARG)

Documentation

Set the fill prefix to the current line up to point.

Filling expects lines to start with the fill prefix and reinserts the fill prefix in each resulting line. With a prefix argument, cancel the fill prefix.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/fill.el.gz
(defun set-fill-prefix (&optional arg)
  "Set the fill prefix to the current line up to point.
Filling expects lines to start with the fill prefix and
reinserts the fill prefix in each resulting line.
With a prefix argument, cancel the fill prefix."
  (interactive "P")
  (if arg
      (setq fill-prefix nil)
    (let ((left-margin-pos (save-excursion (move-to-left-margin) (point))))
      (if (> (point) left-margin-pos)
	  (progn
	    (setq fill-prefix (buffer-substring left-margin-pos (point)))
	    (when (equal fill-prefix "")
	      (setq fill-prefix nil)))
        (setq fill-prefix nil))))
  (if fill-prefix
      (message "fill-prefix: \"%s\"" fill-prefix)
    (message "fill-prefix cancelled")))