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

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


(custom-declare-group 'refill nil "Refilling paragraphs on changes." :group 'fill)
#@104 Portion of the most recently filled paragraph not needing filling.
This is used to optimize refilling.
(defvar refill-ignorable-overlay nil (#$ . 643))
(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 (#$ . 856)])
#@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\215b\210\fY\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 (#$ . 1155)])
#@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 (#$ . 1870)])
#@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 (#$ . 2048))
(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 (#$ . 2564)])
#@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 (quoted-insert fill-paragraph fill-region) (newline newline-and-indent open-line indent-new-comment-line reindent-then-newline-and-indent) beginning-of-line "\n" line-beginning-position] 2 (#$ . 2767)])
#@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 (#$ . 3372)])
(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 (#$ . 3647))
(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\2112\203D2@\316
@!
AL\2102A\2112\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\320\306 \203\303\306 \232\203\320\355\356\n\203\315\357\202\316\360\"\210)\361 \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 message "Refill mode %sabled" "en" "dis" force-mode-line-update --dolist-tail--] 7 (#$ . 3823) (list (or current-prefix-arg 'toggle))])
#@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) (#$ . 5834))
(byte-code "\301\302\303\304\211%\210\305\306!\207" [refill-mode-map add-minor-mode refill-mode " Refill" nil provide refill] 6)