;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:44:22 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-undo.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-undo.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302%\207" [require gnus-util gnus custom custom-declare-group gnus-undo nil "Undoing in Gnus buffers." :group] 6) #@42 The number of undoable actions recorded. (custom-declare-variable 'gnus-undo-limit '2000 '(#$ . 811) :type 'integer :group 'gnus-undo) #@41 Minor mode for undoing in Gnus buffers. (custom-declare-variable 'gnus-undo-mode 'nil '(#$ . 952) :type 'boolean :group 'gnus-undo) #@46 Hook called in all `gnus-undo-mode' buffers. (custom-declare-variable 'gnus-undo-mode-hook 'nil '(#$ . 1090) :type 'hook :group 'gnus-undo) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307 \204H\311 \312\305\313\"\210\307\207" [current-load-list gnus-undo-actions gnus-undo-boundary gnus-undo-last gnus-undo-boundary-inhibit gnus-undo-mode-map boundp nil t 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]) #@73 Minor mode for providing `undo' in Gnus buffers. \{gnus-undo-mode-map} (defalias 'gnus-undo-mode #[(&optional arg) "\303\301!\204\f ?\202\304!\305VL\210\303\306!\307L\210\303\310!\311L\210 \205A\312\313\314\"\203-\315 \210\316\301\317\n#\210\320\321!\210\322\321\310\307\311$\210\323\324!\207" [arg gnus-undo-mode gnus-undo-mode-map make-local-variable prefix-numeric-value 0 gnus-undo-actions nil gnus-undo-boundary t gnus-visual-p undo-menu menu gnus-undo-make-menu-bar gnus-add-minor-mode "" make-local-hook post-command-hook add-hook gnus-run-hooks gnus-undo-mode-hook] 5 (#$ . 1731) "P"]) #@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 (#$ . 2339) 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 (#$ . 2515)]) #@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 (#$ . 2687)]) #@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 (#$ . 2851)]) (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 (#$ . 3226)]) #@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\f\205<\f\211A@ \210\202.)\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] 4 (#$ . 3588) "p"]) (provide 'gnus-undo)