Current File : //kunden/usr/share/emacs/27.2/lisp/erc/erc-ring.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\300\303!\210\304\305\306\307\310\301%\210\311\312\306\313\314\315\316\317\310\305\320\321&\207" [require erc comint ring custom-declare-group erc-ring nil "An input ring for ERC." :group custom-declare-variable erc-ring-mode "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)
#@270 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.
(defalias 'erc-ring-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-ring-mode local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 1024) (list (or current-prefix-arg 'toggle))])
(defvar erc-ring-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\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.)" add-minor-mode erc-ring-mode nil boundp] 6)
#@23 Enable ERC ring mode.
(defalias 'erc-ring-enable #[nil "\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 (#$ . 2418) nil])
#@24 Disable ERC ring mode.
(defalias 'erc-ring-disable #[nil "\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 (#$ . 2756) 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 (#$ . 3216))
(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 (#$ . 3328))
(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 #[nil "\303!\204\n\304	!\305\211\207" [erc-input-ring comint-input-ring-size erc-input-ring-index ring-p make-ring nil] 2 (#$ . 3683)])
#@60 Add string S to the input ring and reset history position.
(defalias 'erc-add-to-input-ring #[(state) "\204\304 \210\305\306	!\n>\204\307\310\311	D\"\210	\312H\"\210\313\211\207" [erc-input-ring state 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] 6 (#$ . 3973)])
#@160 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 #[nil "\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 (#$ . 4335) nil])
#@65 Replace current command with the previous one from the history.
(defalias 'erc-previous-command #[nil "\204\303 \210\304!\305V\205K	\203$\304!	TU\203$\306\307!\210\310\211\207	\2046d\nV\2036\311\nd{!\210\305	\203C\312	\304!\"\202D\305\306\313	\"!\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 ring-plus1 ring-ref] 4 (#$ . 4720) nil])
#@61 Replace current command with the next one from the history.
(defalias 'erc-next-command #[nil "\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 (#$ . 5182) nil])
#@40 Replace current command with string S.
(defalias 'erc-replace-current-command #[(s) "\303	b\210\304 db|\210\nc)\207" [inhibit-read-only erc-insert-marker s t erc-bol] 2 (#$ . 5553)])
(provide 'erc-ring)