%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/calc/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/calc/calc-trail.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\210y\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\210y\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\210b\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\210b\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\210b\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)

Zerion Mini Shell 1.0