Function: sc-add-citation-level

sc-add-citation-level is a byte-compiled function defined in supercite.el.gz.

Signature

(sc-add-citation-level)

Documentation

Add a citation level for nested citation style with coercion.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-add-citation-level ()
  "Add a citation level for nested citation style with coercion."
  (let* ((nesting (sc-guess-nesting))
	 (citation (make-string (1+ (length nesting))
				(string-to-char sc-citation-delimiter)))
	 (prefix (concat sc-citation-leader citation sc-citation-separator)))
    (if (looking-at (sc-cite-regexp ""))
	(delete-region (match-beginning 0) (match-end 0)))
    (insert prefix)
    (sc-fill-if-different prefix)))