;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\310\305&\207" [require erc comint ring custom-declare-group erc-ring nil "An input ring for ERC." :group custom-declare-variable erc-ring-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Ring mode is enabled.\nSee the `erc-ring-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-ring-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@290 Toggle ERC ring mode.
With a prefix argument ARG, enable ring if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Stores input in a ring so that previous commands and messages can
be recalled using M-p and M-n.

(fn &optional ARG)
(defalias 'erc-ring-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-ring-mode current-message set-default toggle default-value 1 nil t boundp delq erc-ring-enable erc-ring-disable run-hooks erc-ring-mode-hook erc-ring-mode-on-hook erc-ring-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Ring mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 754) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-ring-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-ring-mode-map erc-ring-mode-hook variable-documentation put "Hook run after entering or leaving `erc-ring-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 add-minor-mode erc-ring-mode boundp] 6)
#@23 Enable ERC ring mode.
(defalias 'erc-ring-enable #[0 "\302\303\304\"\210\305\306\307\310\"\210\311	\312\313#\210\311	\314\315#\207" [erc-ring-mode erc-mode-map add-to-list erc-modules ring t add-hook erc-pre-send-functions erc-add-to-input-ring define-key "\360" erc-previous-command "\356" erc-next-command] 4 (#$ . 2350) nil])
#@24 Disable ERC ring mode.
(defalias 'erc-ring-disable #[0 "\303\304\"\305\306\307\310\"\210\311\n\312\313#\210\311\n\314\313#\207" [erc-modules erc-ring-mode erc-mode-map delq ring nil remove-hook erc-pre-send-functions erc-add-to-input-ring define-key "\360" undefined "\356"] 4 (#$ . 2686) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-ring-mode definition-name ring erc-ring-enable erc-ring-disable] 4)
#@21 Input ring for erc.
(defvar erc-input-ring nil (#$ . 3144))
(make-variable-buffer-local 'erc-input-ring)
#@252 Position in the input ring for erc.
If nil, the input line is blank and the user is conceptually after
the most recently added item in the ring.  If an integer, the input
line is non-blank and displays the item from the ring indexed by this
variable.
(defvar erc-input-ring-index nil (#$ . 3256))
(make-variable-buffer-local 'erc-input-ring-index)
#@113 Do the setup required so that we can use comint style input rings.
Call this function when setting up the mode.
(defalias 'erc-input-ring-setup #[0 "\303!\204\n\304	!\305\211\207" [erc-input-ring comint-input-ring-size erc-input-ring-index ring-p make-ring nil] 2 (#$ . 3611)])
#@144 Add STATE-OR-STRING to input ring and reset history position.
STATE-OR-STRING should be a string or an erc-input object.

(fn STATE-OR-STRING)
(defalias 'erc-add-to-input-ring #[257 "\204\303 \210\304\305!	>\203&\305!	>\204 \306\307\310D\"\210\311H\202'\"\210\312\211\207" [erc-input-ring cl-struct-erc-input-tags erc-input-ring-index erc-input-ring-setup ring-insert type-of signal wrong-type-argument erc-input 1 nil] 7 (#$ . 3900)])
#@162 Remove all entries from the input ring, then call `garbage-collect'.
You might use this for security purposes if you have typed a command
containing a password.
(defalias 'erc-clear-input-ring #[0 "\303!\304\305 \210\306\307!\207" [comint-input-ring-size erc-input-ring erc-input-ring-index make-ring nil garbage-collect message "ERC input ring cleared."] 2 (#$ . 4356) nil])
#@65 Replace current command with the previous one from the history.
(defalias 'erc-previous-command #[0 "\204\303 \210\304!\305V\205J	\203$\304!	TU\203$\306\307!\210\310\211\207	\2045d\nV\2035\311\312 !\210\305	\203B\313	\304!\"\202C\305\306\314	\"!\207" [erc-input-ring erc-input-ring-index erc-input-marker erc-input-ring-setup ring-length 0 erc-replace-current-command "" nil erc-add-to-input-ring erc-user-input ring-plus1 ring-ref] 4 (#$ . 4741) nil])
#@61 Replace current command with the next one from the history.
(defalias 'erc-next-command #[0 "\204\302 \210\303!\304V\2052	\203!	\304U\203!\305\306!\210\307\211\207\310	\206'\304\303!\"\305\311	\"!\207" [erc-input-ring erc-input-ring-index erc-input-ring-setup ring-length 0 erc-replace-current-command "" nil ring-minus1 ring-ref] 4 (#$ . 5217) nil])
#@48 Replace current command with string S.

(fn S)
(defalias 'erc-replace-current-command #[257 "\302	b\210\303 db|\210\211c)\207" [inhibit-read-only erc-insert-marker t erc-bol] 3 (#$ . 5586)])
(provide 'erc-ring)