Function: woman2-ad

woman2-ad is a byte-compiled function defined in woman.el.gz.

Signature

(woman2-ad TO)

Documentation

.ad c -- Line adjustment is begun (once fill mode is on).

Set justification mode to c if specified. Format paragraphs up to TO. (Breaks, but should not.)

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman2-ad (to)
  ".ad c -- Line adjustment is begun (once fill mode is on).
Set justification mode to c if specified.
Format paragraphs up to TO.  (Breaks, but should not.)"
  ;; c = l -- left, r -- right, c -- center, b or n -- both,
  ;; absent -- unchanged.  Initial mode adj,both.
  (setq woman-adjust
	(cond ((eolp) woman-adjust-previous)
	      ((eq (following-char) ?l) woman-adjust-left)
	      ((eq (following-char) ?r) woman-adjust-right)
	      ((eq (following-char) ?c) woman-adjust-center)
	      ((memq (following-char) '(?b ?n)) woman-adjust-both)
	      (t (woman-get-numeric-arg))
	      )
	woman-justify (aref woman-justify-styles woman-adjust))
  (woman-delete-line 1)			; ignore any remaining arguments
  (woman2-format-paragraphs to))