Function: sc-open-line

sc-open-line is an interactive and byte-compiled function defined in supercite.el.gz.

Signature

(sc-open-line ARG)

Documentation

Like open-line, but insert the citation prefix at the front of the line.

With numeric ARG, inserts that many new lines.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
;; ======================================================================
;; bug reporting and miscellaneous commands

(defun sc-open-line (arg)
  "Like `open-line', but insert the citation prefix at the front of the line.
With numeric ARG, inserts that many new lines."
  (interactive "p")
  (save-excursion
    (let ((start (point))
	  (prefix (or (progn (beginning-of-line)
			     (if (looking-at (sc-cite-regexp))
				 (match-string 0)))
		      "")))
      (goto-char start)
      (open-line arg)
      (forward-line 1)
      (while (< 0 arg)
	(insert prefix)
	(forward-line 1)
	(setq arg (1- arg))))))