Current File : //usr/local/share/emacs/27.2/lisp/textmodes/tildify.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\304\316\306\301\317\320\321\322& \210\310\323\312\313\324DD\325\306\301\317\326&\210\327\323\311\316#\210\310\330\312\313\331DD\332\304\316\306\301\317\333\321\322& \210\310\334\312\313\335DD\336\306\301\317\337&\210\327\334\330\316#\210\310\340\312\313\341DD\342\304\316\306\301\317\313& \210\310\343\312\313\344DD\345\306\301\317\346&\210\327\343\340\316#\207" [custom-declare-group tildify nil "Add hard spaces or other text fragments to text buffers." :version "21.1" :group text custom-declare-variable tildify-pattern funcall function #[0 "\300\207" [#1="\\(?:[,:;(][ ]*[a]\\|\\<[AIKOSUVZikosuvz]\\)\\([ ]+\\|[ ]*\n[ ]*\\)\\(?:\\w\\|[([{\\]\\|<[a-zA-Z]\\)"] 1 #1#] "A pattern specifying where to insert hard spaces.\n\n`tildify-buffer' function will replace first capturing group of the regexp with\na hard space (as defined by `tildify-space-string' variable). (Hint: \\(…\\)\nnon-capturing groups can be used for grouping prior to the part of the regexp\nmatching the white space). The pattern is matched case-sensitive regardless of\nthe value of `case-fold-search' setting." "25.1" :type string :safe t tildify-pattern-alist #[0 "\300\207" [nil] 1] "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." (repeat (cons :tag "Entry for major mode" (choice (const :tag "Default" t) (symbol :tag "Major mode")) (choice (list :tag "Regexp" regexp (integer :tag "Group ")) (symbol :tag "Like other")))) make-obsolete-variable tildify-space-string #[0 "\300\207" [#2=" "] 1 #2#] "Representation of a hard (a.k.a. no-break) space in current major mode.\n\nUsed by `tildify-buffer' in places where space is required but line\ncannot be broken. For example \"~\" for TeX or \" \" for SGML,\nHTML and XML modes. A no-break space Unicode character (\"\\u00A0\")\nmight be used for other modes if compatible encoding is used.\n\nIf nil, current major mode has no way to represent a hard space." (choice (const :tag "Space character (no hard-space representation)" " ") (const :tag "No-break space (U+00A0)" " ") (string :tag "Custom string")) tildify-string-alist #[0 "\300\207" [nil] 1] "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'. For example it can be \"~\" for TeX or \" \" for 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 :tag "Entry for major mode" (choice (const :tag "Default" t) (symbol :tag "Major mode")) (choice (const :tag "No-break space (U+00A0)" " ") (string :tag "String ") (symbol :tag "Like other")))) tildify-foreach-region-function #[0 "\300\207" [tildify--deprecated-ignore-evironments] 1] "A function calling a callback on portions of the buffer to tildify.\n\nThe function is called from `tildify-buffer' function with three arguments: FUNC\nBEG END. FUNC is a callback accepting two arguments -- REG-BEG REG-END --\nspecifying a portion of buffer to operate on.\n\nThe BEG and END arguments may be used to limit portion of the buffer being\nscanned, but the `tildify-foreach-region-function' is not required to make use\nof them. IT must, however, terminate as soon as FUNC returns nil.\n\nFor example, if `tildify-buffer' function should operate on the whole buffer,\na simple pass through function could be used:\n (setq-local tildify-foreach-region-function\n (lambda (cb beg end) (funcall cb beg end)))\nor better still:\n (setq-local tildify-foreach-region-function \\='funcall)\nSee `tildify-foreach-ignore-environments' function for other ways to use the\nvariable." tildify-ignored-environments-alist #[0 "\300\207" [nil] 1] "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\nSee `tildify-foreach-ignore-environments' function for description of BEG-REGEX\nand END-REGEX." (repeat (cons :tag "Entry for major mode" (choice (const :tag "Default" t) (symbol :tag "Major mode")) (choice (const :tag "None") (repeat :tag "Environments" (cons :tag "Regexp pair" (regexp :tag "Open ") (choice :tag "Close" (regexp :tag "Regexp") (list :tag "Regexp and groups (concatenated)" (choice (regexp :tag "Regexp") (integer :tag "Group ")))))) (symbol :tag "Like other"))))] 12)
#@416 Add hard spaces in the region between BEG and END.
See variables `tildify-pattern', `tildify-space-string', and
`tildify-ignored-environments-alist' for information about configuration
parameters.
This function performs no refilling of the changed text.
If DONT-ASK is set, or called interactively with prefix argument, user
won't be prompted for confirmation of each substitution.
(fn BEG END &optional DONT-ASK)
(defalias 'tildify-region #[770 "\301\302C?C\303\304\305\306\307\310\"\311\"\312\313%#\210\314\315\242\")\207" [case-fold-search nil 0 tildify--foreach-region make-byte-code 514 "\302\301\242#\300\211\242@\\\240\210\211A\303=\204 \211A\202 \301\304\240\210\305\207" vconcat vector [tildify-tildify force nil t] 6 "\n\n(fn BEG END)" message "%d spaces replaced."] 14 (#$ . 6418) "*rP"])
#@396 Add hard spaces in the current buffer.
See variables `tildify-pattern', `tildify-space-string', and
`tildify-ignored-environments-alist' for information about configuration
parameters.
This function performs no refilling of the changed text.
If DONT-ASK is set, or called interactively with prefix argument, user
won't be prompted for confirmation of each substitution.
(fn &optional DONT-ASK)
(defalias 'tildify-buffer #[256 "\300ed#\207" [tildify-region] 5 (#$ . 7243) "*P"])
#@97 Return alist item for the MODE-ALIST in the current major MODE.
(fn MODE-ALIST &optional MODE)
(defalias 'tildify--pick-alist-entry #[513 "\301\206 \"\206 \301\302\"A\211\203 \2119\203 \303\"\202! \211\207" [major-mode assoc t tildify--pick-alist-entry] 6 (#$ . 7729)])
(make-obsolete 'tildify--pick-alist-entry "it should not be used in new code." "25.1")
#@354 Call CALLBACK on regions between BEG and END.
Call CALLBACK on each region outside of environment to ignore. Stop scanning
the region as soon as CALLBACK returns nil. Environments to ignore are
defined by deprecated `tildify-ignored-environments-alist'. CALLBACK may be
called on portions of the buffer outside of [BEG END).
(fn CALLBACK BEG END)
(defalias 'tildify--deprecated-ignore-evironments #[771 "\301!\211\203 \302$\202 \"\207" [tildify-ignored-environments-alist tildify--pick-alist-entry tildify-foreach-ignore-environments] 9 (#$ . 8104)])
(make-obsolete 'tildify--deprecated-ignore-evironments "it should not be used in new code." "25.1")
#@1234 Outside of environments defined by PAIRS call CALLBACK.
PAIRS is a list of (BEG-REGEX . END-REGEX) cons. 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).
CALLBACK is a function accepting two arguments -- REG-BEG and REG-END -- that
will be called for portions of the buffer outside of the environments defined by
PAIRS regexps.
The function will return as soon as CALLBACK returns nil or point goes past END.
CALLBACK may be called on portions of the buffer outside of [BEG END); in fact
BEG argument is ignored.
This function is meant to be used to set `tildify-foreach-region-function'
variable. For example, for an XML file one might use:
(setq-local tildify-foreach-region-function
(apply-partially \='tildify-foreach-ignore-environments
\='(("<! *--" . "-- *>") ("<" . ">"))))
(fn PAIRS CALLBACK BEG END)
(defalias 'tildify-foreach-ignore-environments #[1028 "\300\301\302\303#\304Q\305\211\212\214~\210eb\210`\211\262W\205H \306\"\211\262\203< \307\224\"\205H `W\205H \310\305\311#\202B \"\210\305\205H \202 *\207" ["\\(?:" mapconcat car "\\)\\|\\(?:" "\\)" nil tildify--find-env 0 re-search-forward t] 11 (#$ . 8779)])
#@288 Call CALLBACK on portions of the buffer between BEG and END.
Which portions to call CALLBACK on is determined by
`tildify-foreach-region-function' variable. This function merely makes sure
CALLBACK is not called with portions of the buffer outside of [BEG END).
(fn CALLBACK BEG END)
(defalias 'tildify--foreach-region #[771 "\301\302\303\304\305#\306\"\307\310%#\207" [tildify-foreach-region-function make-byte-code 514 "\301]\262\211\302^\262Y\204 \300\"\205 \211\302W\207" vconcat vector [] 5 "\n\n(fn REG-BEG REG-END)"] 11 (#$ . 10351)])
#@147 Find environment using REGEXP.
Return regexp for the end of the environment found in PAIRS or nil if
no environment was found.
(fn REGEXP PAIRS)
(defalias 'tildify--find-env #[514 "\300\301\302#\205O \303 \304\305\306\307\310!\311\"\312$\216\313\305!\314@@\"\305=\204+ A\262\202 @A\211;\2037 \211\202H \315\304\316\317\307\310!\320\"\321\322%\323#\262\262)\262\207" [re-search-forward nil t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 match-string string-match mapconcat 257 "\211;\203 \207\301\302\300\"!\207" [regexp-quote match-string] 5 "\n\n(fn EXPR)" ""] 12 (#$ . 10922)])
#@412 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 (count . response) cons where count is number of string
replacements done and response is one of symbols: t (all right), nil
(quit), force (replace without further questions).
(fn BEG END ASK)
(defalias 'tildify-tildify #[771 "\212b\210\305\306 !\206
\n\307!\310\211\211\211\211\311\306\f!\211\203( \211@\262 \211A@\262\n\210\204\252 \312\n\313 !\314#\203\252 \n\203\231 \224b\210\314\262\203X \310\262\315\316!\210\317 \262\202F \320=\204j \321=\204j \322=\203p \314\262\202\225 \323\267\202\216 \310\262\202\225 \314\262\310\262 \202\225 \310\262\314\262\202\225 \315\324!\210\314\262\203) \325\314\211\310
%\210\211T\262\202) \211\203\263 \310\202\275 \204\274 \326\202\275 \314)B\266\212)\207" [tildify-pattern tildify-string-alist tildify-space-string message-log-max tildify-pattern-alist 1 tildify--pick-alist-entry copy-marker nil 0 re-search-forward marker-position t message "Replace? (yn!q) " read-event 121 32 space #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 118 33 124 113 133)) "Press y, n, !, or q." replace-match force] 19 (#$ . 11574)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\317& \210\300\320\302\303\321DD\322\306\307\310\311\312\323& \207" [custom-declare-variable tildify-space-pattern funcall function #[0 "\300\207" [#1="[,:;(][ ]*[a]\\|\\<[AIKOSUVWZikosuvwz]"] 1 #1#] "Pattern specifying whether to insert a hard space at point.\n\nIf the pattern matches `looking-back', a hard space needs to be inserted instead\nof a space at point. The regexp is always case sensitive, regardless of the\ncurrent `case-fold-search' setting." :version "25.1" :group tildify :type string tildify-space-predicates #[0 "\300\207" [(tildify-space-region-predicate)] 1] "A list of predicate functions for `tildify-space' function." (repeat function) tildify-double-space-undos #[0 "\300\207" [t] 1] "Weather `tildify-space' should undo hard space when space is typed again." boolean] 10)
#@804 Convert space before point into a hard space if the context is right.
If
* character before point is a space character,
* character before that has "w" character syntax (i.e. it's a word
constituent),
* `tildify-space-pattern' matches when `looking-back' (no more than 10
characters) from before the space character, and
* all predicates in `tildify-space-predicates' return non-nil,
replace the space character with value of `tildify-space-string' and
return t.
Otherwise, if
* `tildify-double-space-undos' variable is non-nil,
* character before point is a space character, and
* text before that is a hard space as defined by
`tildify-space-string' variable,
remove the hard space and leave only the space character.
This function is meant to be used as a `post-self-insert-hook'.
(defalias 'tildify-space #[0 "`\211SeZG\211T\304\305V\205h h\306=\205h \206 `Sfz\307=\203G \212b\210\310\ne\311Z]\")\203G \312\313!\203G \314\315!\210c\210\316\202h \205h V\205h Z{\230\205h b\210\314[!\210`Tb\210\304)\207" [tildify-space-string case-fold-search tildify-space-pattern tildify-double-space-undos nil 2 32 119 looking-back 10 run-hook-with-args-until-failure tildify-space-predicates delete-char -1 t] 10 (#$ . 13850) nil])
#@215 Check whether character before point should be tildified.
Based on `tildify-foreach-region-function', check whether character before,
which is assumed to be a space character, should be replaced with a hard space.
(defalias 'tildify-space-region-predicate #[0 "\3002 \301\302`S`#0\207" [found tildify--foreach-region #[514 "\300\301\302\"\207" [throw found t] 5 "\n\n(fn B E)"]] 4 (#$ . 15117)])
#@93 Non-nil if Tildify mode is enabled.
Use the command `tildify-mode' to change this variable.
(defvar tildify-mode nil (#$ . 15520))
(make-variable-buffer-local 'tildify-mode)
#@809 Adds electric behavior to space character.
If called interactively, enable Tildify mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When space is inserted into a buffer in a position where hard space is required
instead (determined by `tildify-space-pattern' and `tildify-space-predicates'),
that space character is replaced by a hard space specified by
`tildify-space-string'. Converting of the space is done by `tildify-space'.
When `tildify-mode' is enabled, if `tildify-string-alist' specifies a hard space
representation for current major mode, the `tildify-space-string' buffer-local
variable will be set to the representation.
(fn &optional ARG)
(defalias 'tildify-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\2034 \307 !\211\206 \n\310\230\204- \211\2033 \211\2023 \311\312!\210\313\210\203B \314\315\316\313\317$\210\202H \320\315\316\317#\210\321\322\203R \323\202S \324\"\210\325\326!\203w \303 \203g \211\303 \232\203w \327\311\330\203r \331\202s \332#\266\210\333 \210\207" [tildify-mode tildify-string-alist tildify-space-string current-message toggle prefix-numeric-value 0 tildify--pick-alist-entry " " message "Hard space is a single space character, tildify-mode won't have any effect, disabling." nil add-hook post-self-insert-hook tildify-space t remove-hook run-hooks tildify-mode-hook tildify-mode-on-hook tildify-mode-off-hook called-interactively-p any " in current buffer" "Tildify mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 15701) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar tildify-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\207" [tildify-mode-map tildify-mode-hook variable-documentation put "Hook run after entering or leaving `tildify-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode tildify-mode " ~" boundp nil provide tildify] 6)
Mini Shell