;ELC ;;; Compiled ;;; in Emacs version 27.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-trail-in #[nil "\301\302\303!!\211\205 \304!)\207" [win get-buffer-window calc-trail-display t select-window] 4 nil nil]) (defalias 'calc-trail-out #[nil "\301 \210\302p!\211\203\303!\210\304 \202\305 )\207" [win calc-select-buffer get-buffer-window select-window calc-align-stack-window calc] 3 nil nil]) (defalias 'calc-trail-next #[(n) "p\304r\305\306!q\210\nb\210 y\210\307 +\207" [calc-command-flags save-buf calc-trail-pointer n nil calc-trail-display t calc-trail-here] 2 nil "p"]) (defalias 'calc-trail-previous #[(n) "p\304r\305\306!q\210\nb\210 [y\210\307 +\207" [calc-command-flags save-buf calc-trail-pointer n nil calc-trail-display t calc-trail-here] 2 nil "p"]) (defalias 'calc-trail-first #[(n) "p\304r\305\306!q\210\nb\210eb\210 y\210\307 +\207" [calc-command-flags save-buf calc-trail-pointer n nil calc-trail-display t calc-trail-here] 2 nil "p"]) (defalias 'calc-trail-last #[(n) "p\304r\305\306!q\210\nb\210db\210 [y\210\307 +\207" [calc-command-flags save-buf calc-trail-pointer n nil calc-trail-display t calc-trail-here] 2 nil "p"]) (defalias 'calc-trail-scroll-left #[(n) "\305 p\306r\307\310!q\210 b\210\311\216\312\313p!!\210\314\f!-\207" [curwin calc-command-flags save-buf calc-trail-pointer n selected-window nil calc-trail-display t #[nil "\301!\207" [curwin select-window] 2] select-window get-buffer-window calc-scroll-left] 3 nil "P"]) (defalias 'calc-trail-scroll-right #[(n) "\305 p\306r\307\310!q\210 b\210\311\216\312\313p!!\210\314\f!-\207" [curwin calc-command-flags save-buf calc-trail-pointer n selected-window nil calc-trail-display t #[nil "\301!\207" [curwin select-window] 2] select-window get-buffer-window calc-scroll-right] 3 nil "P"]) (defalias 'calc-trail-forward #[(n) "p\304r\305\306!q\210\nb\210 \307 S_y\210\310 +\207" [calc-command-flags save-buf calc-trail-pointer n nil calc-trail-display t window-height calc-trail-here] 2 nil "p"]) (defalias 'calc-trail-backward #[(n) "p\304r\305\306!q\210\nb\210 \307 S_[y\210\310 +\207" [calc-command-flags save-buf calc-trail-pointer n nil calc-trail-display t window-height calc-trail-here] 2 nil "p"]) (defalias 'calc-trail-isearch-forward #[nil "p\306r\307\310!q\210\nb\210\311p!\306\312 \313\216\314\f!\210\315 \210`* b\210\316\f \"\210\317 -\207" [calc-command-flags save-buf calc-trail-pointer pos win #1=#:wconfig nil calc-trail-display t get-buffer-window current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] select-window isearch-forward set-window-point calc-trail-here] 3 nil nil]) (defalias 'calc-trail-isearch-backward #[nil "p\306r\307\310!q\210\nb\210\311p!\306\312 \313\216\314\f!\210\315 \210`* b\210\316\f \"\210\317 -\207" [calc-command-flags save-buf calc-trail-pointer pos win #1=#:wconfig nil calc-trail-display t get-buffer-window current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] select-window isearch-backward set-window-point calc-trail-here] 3 nil nil]) (defalias 'calc-trail-yank #[(arg) "\300\301!\207" [calc-do #[nil "\204\306\307!\210\310\311\312p\313r\314\315!q\210 b\210\203\"\316![y\210\317\320!\204:\317\321!\204:\317\322!\204:\317\323!\203>\324\325!\210\317\326!\203H\324\327!\210\330u\210\331\332!\210\212\333y\210`)`\fS{r\nq\210\334 !)\211\242\324=\203v\324\335\3368\"\202x.#\207" [arg calc-command-flags save-buf calc-trail-pointer next str 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 val] 8]] 2 nil "P"]) (defalias 'calc-trail-marker #[(str) "p\305r\306\307!q\210\nb\210\310y\210\305\311\f\312\261\210)\313y\210\314 +\207" [calc-command-flags save-buf calc-trail-pointer buffer-read-only str nil calc-trail-display t 1 "---- " "\n" -1 calc-trail-here] 3 nil "sText to insert in trail: "]) (defalias 'calc-trail-kill #[(n) "p\305r\306\307!q\210\nb\210\305\214\212eb\210\310y\210`)d}\210\311\f!\210*\312 +\207" [calc-command-flags save-buf calc-trail-pointer buffer-read-only n nil calc-trail-display t 1 kill-line calc-trail-here] 2 nil "p"]) (provide 'calc-trail)