;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\302%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327%\207" [require gnus-util gnus custom-declare-group gnus-undo nil "Undoing in Gnus buffers." :group custom-declare-variable gnus-undo-limit funcall function #[0 "\300\207" [2000] 1 #1=""] "The number of undoable actions recorded." :type integer gnus-undo-mode #[0 "\300\207" [nil] 1 #1#] "Minor mode for undoing in Gnus buffers." boolean gnus-undo-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook called in all `gnus-undo-mode' buffers." hook] 6) (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 "\300 \301\302\"\210\207" [make-sparse-keymap gnus-define-keys-1 ("\237" gnus-undo "" gnus-undo "u" gnus-undo [(control /)] gnus-undo)] 4)) (defalias 'gnus-undo-make-menu-bar #[0 "\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 (#$ . 1075)) (make-variable-buffer-local 'gnus-undo-mode) #@626 Minor mode for providing `undo' in Gnus buffers. This is a minor mode. If called interactively, toggle the `Gnus-Undo mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `gnus-undo-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. \{gnus-undo-mode-map} (fn &optional ARG) (defalias 'gnus-undo-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\313\302!\210\307\313\303!\210\310\203R\314\315\316\"\203K\317 \210\320\321\303\307\310$\210\322\323\203\\\324\202]\325\"\210\326\327!\203\304 \203q\211\304 \232\203\330\331\203{\332\202|\333\334#\210\210\335 \210\207" [gnus-undo-mode local-minor-modes gnus-undo-actions gnus-undo-boundary current-message toggle 1 nil t boundp delq make-local-variable 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 message "Gnus-Undo mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1263) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar gnus-undo-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\310\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.)" custom-type hook standard-value nil add-minor-mode gnus-undo-mode] 6) #@63 Disable undoing in the current buffer. (fn &optional BUFFER) (defalias 'gnus-disable-undo #[256 "\212\211\203\211q\210\300\301!)\207" [gnus-undo-mode -1] 3 (#$ . 3259) nil]) #@25 Set Gnus undo boundary. (defalias 'gnus-undo-boundary #[0 "\203\302\211\207\303\211\207" [gnus-undo-boundary-inhibit gnus-undo-boundary nil t] 2 (#$ . 3442)]) #@25 Set Gnus undo boundary. (defalias 'gnus-undo-force-boundary #[0 "\302\303\211\207" [gnus-undo-boundary-inhibit gnus-undo-boundary nil t] 2 (#$ . 3612)]) #@74 Register FORMS as something to be performed to undo a change. (fn FORM) (defalias 'gnus-undo-register #[257 "\205\n\301\302\303E!\207" [gnus-undo-mode gnus-undo-register-1 lambda nil] 5 (#$ . 3773)]) #@81 Register FUNCTION as something to be performed to undo a change. (fn FUNCTION) (defalias 'gnus-undo-register-1 #[257 "\2053 \203\211C\nB\305\202$\n\203 \n\n@B\240\210\202$\211CC \n\233\211\203/\211\305\241\210\210\306\211\207" [gnus-undo-mode gnus-undo-boundary gnus-undo-actions gnus-undo-limit gnus-undo-boundary-inhibit nil t] 4 (#$ . 3983)]) #@95 Undo some previous changes in Gnus buffers. Repeat this command to undo more changes. (fn N) (defalias 'gnus-undo #[257 "\204\305\306!\210\307\310 \"\210 \311=\203\n\204 \n\211A\242\211\204&\305\312!\210\313 \"\314\315\316\"\207" [gnus-undo-mode last-command gnus-undo-last gnus-undo-actions gnus-undo-boundary error "Undoing is not enabled in this buffer" message "%s" gnus-undo "Nothing further to undo" delq t mapc funcall] 5 (#$ . 4349) "p"]) (provide 'gnus-undo)