Function: set-fill-prefix

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

Signature

(set-fill-prefix &optional TURN-OFF)

Documentation

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

Remove it if optional TURN-OFF flag is non-nil. Also sets prior-fill-prefix to the previous value of fill-prefix. Filling removes any prior fill prefix, adjusts line lengths and then adds the fill prefix at the beginning of each line.

View in manual

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kfill.el
;;;
;;; Redefine this built-in function so that it sets `prior-fill-prefix' also.
;;;
(defun set-fill-prefix (&optional turn-off)
  "Set `fill-prefix' to the current line up to point.
Remove it if optional TURN-OFF flag is non-nil.  Also sets
`prior-fill-prefix' to the previous value of `fill-prefix'.
Filling removes any prior fill prefix, adjusts line lengths and
then adds the fill prefix at the beginning of each line."
  (interactive)
  (setq prior-fill-prefix fill-prefix)
  (let ((left-margin-pos (save-excursion (move-to-left-margin) (point))))
    (setq fill-prefix
          (when (> (point) left-margin-pos)
            (unless turn-off
	      (buffer-substring left-margin-pos (point))))))
  (when (equal prior-fill-prefix "")
    (setq prior-fill-prefix nil))
  (when (equal fill-prefix "")
    (setq fill-prefix nil))
  (cond (fill-prefix
	 (message "fill-prefix: \"%s\"; prior-fill-prefix: \"%s\""
		  fill-prefix (or prior-fill-prefix "")))
	(prior-fill-prefix
	 (message "fill-prefix cancelled; prior-fill-prefix: \"%s\""
		  prior-fill-prefix))
	(t (message "fill-prefix and prior-fill-prefix cancelled"))))