ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/textmodes/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/textmodes/refill.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@104 Portion of the most recently filled paragraph not needing filling.
This is used to optimize refilling.
(defvar refill-ignorable-overlay nil (#$ . 411))
(make-variable-buffer-local 'refill-ignorable-overlay)
#@64 Adjust OVERLAY to not include the about-to-be-modified region.
(defalias 'refill-adjust-ignorable-overlay #[(overlay afterp beg end &optional len) "?\205$ \212 b\210\303y\210`\304\n!X\203 \305\nee#\202# \305\n\304\n!`#)\207" [afterp beg overlay -1 overlay-start move-overlay] 4 (#$ . 624)])
#@77 Like `fill-paragraph' at POS, but don't delete whitespace at paragraph end.
(defalias 'refill-fill-paragraph-at #[(pos &optional arg) "\212b\210\306 \210\307\310!\210`\311 \210`\312 !\313 ! \fV?\205\215 b\210\f Y\203p \f\nW\203p \203H \203A \314\230\203H \315\f
\"\202J \316 \214\203_ \317\n
#\210\202f \320\n
#\210)\321 `#*\202\215 \214\203\200 \317\f
#\210\202\207 \320\f
#\210)\321 \f`#-\207" [pos refill-ignorable-overlay oend obeg beg end forward-paragraph skip-syntax-backward "-" backward-paragraph overlay-start overlay-end "" fill-context-prefix nil fill-region fill-region-as-paragraph move-overlay adaptive-fill-mode fill-prefix use-hard-newlines arg] 5 (#$ . 923)])
#@69 Like `fill-paragraph' but don't delete whitespace at paragraph end.
(defalias 'refill-fill-paragraph #[(arg) "\301`\"\207" [arg refill-fill-paragraph-at] 3 (#$ . 1637)])
#@432 Non-nil tells `refill-post-command-function' to do its processing.
Set by `refill-after-change-function' in `after-change-functions' and
unset by `refill-post-command-function' in `post-command-hook', and
sometimes `refill-pre-command-function' in `pre-command-hook'. This
ensures refilling is only done once per command that causes a change,
regardless of the number of after-change calls from commands doing
complex processing.
(defvar refill-doit nil (#$ . 1815))
(make-variable-buffer-local 'refill-doit)
#@70 Function for `after-change-functions' which just sets `refill-doit'.
(defalias 'refill-after-change-function #[(beg end len) "?\205 \211\207" [undo-in-progress end refill-doit] 2 (#$ . 2331)])
#@56 Post-command function to do refilling (conditionally).
(defalias 'refill-post-command-function #[nil "\205U \303=\203 \n`SfH\203R \304!\210\305\202R \306>\204R \307>\203N \212\310 \210\311\305x\210\214e`}\210\304!\210*~\210\212\311\305w\210\214\312 d}\210\304!\210*\202R \304!\210\305\211\207" [refill-doit this-command auto-fill-chars self-insert-command refill-fill-paragraph-at nil (fill-region fill-paragraph quoted-insert) (reindent-then-newline-and-indent indent-new-comment-line open-line newline-and-indent newline) beginning-of-line "\n" line-beginning-position] 2 (#$ . 2534)])
#@55 Pre-command function to do refilling (conditionally).
(defalias 'refill-pre-command-function #[nil "\205 \302=?\205 \303!\210\304\211\207" [refill-doit this-command self-insert-command refill-fill-paragraph-at nil] 2 (#$ . 3139)])
(defvar refill-saved-state nil)
#@91 Non-nil if Refill mode is enabled.
Use the command `refill-mode' to change this variable.
(defvar refill-mode nil (#$ . 3414))
(make-variable-buffer-local 'refill-mode)
#@451 Toggle automatic refilling (Refill mode).
With a prefix argument ARG, enable Refill mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Refill mode is a buffer-local minor mode. When enabled, the
current paragraph is refilled as you edit. Self-inserting
characters only cause refilling if they would cause
auto-filling.
For true "word wrap" behavior, use `visual-line-mode' instead.
(defalias 'refill-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V \203 \312 !\210\313\303!\210\314\304!\203I \f\315 \211 3\203D 3@\316
@!
AL\2103A\2113\204/ *\313\304!\210\n\203\224 \317\320\321\315\322$\210\317\323\324\315\322$\210\317\325\326\315\322$\210\316\304!\210\327\330\331\"\316\332!\210\333\316\334!\210\335 \336\337\211\315\211\322%\340 \341\342#\210\340 \343\344#\210\345\311!\210\202\244 \346\320\321\322#\210\346\323\324\322#\210\313\334!\210\347\350\n\203\256 \351\202\257 \352\"\210\353\354!\203\326 \306 \203\303 \306 \232\203\326 \355 4\356\357\n\203\320 \360\202\321 \3614#\210))\362 \210\n\207" [#1=#:last-message arg refill-mode refill-ignorable-overlay refill-saved-state x current-message toggle prefix-numeric-value 0 delete-overlay kill-local-variable local-variable-p nil make-local-variable add-hook after-change-functions refill-after-change-function t post-command-hook refill-post-command-function pre-command-hook refill-pre-command-function mapcar #[(s) "\211JB\207" [s] 2] (fill-paragraph-function auto-fill-function) fill-paragraph-function refill-fill-paragraph backward-delete-char-untabify-method hungry make-overlay 1 overlay-put modification-hooks (refill-adjust-ignorable-overlay) insert-behind-hooks (refill-adjust-ignorable-overlay) auto-fill-mode remove-hook run-hooks refill-mode-hook refill-mode-on-hook refill-mode-off-hook called-interactively-p any " in current buffer" message "Refill mode %sabled%s" "en" "dis" force-mode-line-update --dolist-tail-- local] 7 (#$ . 3590) (list (or current-prefix-arg 'toggle))])
#@176 Hook run after entering or leaving `refill-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar refill-mode-hook nil (#$ . 5639))
#@27 Keymap for `refill-mode'.
(defvar refill-mode-map (byte-code "\301\302!\203\f \202 <\203 \303!\202 \304\305\")\207" [m (("" . backward-delete-char-untabify)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 5862))
(byte-code "\301\302\303\304\211%\210\305\306!\207" [refill-mode-map add-minor-mode refill-mode " Refill" nil provide refill] 6)
Kontol Shell Bypass