| 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)
(defalias 'calc-trail-in #[0 "\300\301\302!!\211\205\f \303!\207" [get-buffer-window calc-trail-display t select-window] 3 nil nil])
(defalias 'calc-trail-out #[0 "\300 \210\301p!\211\203 \302!\210\303 \207\304 \207" [calc-select-buffer get-buffer-window select-window calc-align-stack-window calc] 3 nil nil])
#@10
(fn N)
(defalias 'calc-trail-next #[257 "p\302r\303\304!q\210 b\210y\210\305 *\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t calc-trail-here] 4 (#$ . 470) "p"])
#@10
(fn N)
(defalias 'calc-trail-previous #[257 "p\302r\303\304!q\210 b\210[y\210\305 *\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t calc-trail-here] 4 (#$ . 664) "p"])
#@10
(fn N)
(defalias 'calc-trail-first #[257 "p\302r\303\304!q\210 b\210eb\210y\210\305 *\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t calc-trail-here] 4 (#$ . 863) "p"])
#@10
(fn N)
(defalias 'calc-trail-last #[257 "p\302r\303\304!q\210 b\210db\210[y\210\305 *\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t calc-trail-here] 4 (#$ . 1064) "p"])
#@10
(fn N)
(defalias 'calc-trail-scroll-left #[257 "\302 p\303r\304\305!q\210 b\210\306\307\"\216\310\311p!!\210\312!+\207" [calc-command-flags calc-trail-pointer selected-window nil calc-trail-display t make-closure #[0 "\301\300!\207" [V0 select-window] 2] select-window get-buffer-window calc-scroll-left] 6 (#$ . 1266) "P"])
#@10
(fn N)
(defalias 'calc-trail-scroll-right #[257 "\302 p\303r\304\305!q\210 b\210\306\307\"\216\310\311p!!\210\312!+\207" [calc-command-flags calc-trail-pointer selected-window nil calc-trail-display t make-closure #[0 "\301\300!\207" [V0 select-window] 2] select-window get-buffer-window calc-scroll-right] 6 (#$ . 1602) "P"])
#@10
(fn N)
(defalias 'calc-trail-forward #[257 "p\302r\303\304!q\210 b\210\305 S_y\210\306 *\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t window-height calc-trail-here] 4 (#$ . 1940) "p"])
#@10
(fn N)
(defalias 'calc-trail-backward #[257 "p\302r\303\304!q\210 b\210\305 S_[y\210\306 *\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t window-height calc-trail-here] 4 (#$ . 2159) "p"])
(defalias 'calc-trail-isearch-forward #[0 "p\302r\303\304!q\210 b\210\305p!\302\306 \307\310\"\216\311!\210\312 \210`\262)\210\211b\210\313\"\210\314 \266\202*\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t get-buffer-window current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] select-window isearch-forward set-window-point calc-trail-here] 7 nil nil])
(defalias 'calc-trail-isearch-backward #[0 "p\302r\303\304!q\210 b\210\305p!\302\306 \307\310\"\216\311!\210\312 \210`\262)\210\211b\210\313\"\210\314 \266\202*\207" [calc-command-flags calc-trail-pointer nil calc-trail-display t get-buffer-window current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] select-window isearch-backward set-window-point calc-trail-here] 7 nil nil])
#@12
(fn ARG)
(defalias 'calc-trail-yank #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\204 \303\304!\210\305\306\307p\310r\311\312!q\210\nb\210\300\203! \313\300![y\210\314\315!\2049 \314\316!\2049 \314\317!\2049 \314\320!\203= \321\322!\210\314\323!\203G \321\324!\210\325u\210\326\327!\210\212\330y\210`)`S{rq\210\331!)\211\242\321=\203r \321\332\3338\"\266\203\202u \211\266\203*\262#\207" [V0 calc-command-flags calc-trail-pointer calc-set-command-flag hold-trail calc-enter-result 0 "yank" nil calc-trail-display t prefix-numeric-value looking-at "Emacs Calc" "----" " ? ? ?[^ \n]* *$" "..?.?$" error "Can't yank that line" ".*, \\.\\.\\., " "Can't yank (vector was abbreviated)" 4 search-forward " " 1 math-read-plain-expr "Can't yank that line: %s" 2] 11]] 5 (#$ . 3230) "P"])
#@12
(fn STR)
(defalias 'calc-trail-marker #[257 "p\303r\304\305!q\210 b\210\306y\210\303\307\310\261\210)\311y\210\312 *\207" [calc-command-flags calc-trail-pointer buffer-read-only nil calc-trail-display t 1 "---- " "\n" -1 calc-trail-here] 5 (#$ . 4039) "sText to insert in trail: "])
#@10
(fn N)
(defalias 'calc-trail-kill #[257 "p\303r\304\305!q\210 b\210\303\214\212eb\210\306y\210`)d}\210\307!\210*\310 *\207" [calc-command-flags calc-trail-pointer buffer-read-only nil calc-trail-display t 1 kill-line calc-trail-here] 4 (#$ . 4334) "p"])
(provide 'calc-trail)