;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 469) "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 (#$ . 662) "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 (#$ . 860) "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 (#$ . 1060) "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 (#$ . 1261) "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 (#$ . 1596) "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 (#$ . 1933) "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 (#$ . 2151) "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`)\266\202\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`)\266\202\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 (#$ . 3219) "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 (#$ . 4027) "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 (#$ . 4321) "p"]) (provide 'calc-trail)