Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-undo.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\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)
#@315 Minor mode for providing `undo' in Gnus buffers.
If called interactively, enable Gnus-Undo mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
\{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 (#$ . 1497) (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\203 q\210\301\302!)\207" [buffer gnus-undo-mode -1] 2 (#$ . 3017) 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 (#$ . 3193)])
#@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 (#$ . 3365)])
#@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 (#$ . 3529)])
(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 \nC B\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 (#$ . 3904)])
#@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 (#$ . 4266) "p"])
(provide 'gnus-undo)
Mini Shell