Gecko [ 122.154.134.11 ]

Name	Size	Permission
artist.elc	156.01 KB	-rw-r--r--
bib-mode.elc	7.43 KB	-rw-r--r--
bibtex-style.elc	5.39 KB	-rw-r--r--
bibtex.elc	157.5 KB	-rw-r--r--
conf-mode.elc	28.99 KB	-rw-r--r--
css-mode.elc	13.28 KB	-rw-r--r--
dns-mode.elc	6.9 KB	-rw-r--r--
enriched.elc	13.78 KB	-rw-r--r--
fill.elc	34.12 KB	-rw-r--r--
flyspell.elc	52.56 KB	-rw-r--r--
ispell.elc	97.58 KB	-rw-r--r--
makeinfo.elc	6.2 KB	-rw-r--r--
nroff-mode.elc	10.21 KB	-rw-r--r--
page-ext.elc	15.45 KB	-rw-r--r--
page.elc	3.19 KB	-rw-r--r--
paragraphs.elc	15.18 KB	-rw-r--r--
picture.elc	26.27 KB	-rw-r--r--
po.elc	2.84 KB	-rw-r--r--
refbib.elc	18.08 KB	-rw-r--r--
refer.elc	9.21 KB	-rw-r--r--
refill.elc	6.17 KB	-rw-r--r--
reftex-auc.elc	6 KB	-rw-r--r--
reftex-cite.elc	26.53 KB	-rw-r--r--
reftex-dcr.elc	12.53 KB	-rw-r--r--
reftex-global.elc	12.67 KB	-rw-r--r--
reftex-index.elc	61.35 KB	-rw-r--r--
reftex-parse.elc	21.31 KB	-rw-r--r--
reftex-ref.elc	19.57 KB	-rw-r--r--
reftex-sel.elc	16.58 KB	-rw-r--r--
reftex-toc.elc	30.88 KB	-rw-r--r--
reftex-vars.elc	80.53 KB	-rw-r--r--
reftex.elc	56.79 KB	-rw-r--r--
remember.elc	12.73 KB	-rw-r--r--
rst.elc	72.23 KB	-rw-r--r--
sgml-mode.elc	80.43 KB	-rw-r--r--
spell.elc	4.04 KB	-rw-r--r--
table.elc	161.74 KB	-rw-r--r--
tex-mode.elc	87.19 KB	-rw-r--r--
texinfmt.elc	83.84 KB	-rw-r--r--
texinfo.elc	35.12 KB	-rw-r--r--
texnfo-upd.elc	45.86 KB	-rw-r--r--
text-mode.elc	7.39 KB	-rw-r--r--
tildify.elc	8.47 KB	-rw-r--r--
two-column.elc	12.86 KB	-rw-r--r--
underline.elc	1.4 KB	-rw-r--r--

Code Editor : tildify.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:21 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/textmodes/tildify.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`tildify.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'tildify nil "Adding missing hard spaces or other text fragments into texts." :version "21.1" :group 'wp)
#@802 Alist specifying where to insert hard spaces.

Each alist item is of the form (MAJOR-MODE REGEXP NUMBER) or
(MAJOR-MODE . SYMBOL).

MAJOR-MODE defines major mode, for which the item applies.  It can be either:
- a symbol equal to the major mode of the buffer to be fixed
- t for default item, this applies to all major modes not defined in another
  alist item

REGEXP is a regular expression matching the part of a text, where a hard space
is missing.  The regexp is always case sensitive, regardless of the current
`case-fold-search' setting.

NUMBER defines the number of the REGEXP subexpression which should be replaced
by the hard space character.

