Function: sc-electric-mode

sc-electric-mode is a byte-compiled function defined in supercite.el.gz.

Signature

(sc-electric-mode &optional STYLE)

Documentation

Mode for viewing Supercite reference headers. Commands are:

<f1> describe-mode
<help> describe-mode
? describe-mode
C-h describe-mode
C-j sc-eref-exit
RET sc-eref-exit
g sc-eref-goto
j sc-eref-jump
n sc-eref-next
p sc-eref-prev
q sc-eref-abort
s sc-eref-setn
x sc-eref-abort

sc-electric-mode is not intended to be run interactively, but rather accessed through Supercite's electric reference feature. See sc-insert-reference for more details. Optional STYLE is the initial header style to use, unless not supplied or invalid, in which case sc-preferred-header-style is used.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-electric-mode (&optional style)
  "Mode for viewing Supercite reference headers.  Commands are:
\n\\{sc-electric-mode-map}

`sc-electric-mode' is not intended to be run interactively, but rather
accessed through Supercite's electric reference feature.  See
`sc-insert-reference' for more details.  Optional STYLE is the initial
header style to use, unless not supplied or invalid, in which case
`sc-preferred-header-style' is used."

  (let ((info sc-mail-info))

    (setq sc-eref-style
	  (or (sc-valid-index-p style)
	      (sc-valid-index-p sc-preferred-header-style)
	      0))

    (get-buffer-create sc-electric-bufname)
    ;; set up buffer and enter command loop
    (save-excursion
      (save-window-excursion
	(pop-to-buffer sc-electric-bufname)
	(kill-all-local-variables)
	(let ((sc-mail-info info)
	      (buffer-read-only t)
	      (mode-name "SC Electric Refs")
	      (major-mode 'sc-electric-mode))
	  (use-local-map sc-electric-mode-map)
	  (sc-eref-show sc-eref-style)
	  (run-mode-hooks 'sc-electric-mode-hook)
	  (recursive-edit))))

    (and sc-eref-style
	 (sc-eref-insert-selected))
    (kill-buffer sc-electric-bufname)))