Function: current-justification

current-justification is a byte-compiled function defined in fill.el.gz.

Signature

(current-justification)

Documentation

How should we justify this line? This returns the value of the text-property justification, or the variable default-justification if there is no text-property. However, it returns nil rather than none to mean "don't justify".

View in manual

Probably introduced at or before Emacs version 19.29.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/fill.el.gz
(defun current-justification ()
  "How should we justify this line?
This returns the value of the text-property `justification',
or the variable `default-justification' if there is no text-property.
However, it returns nil rather than `none' to mean \"don't justify\"."
  (let ((j (or (get-text-property
		;; Make sure we're looking at paragraph body.
		(save-excursion (skip-chars-forward " \t")
				(if (and (eobp) (not (bobp)))
				    (1- (point)) (point)))
		'justification)
	       default-justification)))
    (if (eq 'none j)
	nil
      j)))