;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:52 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/tildify.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.

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


(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\321&\210\310\322\323\324\306\301\314\325&\207" [custom-declare-group tildify nil "Add hard spaces or other text fragments to text buffers." :version "21.1" :group wp custom-declare-variable tildify-pattern-alist '((t "\\([,:;(][ 	]*[a]\\|\\<[AIKOSUVZikosuvz]\\)\\([ 	]+\\|[ 	]*\n[ 	]*\\)\\(\\w\\|[([{\\]\\|<[a-zA-Z]\\)" 2)) "Alist specifying where to insert hard spaces.\n\nEach alist item is of the form (MAJOR-MODE REGEXP NUMBER) or\n(MAJOR-MODE . SYMBOL).\n\nMAJOR-MODE defines major mode, for which the item applies.  It can be either:\n- a symbol equal to the major mode of the buffer to be fixed\n- t for default item, this applies to all major modes not defined in another\n  alist item\n\nREGEXP is a regular expression matching the part of a text, where a hard space\nis missing.  The regexp is always case sensitive, regardless of the current\n`case-fold-search' setting.\n\nNUMBER defines the number of the REGEXP subexpression which should be replaced\nby the hard space character.\n\nThe form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE.  For this\nmode, the item for the mode SYMBOL is looked up in the alist instead." :type (repeat (choice (list symbol regexp integer) (cons symbol symbol))) 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 . " ")) "Alist specifying what is a hard space in the current major mode.\n\nEach alist item is of the form (MAJOR-MODE . STRING) or\n(MAJOR-MODE . SYMBOL).\n\nMAJOR-MODE defines major mode, for which the item applies.  It can be either:\n- a symbol equal to the major mode of the buffer to be fixed\n- t for default item, this applies to all major modes not defined in another\n  alist item\n\nSTRING defines the hard space, which is inserted at places defined by\n`tildify-pattern-alist'.  For example it can be \"~\" for TeX or \"&nbsp;\"\nfor SGML.\n\nThe form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE.  For this\nmode, the item for the mode SYMBOL is looked up in the alist instead." (repeat (cons symbol (choice string symbol))) 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)) "Alist specifying ignored structured text environments.\nParts of text defined in this alist are skipped without performing hard space\ninsertion on them.  These setting allow skipping text parts like verbatim or\nmath environments in TeX or preformatted text in SGML.\n\nEach list element is of the form\n  (MAJOR-MODE (BEG-REGEX . END-REGEX) (BEG-REGEX . END-REGEX) ... )\n\nMAJOR-MODE defines major mode, for which the item applies.  It can be either:\n- a symbol equal to the major mode of the buffer to be fixed\n- t for default item, this applies to all major modes not defined in another\n  alist item\n\nBEG-REGEX is a regexp matching beginning of a text part to be skipped.\nEND-REGEX defines end of the corresponding text part and can be either:\n- a regexp matching the end of the skipped text part\n- a list of regexps and numbers, which will compose the ending regexp by\n  concatenating themselves, while replacing the numbers with corresponding\n  subexpressions of BEG-REGEX (this is used to solve cases like\n  \\\\verb<character> in TeX)." (repeat (cons symbol (choice symbol (repeat sexp))))] 8)
#@27 Counter for replacements.
(defvar tildify-count nil (#$ . 4783))
#@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\207Y\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 (#$ . 4855) "*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 (#$ . 5904) "*"])
#@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 (#$ . 6242)])
#@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 (#$ . 6505)])
#@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 (#$ . 6794)])
#@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 (#$ . 7468)])
(provide 'tildify)