;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:21 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/refill.el ;;; in Emacs version 22.0.99 ;;; 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")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 653)) (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 (#$ . 866)]) #@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\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 (#$ . 1165)]) #@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 (#$ . 1880)]) #@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 (#$ . 2058)) (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 (#$ . 2574)]) #@56 Post-command function to do refilling (conditionally). (defalias 'refill-post-command-function #[nil "\205W \303=\203\n`SfH\203T\304!\210\305\202T\306 \307\"\204T\306 \310\"\203P\212\311 \210\312\305x\210\214e`}\210\304!\210*~\210\212\312\305w\210\214\313 d}\210\304!\210*\202T\304!\210\305\211\207" [refill-doit this-command auto-fill-chars self-insert-command refill-fill-paragraph-at nil memql (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] 3 (#$ . 2777)]) #@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 (#$ . 3398)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list refill-saved-state default-boundp set-default nil] 3) #@91 Non-nil if Refill mode is enabled. Use the command `refill-mode' to change this variable. (defvar refill-mode nil (#$ . 3776)) (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) "\306=\203 ?\202%\203\307!\310V\202% \204\311\202%\312\313\301\"\210\314\n\2032\315\n!\210\316\302!\210\317\303!\203W \314\211\203R @\320\f@!\fAL\210 A\211\204@*\316\303!\210 \203\242\321\322\323\314\311$\210\321\324\325\314\311$\210\321\326\327\314\311$\210\320\303!\210\330\331\332\"\320\333!\210\334\320\335!\210\336\337\340\211\314\211\311%\341\n\342\343#\210\341\n\344\345#\210\346\310!\210\202\262\347\322\323\311#\210\347\324\325\311#\210\316\335!\210\350\351 \203\274\352\202\275\353\"\210\354 \203\321\312\355 \203\316\356\202\317\357\"\210\360 \210 \207" [arg refill-mode refill-ignorable-overlay refill-saved-state x #1=#:--cl-dolist-temp-- toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 #[(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 "Refill mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 3952) (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\301\")\207" [m (("" . backward-delete-char-untabify)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 5804)) (byte-code "\301\302\303#\210\304\305!\207" [refill-mode-map add-minor-mode refill-mode " Refill" provide refill] 4)