ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/obsolete/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obsolete/scribe.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 489))
#@41 Abbrev table used while in scribe mode.
(defvar scribe-mode-abbrev-table nil (#$ . 584))
(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 "[({<" (#$ . 1210))
#@96 Close parenthesis characters for Scribe.
These should match up with `scribe-open-parenthesis'.
(defconst scribe-close-parentheses "])}>" (#$ . 1310))
(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 #[nil "\301!\207" [st set-syntax-table] 2] 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\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] 4)
#@163 Hook run after entering Scribe mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar scribe-mode-hook nil (#$ . 2822))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp scribe-mode-map put definition-name scribe-mode] 4)
(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)
#@698 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\3320\334Q\306\335!\210\336 \306\337!\210\334 \306\340!\210\3410\3421\343\260 \306\344!\2102\203\237 \202\240 \345$\306\346!\210\347&\306\350!\210\351+\205\267 \352\353 !P()\354\355!\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 " shell-quote-argument 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 (#$ . 4062) 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 (#$ . 6134) 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\f\306U\204> hz\310U\203 \311\312\f^!\210`\313\314
\315Q!\203, \316u\210\2026 \nb\210\317\307x\210\312u\210\311\f\320]!\210` b\210
GW\203j \212\321\322
H!\n\323#\206_ \321\322 H!\n\323#)\203j T\211\204A
GY\203\207 \nb\210\324\325\261\210 b\210\326\325\261\202\246 \nb\210 Hc\210 b\210\327
H\261\210\nb\210\330u\210\307w,\207" [noparens ccoun epos spos count scribe-open-parentheses 0 nil 119 forward-sexp -1 looking-at "@\\w[" "]" 2 "\\W" 1 search-forward char-to-string t "@end(" ")" "@begin(" "@" 3 scribe-close-parentheses string] 4 (#$ . 6264)])
#@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 (#$ . 7052) "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 (#$ . 7237) "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 (#$ . 7416) "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: "])
#@233 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 (#$ . 8892) "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 (#$ . 9913) "P"])
(provide 'scribe)
Kontol Shell Bypass