;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Wed May 3 23:17:51 1995 ;;; from file /home/fsf/rms/e19/lisp/scribe.el ;;; emacs version 19.28.90.6. ;;; bytecomp version FSF 2.10 ;;; 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 "`/home/fsf/rms/e19/lisp/scribe.el' was compiled for Emacs 19")) #@41 Syntax table used while in scribe mode. (defvar scribe-mode-syntax-table nil (#$ . 478)) #@41 Abbrev table used while in scribe mode. (defvar scribe-mode-abbrev-table nil (#$ . 573)) #@75 *Non-NIL makes Scribe mode use a different style of paragraph separation. (defvar scribe-fancy-paragraphs nil (#$ . -668)) #@74 *Non-NIL makes insert of double quote use `` or '' depending on context. (defvar scribe-electric-quote nil (#$ . -797)) #@106 *Non-NIL makes parenthesis char ( (]}> ) automatically insert its close if typed after an @Command form. (defvar scribe-electric-parenthesis nil (#$ . -924)) #@41 Open parenthesis characters for Scribe. (defconst scribe-open-parentheses "[({<" (#$ . 1088)) #@96 Close parenthesis characters for Scribe. These should match up with `scribe-open-parenthesis'. (defconst scribe-close-parentheses "])}>" (#$ . 1188)) (byte-code "D Î !!\"\"\"\"\"\"\"\"\"\"*!MB #################@#AB#CD#܇" [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 current-load-list make-sparse-keymap define-key " " scribe-tab " " tab-to-tab-stop "s" center-line "}" up-list "S" center-paragraph "\"" scribe-insert-quote "(" scribe-parenthesis "[" "{" "<" "" scribe-chapter "" scribe-section "" scribe-subsection "" scribe-insert-environment "" scribe-bracket-region-be "[" scribe-begin "]" scribe-end " " scribe-italicize-word "" scribe-bold-word "" scribe-underline-word] 4) #@526 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. (defalias 'scribe-mode #[nil " \n!\"\n!\f!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 "\\([\n\f]\\)\\|\\(@\\w+[" "].*[" scribe-close-parentheses "]$\\)" paragraph-separate scribe-fancy-paragraphs "$" sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\| \\| \\)[ \n]*" compile-command "scribe " buffer-file-name set-syntax-table scribe-mode-syntax-table run-hooks text-mode-hook scribe-mode-hook] 5 (#$ . 2306) nil]) (defalias 'scribe-tab #[nil "c" ["@\\"] 1 nil nil]) #@35 Run Scribe on the current buffer. (defalias 'scribe #[nil "!" [call-interactively compile] 2 (#$ . 3676) nil]) #@145 Surround current word with Scribe construct @STRING[...]. COUNT specifies how many words to surround. A negative count means to skip backward. (defalias 'scribe-envelop-word #[(string count) "``UBhzU^!`\fQ!/u9\fbxu]!` b \fGWp\f H!\f#e H!\f#)p TE \fGY\fbױ bױ\fb Hc b\f H\fbuw," [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 (#$ . 3797)]) #@67 Underline COUNT words around point by means of Scribe constructs. (defalias 'scribe-underline-word #[(count) "\n\"" [scribe-envelop-word "u" count] 3 (#$ . 4409) "p"]) #@66 Boldface COUNT words around point by means of Scribe constructs. (defalias 'scribe-bold-word #[(count) "\n\"" [scribe-envelop-word "b" count] 3 (#$ . 4586) "p"]) #@67 Italicize COUNT words around point by means of Scribe constructs. (defalias 'scribe-italicize-word #[(count) "\n\"" [scribe-envelop-word "i" count] 3 (#$ . 4757) "p"]) (defalias 'scribe-begin #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "Begin" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil]) (defalias 'scribe-end #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "End" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil]) (defalias 'scribe-chapter #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "Chapter" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil]) (defalias 'scribe-section #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "Section" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil]) (defalias 'scribe-subsection #[nil "cu\"Q!" ["\n" -1 scribe-envelop-word "SubSection" 0 re-search-forward "[" scribe-open-parentheses "]"] 4 nil nil]) (defalias 'scribe-bracket-region-be #[(env min max) "b\nñ\fb\nñ)" [max "@end(" env ")\n" min "@begin("] 3 nil "sEnvironment: \nr"]) (defalias 'scribe-insert-environment #[(env) " ``#ycu" [scribe-bracket-region-be env 1 10 -1] 4 nil "sEnvironment: "]) #@217 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 ". (defalias '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 (#$ . 5995) "P"]) #@184 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. (defalias 'scribe-parenthesis #[(count) "\n!!É\n??Mu`\nPxg˚0`\fSU?)Mh!!\n\"M Hc)+" [self-insert-command prefix-numeric-value count nil point-save paren-char at-command scribe-electric-parenthesis -1 "^ \n \f" scribe-open-parentheses 64 string-match regexp-quote char-to-string scribe-close-parentheses] 4 (#$ . 6687) "P"])