Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-fill.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\313\314\315\316\307\304\317\320& \207" [require erc erc-stamp custom-declare-group erc-fill nil "Filling means to reformat long lines in different ways." :group custom-declare-variable erc-fill-mode "Non-nil if Erc-Fill mode is enabled.\nSee the `erc-fill-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-fill-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@280 Toggle ERC fill mode.
With a prefix argument ARG, enable ERC fill mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
ERC fill mode is a global minor mode. When enabled, messages in
the channel buffers are filled.
(defalias 'erc-fill-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-fill-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-fill-enable erc-fill-disable run-hooks erc-fill-mode-hook erc-fill-mode-on-hook erc-fill-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Fill mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1042) (list (or current-prefix-arg 'toggle))])
(defvar erc-fill-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-fill-mode-map erc-fill-mode-hook variable-documentation put "Hook run after entering or leaving `erc-fill-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-fill-mode nil boundp] 6)
#@34 Setup hooks for `erc-fill-mode'.
(defalias 'erc-fill-enable #[nil "\300\301\302\"\210\300\303\302\"\207" [add-hook erc-insert-modify-hook erc-fill erc-send-modify-hook] 3 (#$ . 2446) nil])
#@41 Cleanup hooks, disable `erc-fill-mode'.
(defalias 'erc-fill-disable #[nil "\300\301\302\"\210\300\303\302\"\207" [remove-hook erc-insert-modify-hook erc-fill erc-send-modify-hook] 3 (#$ . 2641) nil])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\300\320\321\322\304\305\306\317&\210\300\323\324\325\304\305\306\317&\207" [custom-declare-variable erc-fill-prefix nil "Values used as `fill-prefix' for `erc-fill-variable'.\nnil means fill with space, a string means fill with this string." :group erc-fill :type (choice (const nil) string) erc-fill-function 'erc-fill-variable "Function to use for filling messages.\n\nVariable Filling with an `erc-fill-prefix' of nil:\n\n<shortnick> this is a very very very long message with no\n meaning at all\n\nVariable Filling with an `erc-fill-prefix' of four spaces:\n\n<shortnick> this is a very very very long message with no\n meaning at all\n\nStatic Filling with `erc-fill-static-center' of 27:\n\n <shortnick> foo bar baz\n <a-very-long-nick> foo bar baz quuuuux\n <shortnick> this is a very very very long message with no\n meaning at all\n\nThese two styles are implemented using `erc-fill-variable' and\n`erc-fill-static'. You can, of course, define your own filling\nfunction. Narrowing to the region in question is in effect while your\nfunction is called." (choice (const :tag "Variable Filling" erc-fill-variable) (const :tag "Static Filling" erc-fill-static) function) erc-fill-static-center 27 "Column around which all statically filled messages will be\ncentered. This column denotes the point where the ` ' character\nbetween <nickname> and the entered text will be put, thus aligning\nnick names right and text left." integer erc-fill-variable-maximum-indentation 17 "If we indent a line after a long nick, don't indent more then this\ncharacters. Set to nil to disable." erc-fill-column 78 "The column at which a filled paragraph is broken."] 8)
#@145 Fill a region using the function referenced in `erc-fill-function'.
You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'.
(defalias 'erc-fill #[nil "\302ed{!?\2050 \2050 eb\210\303 \304\216\305\306!\203\" \307y\310U\204 *m?\2050 \214`d}\210 )\207" [erc-fill-function save-match-data-internal erc-string-invisible-p match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "[ \n]*$" 1 0] 3 (#$ . 4657)])
#@75 Fills a text such that messages start at column `erc-fill-static-center'.
(defalias 'erc-fill-static #[nil "\306 \307\216eb\210\310\311!\210\312\313!\n\314 Z\315 \316\" \315\317\320 G\313#]\316\"c\210\321 \210*\322 +\207" [save-match-data-internal nick erc-fill-column erc-fill-static-center fill-prefix fill-column match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "^\\(\\S-+\\)" match-string 1 erc-timestamp-offset make-string 32 0 - erc-fill-regarding-timestamp erc-restore-text-properties] 6 (#$ . 5137)])
#@39 Fill from `point-min' to `point-max'.
(defalias 'erc-fill-variable #[nil " \206 \neb\210 \203+ \306\307 \310\"\211 c\210\311ed\312\211$\210eb\210\313\fG!\210)\202^ \314 \315\216\316\317!\211 \203? \320\321!\202@ \322 \307 Z\306GT\nS^\206U \n^\310\"\323 \210.\324 *\207" [erc-fill-prefix erc-fill-column fill-column fill-prefix first-line-offset save-match-data-internal make-string erc-timestamp-offset 32 fill-region t delete-char match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "^\\(\\S-+\\)" match-string 1 "" erc-fill-regarding-timestamp erc-restore-text-properties nickp nick erc-fill-variable-maximum-indentation] 6 (#$ . 5708)])
#@75 Fills a text such that messages start at column `erc-fill-static-center'.
(defalias 'erc-fill-regarding-timestamp #[nil "\300ed\301\211$\210eb\210\302y\210\303`d\304 #\207" [fill-region t nil indent-rigidly erc-timestamp-offset] 5 (#$ . 6418)])
#@43 Get length of timestamp if inserted left.
(defalias 'erc-timestamp-offset #[nil "\303\300!\203 \203 \304=\203 \n\204 \305!G\207\306\207" [erc-timestamp-format erc-insert-timestamp-function erc-hide-timestamps boundp erc-insert-timestamp-left format-time-string 0] 2 (#$ . 6669)])
(provide 'erc-fill)
Mini Shell