usr/src/contrib/emacs-18.57/lisp/scribe.elc


(defvar scribe-mode-syntax-table nil "\
Syntax table used while in scribe mode.")

(defvar scribe-mode-abbrev-table nil "\
Abbrev table used while in scribe mode.")

(defvar scribe-fancy-paragraphs nil "\
*Non-NIL makes Scribe mode use a different style of paragraph separation.")

(defvar scribe-electric-quote nil "\
*Non-NIL makes insert of double quote use `` or '' depending on context.")

(defvar scribe-electric-parenthesis nil "\
*Non-NIL makes parenthesis char ( (]}> ) automatically insert its close
if typed after an @Command form.")

(defconst scribe-open-parentheses "[({<" "\
Open parenthesis characters for Scribe.")

(defconst scribe-close-parentheses "])}>" "\
Close parenthesis characters for Scribe.  These should match up with
scribe-open-parenthesis.")

(if (null scribe-mode-syntax-table) (let ((st (syntax-table))) (unwind-protect (progn (setq scribe-mode-syntax-table (copy-syntax-table text-mode-syntax-table)) (set-syntax-table scribe-mode-syntax-table) (modify-syntax-entry 34 "    ") (modify-syntax-entry 92 "    ") (modify-syntax-entry 64 "w   ") (modify-syntax-entry 60 "(>  ") (modify-syntax-entry 62 ")<  ") (modify-syntax-entry 91 "(]  ") (modify-syntax-entry 93 ")[  ") (modify-syntax-entry 123 "(}  ") (modify-syntax-entry 125 "){  ") (modify-syntax-entry 39 "w   ")) (set-syntax-table st))))

(defvar scribe-mode-map nil)

(if scribe-mode-map nil (setq scribe-mode-map (make-sparse-keymap)) (define-key scribe-mode-map "       " (quote scribe-tab)) (define-key scribe-mode-map "\e    " (quote tab-to-tab-stop)) (define-key scribe-mode-map "\es" (quote center-line)) (define-key scribe-mode-map "\e}" (quote up-list)) (define-key scribe-mode-map "\eS" (quote center-paragraph)) (define-key scribe-mode-map "\"" (quote scribe-insert-quote)) (define-key scribe-mode-map "(" (quote scribe-parenthesis)) (define-key scribe-mode-map "[" (quote scribe-parenthesis)) (define-key scribe-mode-map "{" (quote scribe-parenthesis)) (define-key scribe-mode-map "<" (quote scribe-parenthesis)) (define-key scribe-mode-map "\ 3c" (quote scribe-chapter)) (define-key scribe-mode-map "\ 3S" (quote scribe-section)) (define-key scribe-mode-map "\ 3s" (quote scribe-subsection)) (define-key scribe-mode-map "\ 3e" (quote scribe-insert-environment)) (define-key scribe-mode-map "\ 3\ 5" (quote scribe-bracket-region-be)) (define-key scribe-mode-map "\ 3[" (quote scribe-begin)) (define-key scribe-mode-map "\ 3]" (quote scribe-end)) (define-key scribe-mode-map "\ 3i" (quote scribe-italicize-word)) (define-key scribe-mode-map "\ 3b" (quote scribe-bold-word)) (define-key scribe-mode-map "\ 3u" (quote scribe-underline-word)))

(defun scribe-mode nil "\
Major mode for editing files of Scribe (a text formatter) source.
Scribe-mode is similar text-mode, with a few extra commands added.
\\{scribe-mode-map}

Interesting variables:

scribe-fancy-paragraphs
  Non-nil makes Scribe mode use a different style of paragraph separation.

scribe-electric-quote
  Non-nil makes insert of double quote use `` or '' depending on context.

scribe-electric-parenthesis
  Non-nil makes an open-parenthesis char (one of `([<{')
  automatically insert its close if typed after an @Command form." (interactive) (byte-code "Ã\88Ñ \88Ò\b!\88Ó\89\11\88Ô\89\12\88ÕÅÃ\"\88
\89\14\88ÖÆ!\88×\89\16\ 6\88ÖÇ!\88×\ e\bØQ\89\16\a\88ÖÉ!\88Ù\89\16       \88ÖÊ!\88Ø\89\16
\88ÖË!\88ÚÛ\ e\bÜ\ e\fÝ%\89\16\v\88ÖÍ!\88\ e\ e\83a