| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-trail.elc |
;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-trail.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-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 ((select-window curwin)) 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 ((select-window curwin)) 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 ((set-window-configuration #1#)) 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 ((set-window-configuration #1#)) 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\336 8\"\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)