;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 02:00:04 1993 ;;; from file /th/jwz/emacs19/lisp/modes/scribe.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (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 " Î !!\"\"\"\"\"\"\"\"\"\"*! ##################@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!!!ذ!! 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 "\\(^[\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] 5 "\ 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 '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) "``UhzU^!` Q!u bxu]!` b  GW H! # H! #) TY  GY bױ bױ b Hc b H buw," [0 nil noparens ccoun epos spos count 119 forward-sexp -1 looking-at "@\\w[" scribe-open-parentheses "]" 2 "\\W" 1 search-forward char-to-string t scribe-close-parentheses "@end(" string ")" "@begin(" "@" 3] 4 "\ 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 "cu\"Q!" ["\n" -1 scribe-envelop-word "Begin" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-end #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "End" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-chapter #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "Chapter" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-section #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "Section" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-subsection #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "SubSection" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil] scribe-bracket-region-be #[(env min max) "b\nñ b\nñ)" [max "@end(" env ")\n" min "@begin("] 3 nil "sEnvironment: \nr"] scribe-insert-environment #[(env) " ``#ycu" [scribe-bracket-region-be env 1 10 -1] 4 nil "sEnvironment: "]] 2) (fset 'scribe-insert-quote #[(count) " !!ĉhUɂoʂ`Z#`)`Z#`)`Z#`)ʪΪVΪʪϪ 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 "\ 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??u`\nPxg˚` SU?)h!!\n\" Hc)+" [self-insert-command prefix-numeric-value count nil point-save paren-char at-command scribe-electric-parenthesis -1 "^ \n " scribe-open-parentheses 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"])