Current File : //usr/local/share/emacs/27.2/lisp/textmodes/refill.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 409))
(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 (#$ . 622)])
#@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 (#$ . 921)])
#@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 (#$ . 1635)])
#@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 (#$ . 1813))
(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 (#$ . 2329)])
#@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 default-indent-new-line indent-new-comment-line open-line newline-and-indent newline) beginning-of-line "\n" line-beginning-position] 2 (#$ . 2532)])
#@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 (#$ . 3161)])
(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 (#$ . 3436))
(make-variable-buffer-local 'refill-mode)
#@533 Toggle automatic refilling (Refill mode).
If called interactively, enable Refill 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.
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 (#$ . 3612) (list (or current-prefix-arg 'toggle))])
(defvar refill-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\300\207" [refill-mode-hook variable-documentation put "Hook run after entering or leaving `refill-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4)
#@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) (#$ . 6059))
(byte-code "\301\302\303\304\211%\210\305\306!\207" [refill-mode-map add-minor-mode refill-mode " Refill" nil provide refill] 6)
Mini Shell