Gecko [ goons4good.org ]

Name	Size	Permission	Date
abbrevlist.elc	1.42 KB	-rw-r--r--	2023-06-07 04:09
assoc.elc	4.25 KB	-rw-r--r--	2023-06-07 04:09
awk-mode.elc	4.77 KB	-rw-r--r--	2023-06-07 04:09
bruce.el	5.96 KB	-rw-r--r--	2013-01-01 15:37
cl-compat.elc	4.13 KB	-rw-r--r--	2023-06-07 04:09
complete.elc	23.46 KB	-rw-r--r--	2023-06-07 04:09
cust-print.elc	12.46 KB	-rw-r--r--	2023-06-07 04:09
erc-hecomplete.elc	8.28 KB	-rw-r--r--	2023-06-07 04:09
fast-lock.elc	16.87 KB	-rw-r--r--	2023-06-07 04:09
iso-acc.elc	11.99 KB	-rw-r--r--	2023-06-07 04:09
iso-insert.elc	11.65 KB	-rw-r--r--	2023-06-07 04:09
iso-swed.elc	3.79 KB	-rw-r--r--	2023-06-07 04:09
keyswap.el	1.25 KB	-rw-r--r--	2013-01-01 15:37
lazy-lock.elc	24.37 KB	-rw-r--r--	2023-06-07 04:09
ledit.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
levents.elc	9.37 KB	-rw-r--r--	2023-06-07 04:09
lmenu.elc	11.17 KB	-rw-r--r--	2023-06-07 04:09
lucid.elc	6.13 KB	-rw-r--r--	2023-06-07 04:09
mailpost.elc	2.24 KB	-rw-r--r--	2023-06-07 04:09
mouse-sel.elc	20.34 KB	-rw-r--r--	2023-06-07 04:09
old-emacs-lock.elc	2.74 KB	-rw-r--r--	2023-06-07 04:09
old-whitespace.elc	22.67 KB	-rw-r--r--	2023-06-07 04:09
options.elc	4.14 KB	-rw-r--r--	2023-06-07 04:09
patcomp.el	750 B	-rw-r--r--	2012-11-02 03:00
pc-mode.elc	1.44 KB	-rw-r--r--	2023-06-07 04:09
pc-select.elc	12.42 KB	-rw-r--r--	2023-06-07 04:09
pgg-def.elc	2.38 KB	-rw-r--r--	2023-06-07 04:09
pgg-gpg.elc	12.88 KB	-rw-r--r--	2023-06-07 04:09
pgg-parse.elc	13.01 KB	-rw-r--r--	2023-06-07 04:09
pgg-pgp.elc	7.67 KB	-rw-r--r--	2023-06-07 04:09
pgg-pgp5.elc	7.59 KB	-rw-r--r--	2023-06-07 04:09
pgg.elc	19.18 KB	-rw-r--r--	2023-06-07 04:09
resume.elc	2.27 KB	-rw-r--r--	2023-06-07 04:09
s-region.elc	3.21 KB	-rw-r--r--	2023-06-07 04:09
scribe.elc	10.36 KB	-rw-r--r--	2023-06-07 04:09
spell.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
sregex.elc	12.35 KB	-rw-r--r--	2023-06-07 04:09
swedish.elc	2.58 KB	-rw-r--r--	2023-06-07 04:09
sym-comp.elc	6.11 KB	-rw-r--r--	2023-06-07 04:09
vc-mcvs.elc	15.07 KB	-rw-r--r--	2023-06-07 04:09

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:09:13 2023
;;; 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 (#$ . 633))
#@41 Abbrev table used while in scribe mode.
(defvar scribe-mode-abbrev-table nil (#$ . 728))
(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 "[({<" (#$ . 1342))
#@96 Close parenthesis characters for Scribe.
These should match up with `scribe-open-parenthesis'.
(defconst scribe-close-parentheses "])}>" (#$ . 1442))
(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 (#$ . 4180) 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 (#$ . 6207) 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\210b\210\327\326\261\202\246�\nb\210	Hc\210b\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 (#$ . 6337)])
#@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 (#$ . 7131) "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 (#$ . 7316) "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 (#$ . 7495) "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\211h\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�\fV\203n�\316\202\341�\312\202\341�\204~�\f\204~�\317\202\341�\203\220�\f\204\220�\nV\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�\nV\203\326�\317\202\341�\fV\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 (#$ . 8971) "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 (#$ . 9976) "P"])
(provide 'scribe)