;;; compiled by eric@geech.gnu.ai.mit.edu on Fri Mar 26 21:04:42 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/scribe.el ;;; emacs version 19.0.509. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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'.") (byte-code "D Î !!\"\"\"\"\"\"\"\"\"\"*!M ##################@A#BC#܇" [scribe-mode-syntax-table syntax-table st ((set-syntax-table st)) copy-syntax-table text-mode-syntax-table set-syntax-table modify-syntax-entry 34 " " 92 64 "w " 60 "(> " 62 ")< " 91 "(] " 93 ")[ " 123 "(} " 125 "){ " 39 boundp scribe-mode-map nil make-sparse-keymap define-key " " scribe-tab " " tab-to-tab-stop "s" center-line "}" up-list "S" center-paragraph "\"" scribe-insert-quote "(" scribe-parenthesis "[" "{" "<" "c" scribe-chapter "S" scribe-section "s" scribe-subsection "e" scribe-insert-environment "" scribe-bracket-region-be "[" scribe-begin "]" scribe-end "i" scribe-italicize-word "b" scribe-bold-word "u" scribe-underline-word] 4) (fset 'scribe-mode #[nil " \n!\"\n! !Q!!!%!RS! P!!\"" [kill-all-local-variables use-local-map scribe-mode-map "Scribe" mode-name scribe-mode major-mode define-abbrev-table scribe-mode-abbrev-table nil local-abbrev-table make-local-variable comment-start "@Comment[" comment-start-skip scribe-open-parentheses "]" comment-column 0 comment-end paragraph-start concat "\\(^[\n ]\\)\\|\\(^@\\w+[" "].*[" scribe-close-parentheses "]$\\)" paragraph-separate scribe-fancy-paragraphs "^$" compile-command "scribe " buffer-file-name set-syntax-table scribe-mode-syntax-table run-hooks text-mode-hook scribe-mode-hook] 6 "\ 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." nil]) (fset (quote scribe-tab) #[nil "c" ["@\\"] 1 nil nil]) (fset 'scribe #[nil "!" [call-interactively compile] 2 "\ Run Scribe on the current buffer." nil]) (fset 'scribe-envelop-word #[(string count) "``UEh!U^!` Q!1!< b!!]!` b  GWs H! #h H! #)s TH  GY bccc bccc b Hc b H# b!!," [0 nil noparens ccoun epos spos count char-syntax 119 forward-sexp -1 looking-at "@\\w[" scribe-open-parentheses "]" forward-char 2 skip-chars-backward "\\W" 1 search-forward char-to-string t scribe-close-parentheses "@end(" string ")" "@begin(" insert "@" 3 skip-chars-forward] 5 "\ Surround current word with Scribe construct @STRING[...]. COUNT specifies how many words to surround. A negative count means to skip backward."]) (fset 'scribe-underline-word #[(count) "\n\"" [scribe-envelop-word "u" count] 3 "\ Underline COUNT words around point by means of Scribe constructs." "p"]) (fset 'scribe-bold-word #[(count) "\n\"" [scribe-envelop-word "b" count] 3 "\ Boldface COUNT words around point by means of Scribe constructs." "p"]) (fset 'scribe-italicize-word #[(count) "\n\"" [scribe-envelop-word "i" count] 3 "\ Italicize COUNT words around point by means of Scribe constructs." "p"]) (byte-code "MMMMMMM" [scribe-begin #[nil "c!\"Q!" ["\n" forward-char -1 scribe-envelop-word "Begin" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-end #[nil "c!\"Q!" ["\n" forward-char -1 scribe-envelop-word "End" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-chapter #[nil "c!\"Q!" ["\n" forward-char -1 scribe-envelop-word "Chapter" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-section #[nil "c!\"Q!" ["\n" forward-char -1 scribe-envelop-word "Section" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-subsection #[nil "c!\"Q!" ["\n" forward-char -1 scribe-envelop-word "SubSection" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-bracket-region-be #[(env min max) "bc\ncc bc\ncc)" [max "@end(" env ")\n" min "@begin("] 1 nil "sEnvironment: \nr"] scribe-insert-environment #[(env) " ``#!c!" [scribe-bracket-region-be env forward-line 1 10 forward-char -1] 4 nil "sEnvironment: "]] 2) (fset 'scribe-insert-quote #[(count) " !!ĉhU ɂo(ʂ`Z#4`)`Z#C`)`Z#R`)zaʂj΂Vv΂ʂς Vς Vʂ Vς V΂ V VςV΂c+" [count scribe-electric-quote self-insert-command prefix-numeric-value nil lastquote lastback lastfore 92 34 "``" search-backward 1000 t "''" "\"" 100] 5 "\ Insert ``, '' or \" according to preceding character. If `scribe-electric-quote' is non-NIL, insert ``, '' or \" according to preceding character. With numeric arg N, always insert N \" characters. Else just insert \"." "P"]) (fset 'scribe-parenthesis #[(count) "\n!!É\n??O!` P!g\"2` SU?)Oh!! \"O Hc)+" [self-insert-command prefix-numeric-value count nil point-save paren-char at-command scribe-electric-parenthesis forward-char -1 skip-chars-backward "^ \n " scribe-open-parentheses equal 64 string-match regexp-quote char-to-string scribe-close-parentheses] 4 "\ If scribe-electric-parenthesis is non-NIL, insertion of an open-parenthesis character inserts the following close parenthesis character if the preceding text is of the form @Command." "P"])