|
Server IP : 111.118.215.189 / Your IP : 52.14.236.216 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/calc/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:47 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-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!\207" [require calc-ext calc-macs] 2) (defalias 'calc-undo #[(n) "\203 \302\303!\210 \304X\203 \304W\203 \305 [!\207\306\307!\207\310\311!\207" [calc-executing-macro n error "Use C-x e, not X, to run a keyboard macro that uses Undo" 0 calc-redo calc-last-args 1 calc-do #[nil "S \233\204 \304\305!\210 \233\n\306\307 \"\210) )\310\311!\207" [n calc-undo-list calc-stack-top saved-stack-top error "No further undo information available" 0 calc-handle-undos message "Undo!"] 4]] 2 nil "p"]) (defalias 'calc-handle-undos #[(cl n) "\305V\205 \306\307\f@!\210\310 \n\")\311\fAS\"\207" [n calc-redo-list old-redo calc-undo-list cl 0 nil calc-handle-undo append calc-handle-undos] 3]) (defalias 'calc-handle-undo #[(list) "\205\266 @\211@\303=\203 \304\305 A@\306#\210\202\261 @\307=\203, \310\311 8 A@\"\210\202\261 @\312=\203J \313\312 A@ A@JE!\210 A@\311 8L\210\202\261 @\314=\203\217 \315 A@!\313\314 A@\316\n!\205d \nJE!\210\317\320\321\322 A@!\"!\203\213 \311 8\203\203 \n\311 8L\210\202\207 \323\n!\210\324\n!\210)\202\261 @\325=\203\261 \313\326\325\311 8 A@E AAA\"!\210\327 A@ AAA\"\210\330A!)\207" [list action v 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] 6]) (defalias 'calc-redo #[(n) "\203 \302\303!\210 \304X\203 \305 [!\207\306\307!\207" [calc-executing-macro n error "Use C-x e, not X, to run a keyboard macro that uses Redo" 0 calc-undo calc-do #[nil "S \233\204 \304\305!\210 \233\n\306\307 \"\210) )\310\311!\207" [n calc-redo-list calc-stack-top saved-stack-top error "Unable to redo" 0 calc-handle-redos message "Redo!"] 4]] 2 nil "p"]) (defalias 'calc-handle-redos #[(cl n) "\304V\205 \305\306 @!\210\307 \n\")\310 AS\"\207" [n calc-undo-list old-undo cl 0 nil calc-handle-undo append calc-handle-redos] 3]) (defalias 'calc-last-args #[(n) "\203 \301\302!\210\303\304!\207" [calc-executing-macro error "Use C-x e, not X, to run a keyboard macro that uses last-args" calc-do #[nil "\303 \"\211\203 \304\n!\202 \305\306!)\207" [calc-undo-list n urec calc-find-last-x calc-handle-last-x error "Not enough undo information available"] 4]] 2 nil "p"]) (defalias 'calc-handle-last-x #[(list) "\205 @\211@\302=\203 \303\304\305\306\307\310 8\"#\210\311A!)\207" [list action pop calc-pop-push-record-list 0 "larg" delq top-of-stack 2 calc-handle-last-x] 8]) (defalias 'calc-find-last-x #[(ul n) "\205 \302@!\203 \303X\203 @\207\304A S\"\207\304A \"\207" [ul n calc-undo-does-pushes 1 calc-find-last-x] 3]) (defalias 'calc-undo-does-pushes #[(list) "\205 @@\301=\206 \302A!\207" [list pop calc-undo-does-pushes] 2]) (provide 'calc-undo)