;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-undo.el
;;; in Emacs version 24.3.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 (#$ . 1458))
(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) "\305 	\306=\203\n?\202\307	!\310V\311\303!\210\312\311\304!\210\313\n\2039\314\315\316\"\203.\317 \210\320\321!\210\322\321\304\312\313$\210\323\324\n\203C\325\202D\326\"\210\327\330!\203e\305 \203X\305 \232\203e\331\332\n\203b\333\202c\334\"\210)\335 \210\n\207" [#1=#:last-message arg gnus-undo-mode gnus-undo-actions gnus-undo-boundary current-message toggle prefix-numeric-value 0 make-local-variable nil t gnus-visual-p undo-menu menu gnus-undo-make-menu-bar gnus-make-local-hook post-command-hook add-hook run-hooks gnus-undo-mode-hook gnus-undo-mode-on-hook gnus-undo-mode-off-hook called-interactively-p any message "Gnus-Undo mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 1645) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\207" [gnus-undo-mode-map 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 (#$ . 2623) 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 (#$ . 2799)])
#@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 (#$ . 2971)])
#@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 (#$ . 3135)])
(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 (#$ . 3510)])
#@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@\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 (#$ . 3872) "p"])
(provide 'gnus-undo)