The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE.  For this
mode, the item for the mode SYMBOL is looked up in the alist instead.
(custom-declare-variable 'tildify-pattern-alist ''((t "\$[,:;(][ 	]*[a]\\|\\<[AIKOSUVZikosuvz]\$\$[ 	]+\\|[ 	]*\n[ 	]*\$\$\\w\\|[([{\\]\\|<[a-zA-Z]\$" 2)) '(#$ . 744) :group 'tildify :type '(repeat (choice (list symbol regexp integer) (cons symbol symbol))))
#@676 Alist specifying what is a hard space in the current major mode.

Each alist item is of the form (MAJOR-MODE . STRING) or
(MAJOR-MODE . SYMBOL).

STRING defines the hard space, which is inserted at places defined by
`tildify-pattern-alist'.  For example it can be "~" for TeX or "&nbsp;"
for SGML.

The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE.  For this
mode, the item for the mode SYMBOL is looked up in the alist instead.
(custom-declare-variable 'tildify-string-alist ''((latex-mode . "~") (tex-mode . latex-mode) (plain-tex-mode . latex-mode) (sgml-mode . "&nbsp;") (xml-mode . sgml-mode) (html-mode . sgml-mode) (t . " ")) '(#$ . 1817) :group 'tildify :type '(repeat (cons symbol (choice string symbol))))
#@1036 Alist specifying ignored structured text environments.
Parts of text defined in this alist are skipped without performing hard space
insertion on them.  These setting allow skipping text parts like verbatim or
math environments in TeX or preformatted text in SGML.

Each list element is of the form
  (MAJOR-MODE (BEG-REGEX . END-REGEX) (BEG-REGEX . END-REGEX) ... )

BEG-REGEX is a regexp matching beginning of a text part to be skipped.
END-REGEX defines end of the corresponding text part and can be either:
- a regexp matching the end of the skipped text part
- a list of regexps and numbers, which will compose the ending regexp by
  concatenating themselves, while replacing the numbers with corresponding
  subexpressions of BEG-REGEX (this is used to solve cases like
  \\verb<character> in TeX).
(custom-declare-variable 'tildify-ignored-environments-alist ''((latex-mode ("\\\\\\\\" . #1="") ("\\\\begin{verbatim}" . "\\\\end{verbatim}") ("\\\\verb\\*?\$.\$" 1) ("\\$\\$" . "\\$\\$") ("\\$" . "\\$") ("\\\$" . "\\\$") ("\\\\[[]" . "\\\\[]]") ("\\\\begin{math}" . "\\\\end{math}") ("\\\\begin{displaymath}" . "\\\\end{displaymath}") ("\\\\begin{equation}" . "\\\\end{equation}") ("\\\\begin{eqnarray\\*?}" . "\\\\end{eqnarray\\*?}") ("\\\\[a-zA-Z]+\$ +\\|{}\$[a-zA-Z]*" . #1#) ("%" . "$")) (plain-tex-mode . latex-mode) (html-mode ("<pre[^>]*>" . "</pre>") ("<dfn>" . "</dfn>") ("<code>" . "</code>") ("<samp>" . "</samp>") ("<kbd>" . "</kbd>") ("<var>" . "</var>") ("<PRE[^>]*>" . "</PRE>") ("<DFN>" . "</DFN>") ("<CODE>" . "</CODE>") ("<SAMP>" . "</SAMP>") ("<KBD>" . "</KBD>") ("<VAR>" . "</VAR>") ("<! *--" . "-- *>") ("<" . ">")) (sgml-mode . html-mode) (t nil)) '(#$ . 2787) :group 'tildify :type '(repeat (cons symbol (choice symbol (repeat sexp)))))
#@27 Counter for replacements.
(defvar tildify-count nil (#$ . 4796))
#@261 Add hard spaces in the region between BEG and END.
See variables `tildify-pattern-alist', `tildify-string-alist', and
`tildify-ignored-environments-alist' for information about configuration
parameters.
This function performs no refilling of the changed text.
(defalias 'tildify-region #[(beg end) "\306\307\211\310	!\307\211\311\307\312 \307\203\324�\212\214~\210eb\210\204\320�`\313!\310\203?�`S\202@�d!\314!Y\203\207�Y\204Y�\314!\314!X\204i�\315\314!
#\211\316=\203~�\307\202\207�\n\307=\203\207�\311\314!\314!Y\203\226�\311`\314!Y\204\245�\314!b\210\204'�\317\307\311#\203\303�`\314!V\203'�\311\211\202)�\320\321\"\210\311\211\203,�*\202\333�\315	
#\210.	\320\322\"\207" [tildify-count end aux regexp case-fold-search ask 0 nil copy-marker t tildify-build-regexp tildify-find-env marker-position tildify-tildify force re-search-forward message "End of environment not found: %s" "%d spaces replaced." finish end-env marker-end z a beg] 10 (#$ . 4868) "*r"])
#@249 Add hard spaces in the current buffer.
See variables `tildify-pattern-alist', `tildify-string-alist', and
`tildify-ignored-environments-alist' for information about configuration
parameters.
This function performs no refilling of the changed text.
(defalias 'tildify-buffer #[nil "\300ed\"\207" [tildify-region] 3 (#$ . 5917) "*"])
#@36 Build start of environment regexp.
(defalias 'tildify-build-regexp #[nil "\304!\305\211\205*�\n\211@@)\nA\211\203)�	\306\n\211@@)Q\nA\211\204�	*\207" [tildify-ignored-environments-alist regexp alist x tildify-mode-alist nil "\\|"] 4 (#$ . 6255)])
#@65 Return alist item for the MODE-ALIST in the current major MODE.
(defalias 'tildify-mode-alist #[(mode-alist &optional mode) "\204�	\304\n\"\206�\304\305\n\"A\211\203#�9\203#�\306\n\"\202$�)\207" [mode major-mode mode-alist alist assoc t tildify-mode-alist] 4 (#$ . 6518)])
#@113 Find environment using REGEXP.
Return regexp for the end of the environment or nil if no environment was
found.
(defalias 'tildify-find-env #[(regexp) "\306\307\310#\205k�\311\312!\313	!\307\314 \315\216\316\211@@)\f\"\312=\204,�A\202�*\211@A)\211;\203>�\n\202j�\317\307\n\203g�\n@\211;\203W�\n\202]�\320\311!!P\nA\211\204H�*+\207" [regexp tildify-ignored-environments-alist expression alist match save-match-data-internal re-search-forward nil t match-string 0 tildify-mode-alist match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "" regexp-quote x aux result] 5 (#$ . 6807)])
#@304 Add tilde characters in the region between BEG and END.
This function does not do any further checking except of for comments and
macros.

If ASK is nil, perform replace without asking user for confirmation.

Returns one of symbols: t (all right), nil (quit), force (replace without
further questions).
(defalias 'tildify-tildify #[(beg end ask) "\212b\210\306	!\211@\n\211A@)\306!\307!\310\211\310\211\310 \204\301�\311\312!\313#\203\301�!\203\260�
\224b\210\313\203\\�\310\314\315!\210\316 \202I�\317=\204q�\320=\204q�\321=\203w�\313\202\253�\322=\203\204�\310\202\253�\323=\203\224�\313\310!\202\253�\324=\203\244�\310\313\202\253�\314\325!\210\313\203-�\326\313\211\310
%\210\"T\"\202-�\203\312�\310\202\324�!\204\323�\327\202\324�\313.\207" [beg tildify-pattern-alist alist regexp x match-number tildify-mode-alist copy-marker nil re-search-forward marker-position t message "Replace? (yn!q) " read-event 121 32 space 110 33 113 "Press y, n, !, or q." replace-match force tildify-string-alist tilde end end-marker answer bad-answer replace quit message-log-max ask tildify-count] 7 (#$ . 7481)])
(provide 'tildify)

${this.title}

Code Editor : tildify.elc