Variable: sc-default-cite-frame

sc-default-cite-frame is a customizable variable defined in supercite.el.gz.

Value

((begin
  (progn
    (sc-fill-if-different)
    (setq sc-tmp-nested-regexp
	  (sc-cite-regexp "")
	  sc-tmp-nonnested-regexp
	  (sc-cite-regexp)
	  sc-tmp-dumb-regexp
	  (concat "\\("
		  (sc-cite-regexp "")
		  "\\)"
		  (sc-cite-regexp sc-citation-nonnested-root-regexp)))))
 ("^[   ]*$"
  (if sc-cite-blank-lines-p
      (if sc-nested-citation-p
	  (sc-add-citation-level)
	(sc-cite-line))
    (sc-fill-if-different "")))
 (sc-reference-tag-string
  (if
      (string= sc-reference-tag-string "")
      (list 'continue)
    nil))
 (sc-tmp-dumb-regexp
  (sc-cite-coerce-dumb-citer))
 (sc-tmp-nested-regexp
  (sc-add-citation-level))
 (sc-tmp-nonnested-regexp
  (sc-cite-coerce-cited-line))
 (sc-nested-citation-p
  (sc-add-citation-level))
 (t
  (sc-cite-line))
 (end
  (sc-fill-if-different "")))

Documentation

Default REGI frame for citing a region.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defcustom sc-default-cite-frame
  '(;; initialize fill state and temporary variables when entering
    ;; frame. this makes things run much faster
    (begin (progn
	     (sc-fill-if-different)
	     (setq sc-tmp-nested-regexp (sc-cite-regexp "")
		   sc-tmp-nonnested-regexp (sc-cite-regexp)
		   sc-tmp-dumb-regexp
		   (concat "\\("
			   (sc-cite-regexp "")
			   "\\)"
			   (sc-cite-regexp
			    sc-citation-nonnested-root-regexp)))))
    ;; blank lines mean paragraph separators, so fill the last cited
    ;; paragraph, unless sc-cite-blank-lines-p is non-nil, in which
    ;; case we treat blank lines just like any other line.
    ("^[ \t]*$"                 (if sc-cite-blank-lines-p
				    (if sc-nested-citation-p
					(sc-add-citation-level)
				      (sc-cite-line))
				  (sc-fill-if-different "")))
    ;; do nothing if looking at a reference tag. make sure that the
    ;; tag string isn't the empty string since this will match every
    ;; line.  it cannot be nil.
    (sc-reference-tag-string    (if (string= sc-reference-tag-string "")
				    (list 'continue)
				  nil))
    ;; this regexp catches nested citations in which the author cited
    ;; a non-nested citation with a dumb citer.
    (sc-tmp-dumb-regexp         (sc-cite-coerce-dumb-citer))
    ;; if we are looking at a nested citation then add a citation level
    (sc-tmp-nested-regexp       (sc-add-citation-level))
    ;; if we're looking at a non-nested citation, coerce it to our style
    (sc-tmp-nonnested-regexp    (sc-cite-coerce-cited-line))
    ;; we must be looking at an uncited line. if we are in nested
    ;; citations, just add a citation level
    (sc-nested-citation-p       (sc-add-citation-level))
    ;; we're looking at an uncited line and we are in non-nested
    ;; citations, so cite it with a non-nested citation
    (t                          (sc-cite-line))
    ;; be sure when we're done that we fill the last cited paragraph.
    (end                        (sc-fill-if-different "")))
  "Default REGI frame for citing a region."
  :type '(repeat (repeat sexp))
  :group 'supercite-frames)