HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/textmodes/
Current File : //usr/share/emacs/26.1/lisp/textmodes/refill.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 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\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 (#$ . 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 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 (#$ . 3137)])
(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 (#$ . 3412))
(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\2113\203D3@\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\3554\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 (#$ . 3588) (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) (#$ . 5953))
(byte-code "\301\302\303\304\211%\210\305\306!\207" [refill-mode-map add-minor-mode refill-mode " Refill" nil provide refill] 6)