| Current Path : /usr/share/emacs/24.3/lisp/obsolete/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/obsolete/scribe.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:10 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/scribe.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'scribe nil "Scribe mode." :prefix "scribe-" :group 'wp)
#@41 Syntax table used while in scribe mode.
(defvar scribe-mode-syntax-table nil (#$ . 637))
#@41 Abbrev table used while in scribe mode.
(defvar scribe-mode-abbrev-table nil (#$ . 732))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\307&\210\300\312\302\313\304\305\306\307&\207" [custom-declare-variable scribe-fancy-paragraphs nil "Non-nil makes Scribe mode use a different style of paragraph separation." :type boolean :group scribe scribe-electric-quote "Non-nil makes insert of double quote use `` or '' depending on context." scribe-electric-parenthesis "Non-nil makes parenthesis char ( (]}> ) automatically insert its close\nif typed after an @Command form."] 8)
#@41 Open parenthesis characters for Scribe.
(defconst scribe-open-parentheses "[({<" (#$ . 1346))
#@96 Close parenthesis characters for Scribe.
These should match up with `scribe-open-parenthesis'.
(defconst scribe-close-parentheses "])}>" (#$ . 1446))
(byte-code "\204D \303 \304\216\305\n!\306!\210\307\310\311\"\210\307\312\311\"\210\307\313\314\"\210\307\315\316\"\210\307\317\320\"\210\307\321\322\"\210\307\323\324\"\210\307\325\326\"\210\307\327\330\"\210\307\331\314\"\210*\303\207" [scribe-mode-syntax-table st text-mode-syntax-table syntax-table ((set-syntax-table st)) copy-syntax-table set-syntax-table modify-syntax-entry 34 " " 92 64 "w " 60 "(> " 62 ")< " 91 "(] " 93 ")[ " 123 "(} " 125 "){ " 39] 3)
(defvar scribe-mode-map nil)
(byte-code "\204 \301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\320#\210\302\322\320#\210\302\323\320#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\350\351N\204\215 \352\350\351\353\354!#\210\355\300!\204\231 \352\300\356\357#\210\301\207" [scribe-mode-map 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 scribe-mode-hook variable-documentation put purecopy "Hook run when entering Scribe mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp definition-name scribe-mode] 5)
(defvar scribe-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [scribe-mode-map variable-documentation put purecopy "Keymap for `scribe-mode'." boundp scribe-mode-syntax-table definition-name scribe-mode] 5)
(defvar scribe-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [scribe-mode-syntax-table variable-documentation put purecopy "Syntax table for `scribe-mode'." scribe-mode-abbrev-table definition-name scribe-mode] 5)
(defvar scribe-mode-abbrev-table (progn (define-abbrev-table 'scribe-mode-abbrev-table nil) scribe-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [scribe-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `scribe-mode'." scribe-mode derived-mode-parent text-mode] 5)
#@690 Major mode for editing files of Scribe (a text formatter) source.
Scribe-mode is similar to 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.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `scribe-mode-hook', as the final step
during initialization.
(defalias 'scribe-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324-\325\"\204V -.=\204V \326-\325.C#\210\327 !\210\330\f!\210-.\306\331!\210\332\306\333!\210\332/\334Q\306\335!\210\336 \306\337!\210\334 \306\340!\210\341/\3420\343\260 \306\344!\2101\203\237 \202\240 \345$\306\346!\210\347&\306\350!\210\351\352 P()\353\354!\207" [delay-mode-hooks major-mode mode-name scribe-mode-map scribe-mode-syntax-table parent make-local-variable t text-mode scribe-mode "Scribe" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comment-start "@Comment[" comment-start-skip "]" comment-column 0 comment-end paragraph-start "\\([\n\f]\\)\\|\\(@\\w+[" "].*[" "]$\\)" paragraph-separate "$" sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\| \\| \\)[ \n]*" compile-command "scribe " buffer-file-name run-mode-hooks scribe-mode-hook scribe-mode-abbrev-table local-abbrev-table scribe-open-parentheses scribe-close-parentheses scribe-fancy-paragraphs] 6 (#$ . 4184) nil])
(defalias 'scribe-tab #[nil "\300c\207" ["@\\"] 1 nil nil])
#@35 Run Scribe on the current buffer.
(defalias 'scribe #[nil "\300\301!\207" [call-interactively compile] 2 (#$ . 6211) 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) "``\306\307\310\f!\204> hz\311U\203 \312\313\f^!\210`\314\315
\316Q!\203, \317u\210\2026 \nb\210\320\307x\210\313u\210\312\f\321]!\210` b\210
GW\203j \212\322\323
H!\n\324#\206_ \322\323 H!\n\324#)\203j T\211\204A
GY\203\207 \nb\210\325\326\261\210 b\210\327\326\261\202\246 \nb\210 Hc\210 b\210\330
H\261\210\nb\210\331u\210\307w,\207" [noparens ccoun epos spos count scribe-open-parentheses 0 nil zerop 119 forward-sexp -1 looking-at "@\\w[" "]" 2 "\\W" 1 search-forward char-to-string t "@end(" ")" "@begin(" "@" 3 scribe-close-parentheses string] 4 (#$ . 6341)])
#@67 Underline COUNT words around point by means of Scribe constructs.
(defalias 'scribe-underline-word #[(count) "\301\302\"\207" [count scribe-envelop-word "u"] 3 (#$ . 7135) "p"])
#@66 Boldface COUNT words around point by means of Scribe constructs.
(defalias 'scribe-bold-word #[(count) "\301\302\"\207" [count scribe-envelop-word "b"] 3 (#$ . 7320) "p"])
#@67 Italicize COUNT words around point by means of Scribe constructs.
(defalias 'scribe-italicize-word #[(count) "\301\302\"\207" [count scribe-envelop-word "i"] 3 (#$ . 7499) "p"])
(defalias 'scribe-begin #[nil "\301c\210\302u\210\303\304\305\"\210\306\307\310Q!\207" [scribe-open-parentheses "\n" -1 scribe-envelop-word "Begin" 0 re-search-forward "[" "]"] 4 nil nil])
(defalias 'scribe-end #[nil "\301c\210\302u\210\303\304\305\"\210\306\307\310Q!\207" [scribe-open-parentheses "\n" -1 scribe-envelop-word "End" 0 re-search-forward "[" "]"] 4 nil nil])
(defalias 'scribe-chapter #[nil "\301c\210\302u\210\303\304\305\"\210\306\307\310Q!\207" [scribe-open-parentheses "\n" -1 scribe-envelop-word "Chapter" 0 re-search-forward "[" "]"] 4 nil nil])
(defalias 'scribe-section #[nil "\301c\210\302u\210\303\304\305\"\210\306\307\310Q!\207" [scribe-open-parentheses "\n" -1 scribe-envelop-word "Section" 0 re-search-forward "[" "]"] 4 nil nil])
(defalias 'scribe-subsection #[nil "\301c\210\302u\210\303\304\305\"\210\306\307\310Q!\207" [scribe-open-parentheses "\n" -1 scribe-envelop-word "SubSection" 0 re-search-forward "[" "]"] 4 nil nil])
(defalias 'scribe-bracket-region-be #[(env min max) "\212b\210\303 \304\261\210\nb\210\305 \304\261)\207" [max env min "@end(" ")\n" "@begin("] 3 nil "sEnvironment: \nr"])
(defalias 'scribe-insert-environment #[(env) "\301``#\210\302y\210\303c\210\304u\207" [env scribe-bracket-region-be 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) "\204 \204 \305\306!!\207\307\211\211 h\310U\203 \311\202\341 o\203& \312\202\341 \212\313\312`\314Z\315#\2052 `)\212\313\316`\314Z\315#\205@ `)\212\313\317`\320Z\315#\205N `)\211\204r \f\204\\ \312\202\341 \204d \316\202\341 \f V\203n \316\202\341 \312\202\341 \204~ \f\204~ \317\202\341 \203\220 \f\204\220 \n V\203\220 \317\202\341 \203\242 \f\204\242 \nV\203\242 \312\202\341 \f\203\264 \204\264 \n\fV\203\264 \317\202\341 \f\203\306 \204\306 \f\nV\203\306 \316\202\341 \n\fV\203\326 \n V\203\326 \317\202\341 \f V\203\340 \316\202\341 \312c+\207" [count scribe-electric-quote lastquote lastback lastfore self-insert-command prefix-numeric-value nil 92 34 "``" search-backward 1000 t "''" "\"" 100] 5 (#$ . 8975) "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) "\306\307!!\210\310\211\211\206 \f??\205G \212\311u\210`\312
P\310x\210g\313\232\205- ` SU?) \205G \314\315\316h!!
\"\211\205G \212\nHc)+\207" [count point-save paren-char at-command scribe-electric-parenthesis scribe-open-parentheses self-insert-command prefix-numeric-value nil -1 "^ \n \f" 64 string-match regexp-quote char-to-string scribe-close-parentheses] 4 (#$ . 9980) "P"])
(provide 'scribe)