| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/calc/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2) #@10 (fn N) (defalias 'calc-undo #[257 "\203 \301\302!\210\211\303X\203 \211\303W\203 \304[!\207\305\306!\207\307\310\311\"!\207" [calc-executing-macro error "Use C-x e, not X, to run a keyboard macro that uses Undo" 0 calc-redo calc-last-args 1 calc-do make-closure #[0 "\300S \233\204 \303\304!\210\300 \233\n\305\306 \300\"\210)\307\310!\207" [V0 calc-undo-list calc-stack-top error "No further undo information available" 0 calc-handle-undos message "Undo!"] 5]] 5 (#$ . 156) "p"]) #@13 (fn CL N) (defalias 'calc-handle-undos #[514 "\211\302V\205 \303\304@!\210\305 \"\210\306AS\"\207" [calc-redo-list calc-undo-list 0 nil calc-handle-undo append calc-handle-undos] 6 (#$ . 655)]) #@13 (fn LIST) (defalias 'calc-handle-undo #[257 "\211\205\265 \211@\211@\300=\203 \301\302A@\303#\210\202\257 \211@\304=\203+ \305\3068A@\"\210\202\257 \211@\307=\203I \310\307A@A@JE!\210\211A@\3068L\210\202\257 \211@\311=\203\215 \312A@!\310\311A@\313!\205b JE!\210\314\315\316\317A@!\"!\203\211 \3068\203\201 \211\3068L\210\202\205 \320!\210\321!\210\210\202\257 \211@\322=\203\257 \310\323\322\3068A@EAAA\"!\210\324A@AAA\"\210\325A!\262\207" [push calc-pop-stack 1 t pop calc-push-list 2 set calc-record-undo store intern boundp y-or-n-p format "Un-store variable %s? " calc-var-name makunbound calc-refresh-evaltos eval append apply calc-handle-undo] 8 (#$ . 865)]) #@10 (fn N) (defalias 'calc-redo #[257 "\203 \301\302!\210\211\303X\203 \304[!\207\305\306\307\"!\207" [calc-executing-macro error "Use C-x e, not X, to run a keyboard macro that uses Redo" 0 calc-undo calc-do make-closure #[0 "\300S \233\204 \303\304!\210\300 \233\n\305\306 \300\"\210)\307\310!\207" [V0 calc-redo-list calc-stack-top error "Unable to redo" 0 calc-handle-redos message "Redo!"] 5]] 5 (#$ . 1562) "p"]) #@13 (fn CL N) (defalias 'calc-handle-redos #[514 "\211\301V\205 \302\303@!\210\304\"\210\305AS\"\207" [calc-undo-list 0 nil calc-handle-undo append calc-handle-redos] 6 (#$ . 1994)]) #@10 (fn N) (defalias 'calc-last-args #[257 "\203 \301\302!\210\303\304\305\"!\207" [calc-executing-macro error "Use C-x e, not X, to run a keyboard macro that uses last-args" calc-do make-closure #[0 "\302 \300\"\211\203\f \303!\207\304\305!\207" [V0 calc-undo-list calc-find-last-x calc-handle-last-x error "Not enough undo information available"] 3]] 5 (#$ . 2190) "p"]) #@13 (fn LIST) (defalias 'calc-handle-last-x #[257 "\211\205 \211@\211@\300=\203 \301\302\303\304\305\3068\"#\210\307A!\262\207" [pop calc-pop-push-record-list 0 "larg" delq top-of-stack 2 calc-handle-last-x] 9 (#$ . 2571)]) #@13 (fn UL N) (defalias 'calc-find-last-x #[514 "\205 \300@!\203 \211\301X\203 @\207\302AS\"\207\302A\"\207" [calc-undo-does-pushes 1 calc-find-last-x] 5 (#$ . 2805)]) #@13 (fn LIST) (defalias 'calc-undo-does-pushes #[257 "\211\205 \211@@\300=\206 \301A!\207" [pop calc-undo-does-pushes] 3 (#$ . 2987)]) (provide 'calc-undo)