Function: sc-insert-citation

sc-insert-citation is an interactive and byte-compiled function defined in supercite.el.gz.

Signature

(sc-insert-citation ARG)

Documentation

Insert citation string at beginning of current line if not already cited.

With C-u (universal-argument) insert citation even if line is already cited.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-insert-citation (arg)
  "Insert citation string at beginning of current line if not already cited.
With `\\[universal-argument]' insert citation even if line is already
cited."
  (interactive "P")
  (save-excursion
    (beginning-of-line)
    (if (or (not (looking-at (sc-cite-regexp)))
	    (looking-at "^[ \t]*$")
	    (consp arg))
	(insert (sc-mail-field "sc-citation"))
      (error "Line is already cited"))))