;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:39 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/textmodes/refill.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`refill.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@104 Portion of the most recently filled paragraph not needing filling. This is used to optimize refilling. (defvar refill-ignorable-overlay nil (#$ . 625)) (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\n\306\211#\202#\305\n\304\n!`#)\207" [afterp beg overlay -1 overlay-start move-overlay 1] 4 (#$ . 838)]) #@77 Like `fill-paragraph' at POS, but don't delete whitespace at paragraph end. (defalias 'refill-fill-paragraph-at #[(pos &optional arg) "\306\212 b\210\307 \210\310\311!\210`\312 \210`\313\n!\314\n! b\210 \fY\203s W\203s\203E\203=\315\230\203E\316 \"\202G\306\214\203]\317 #\210\202e\320 #\210)\321\n\f`#\210*\202\222\214\203\203\317 #\202\212\320 #)\321\n `#\210-\211\205\266`\322 ZGW\205\266\212\323 \210\324\325!!)\205\266\326\225b*\207" [fill-pfx pos refill-ignorable-overlay oend obeg beg nil forward-paragraph skip-syntax-backward "-" backward-paragraph overlay-start overlay-end "" fill-context-prefix fill-region fill-region-as-paragraph move-overlay line-beginning-position beginning-of-line looking-at regexp-quote 0 end adaptive-fill-mode fill-prefix use-hard-newlines arg prefix] 6 (#$ . 1145)]) #@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 (#$ . 2023)]) #@436 Non-nil means that `refill-post-command-function' does 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 (#$ . 2201)) (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 (#$ . 2721)]) #@56 Post-command function to do refilling (conditionally). (defalias 'refill-post-command-function #[nil "\205l \303=\203\n`SfH\205l\304!\210\305\211\207 \306=\204i \307=\204i \310=\204i \311=\204> \312=\204> \313=\203e\212\314 \210\315\305x\210\214e`}\210\304!\210*~\210\212\315\305w\210\214\316 d}\210\304!\210*\202i\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 beginning-of-line "\n" line-beginning-position] 2 (#$ . 2924)]) #@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 (#$ . 3518)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list refill-late-fill-paragraph-function boundp nil] 2) #@91 Non-nil if Refill mode is enabled. Use the command `refill-mode' to change this variable. (defvar refill-mode nil (#$ . 3881)) (make-variable-buffer-local 'refill-mode) #@265 Toggle Refill minor mode. With prefix arg, turn Refill mode on iff arg is positive. When Refill mode is on, the current paragraph will be formatted when changes are made within it. Self-inserting characters only cause refilling if they would cause auto-filling. (defalias 'refill-mode #[(&optional arg) "\203\f\305!\306V\202 ?\307\302!\210 \203S\310\311\312\313\314$\210\310\315\316\313\314$\210\310\317\320\313\314$\210\307\304!\nL\210\307\302!\321L\210\322\323\211\313\211\314%\324 \325\326#\210\324 \327\330#\210\331\306!\210\202e\332\311\312\314#\210\332\315\316\314#\210\333 !\210\f\334\335 \203o\336\202p\337\"\210t\203\203\340\341 \203\200\342\202\201\343\"\210\344 \210 \207" [arg refill-mode fill-paragraph-function refill-ignorable-overlay refill-late-fill-paragraph-function prefix-numeric-value 0 make-local-variable add-hook after-change-functions refill-after-change-function nil t post-command-hook refill-post-command-function pre-command-hook refill-pre-command-function refill-fill-paragraph make-overlay 1 overlay-put modification-hooks (refill-adjust-ignorable-overlay) insert-behind-hooks (refill-adjust-ignorable-overlay) auto-fill-mode remove-hook delete-overlay run-hooks refill-mode-hook refill-mode-on-hook refill-mode-off-hook message "Refill mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 4057) nil]) #@48 Hook run at the end of function `refill-mode'. (custom-declare-variable 'refill-mode-hook 'nil '(#$ . 5419) :group 'refill :type 'hook) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306!\207" [add-minor-mode refill-mode #(" Refill" 0 7 (local-map (keymap (header-line keymap (down-mouse-3 . mode-line-mode-menu-1)) (mode-line keymap (down-mouse-3 . mode-line-mode-menu-1))) help-echo "mouse-3: minor mode menu")) boundp refill-mode-map provide refill] 5)