HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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\302%\210\310\311\312\313\314\315\307\304&\210\310\316\305\317\314\320\307\304&\210\310\321\305\322\314\323\307\304&\207" [require gnus-util gnus custom-declare-group gnus-undo nil "Undoing in Gnus buffers." :group custom-declare-variable gnus-undo-limit 2000 "The number of undoable actions recorded." :type integer gnus-undo-mode "Minor mode for undoing in Gnus buffers." boolean gnus-undo-mode-hook "Hook called in all `gnus-undo-mode' buffers." hook] 8)
(defvar gnus-undo-actions nil)
(defvar gnus-undo-boundary t)
(defvar gnus-undo-last nil)
(defvar gnus-undo-boundary-inhibit nil)
(defvar gnus-undo-mode-map (byte-code "\301 \302\300\303\"\210)\207" [map make-sparse-keymap gnus-define-keys-1 ("\237" gnus-undo "" gnus-undo "u" gnus-undo [(control /)] gnus-undo)] 3))
(defalias 'gnus-undo-make-menu-bar #[nil "\300\207" [nil] 1])
#@97 Non-nil if Gnus-Undo mode is enabled.
Use the command `gnus-undo-mode' to change this variable.
(defvar gnus-undo-mode nil (#$ . 1309))
(make-variable-buffer-local 'gnus-undo-mode)
#@73 Minor mode for providing `undo' in Gnus buffers.

\{gnus-undo-mode-map}
(defalias 'gnus-undo-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312\303!\210\313\312\304!\210\314\n\2035\315\316\317\"\203.\320 \210\321\322\304\313\314$\210\323\324\n\203?\325\202@\326\"\210\327\330!\203e\306 \203T\306 \232\203e\331\332\333\n\203`\334\202a\335
#\210))\336 \210\n\207" [#1=#:last-message arg gnus-undo-mode gnus-undo-actions gnus-undo-boundary local current-message toggle prefix-numeric-value 0 make-local-variable nil t gnus-visual-p undo-menu menu gnus-undo-make-menu-bar add-hook post-command-hook run-hooks gnus-undo-mode-hook gnus-undo-mode-on-hook gnus-undo-mode-off-hook called-interactively-p any " in current buffer" message "Gnus-Undo mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 1496) (list (or current-prefix-arg 'toggle))])
(defvar gnus-undo-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\307\211%\207" [gnus-undo-mode-map gnus-undo-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-undo-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 gnus-undo-mode nil] 6)
#@40 Disable undoing in the current buffer.
(defalias 'gnus-disable-undo #[(&optional buffer) "\212\203q\210\301\302!)\207" [buffer gnus-undo-mode -1] 2 (#$ . 2774) nil])
#@25 Set Gnus undo boundary.
(defalias 'gnus-undo-boundary #[nil "\203\302\211\207\303\211\207" [gnus-undo-boundary-inhibit gnus-undo-boundary nil t] 2 (#$ . 2950)])
#@25 Set Gnus undo boundary.
(defalias 'gnus-undo-force-boundary #[nil "\302\303\211\207" [gnus-undo-boundary-inhibit gnus-undo-boundary nil t] 2 (#$ . 3122)])
#@100 Register FORMS as something to be performed to undo a change.
FORMS may use backtick quote syntax.
(defalias 'gnus-undo-register #[(form) "\205\n\302\303\304	E!\207" [gnus-undo-mode form gnus-undo-register-1 lambda nil] 4 (#$ . 3286)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-undo-register lisp-indent-function 0 edebug-form-spec (body)] 4)
#@66 Register FUNCTION as something to be performed to undo a change.
(defalias 'gnus-undo-register-1 #[(function) "\2055	\203\nCB\306\202$\203 \n@B\240\210\202$\nCC\f\233\211\2030
\306\241\210)\307\211\207" [gnus-undo-mode gnus-undo-boundary function gnus-undo-actions gnus-undo-limit next nil t gnus-undo-boundary-inhibit] 4 (#$ . 3661)])
#@132 Undo some previous changes in Gnus buffers.
Repeat this command to undo more changes.
A numeric argument serves as a repeat count.
(defalias 'gnus-undo #[(n) "\204\306\307!\210\310\311	\"\210	\312=\203\n\204\n\211A\242\211\204'\306\313!\210\314\f\"\315\316\317\f\")\207" [gnus-undo-mode last-command gnus-undo-last gnus-undo-actions action gnus-undo-boundary error "Undoing is not enabled in this buffer" message "%s" gnus-undo "Nothing further to undo" delq t mapc funcall] 4 (#$ . 4023) "p"])
(provide 'gnus-undo)