;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@31 

(fn NN &optional NO-DELETE)
(defalias 'calc-kill #[513 "\301=\203\302\303\304#!\207\305!\207" [major-mode calc-mode calc-do make-closure #[0 "\304 \210\305\306!\210\307`!\310]\311\300!\211\312W\203&m\203
S\262

Z\262\211[\262
\313!\210\314
ZT\"\315!\210`\315Z!\210\300\204C\316u\210\317
`\"\210\301\204T\320ZT\"\210\210\n@
B\211\207" [V0 V1 kill-ring calc-last-kill calc-force-refresh calc-set-command-flag no-align calc-locate-cursor-element 1 prefix-numeric-value 0 calc-check-stack calc-top-list calc-cursor-stack-index -1 copy-region-as-kill calc-pop-stack] 8] kill-line] 7 (#$ . 156) "P"])
(defalias 'calc-force-refresh #[0 "\204	\205
\302\303 )\207" [calc-executing-macro calc-display-dirty nil calc-refresh] 1])
#@11 

(fn PT)
(defalias 'calc-locate-cursor-element #[257 "\212db\210\302[	#)\207" [calc-stack-top calc-stack calc-locate-cursor-scan] 5 (#$ . 911)])
#@19 

(fn N STACK PT)
(defalias 'calc-locate-cursor-scan #[771 "`
X\204\n
\204\f\207
@A@[y\210\300TA#\207" [calc-locate-cursor-scan] 7 (#$ . 1065)])
#@36 

(fn TOP BOT &optional NO-DELETE)
(defalias 'calc-kill-region #[770 "\301=\203\302\303\304$!\207\211\203\305\"\207\306\"\207" [major-mode calc-mode calc-do make-closure #[0 "\305 \210\306\307!\210\310\300!\212\311
!\210`)\310\301S!\212\311\312S]!\210`)ZT\313\"\210@\314\"B\302?\2059\315
\"\207" [V0 V1 V2 kill-ring calc-last-kill calc-force-refresh calc-set-command-flag no-align calc-locate-cursor-element calc-cursor-stack-index 0 copy-region-as-kill calc-top-list calc-pop-stack] 9] copy-region-as-kill kill-region] 9 (#$ . 1222) "r"])
#@10 

(fn N)
(defalias 'calc-copy-as-kill #[257 "\300
\301\"\207" [calc-kill t] 4 (#$ . 1791) "P"])
#@16 

(fn TOP BOT)
(defalias 'calc-copy-region-as-kill #[514 "\300\301#\207" [calc-kill-region t] 6 (#$ . 1893) "r"])
#@80 Return a regexp which will match a Calc number base RADIX-NUM.

(fn RADIX-NUM)
(defalias 'math-number-regexp #[257 "\300
X\203\301
Y\203\302\303S!\304Q\2022\211\305U\203 \306\2022\307\310\311\312\\\"\313\310\311\314\\\"\304\260\211\315P
\316\317R\320
\321\321\322\323\n\324\f\323\324\324\325\260\207" [2 10 "[0-" number-to-string "]" 11 "[0-9aA]" "[0-9a-" format "%c" 86 "A-" 54 "+" "+\\." "*" " *\\([-_+]?" "[eE][-+]?[0-9]+\\|[-_+]?" "*[:/]" "[:/]" "\\|[-_+]?" "\\) *\\(\n\\|\\'\\)"] 23 (#$ . 2015)])
#@148 Internal common implementation for yank functions.

This function is used by both `calc-yank' and `calc-yank-mouse-primary'.

(fn RADIX THING-RAW)
(defalias 'calc-yank-internal #[514 "\300\301\302#!\207" [calc-do make-closure #[0 "\304\305\306\307\211\211\300\203\310\301\307\311\312#)\266\203\203\301\202\213\300<\203@\313\314!\262\250\2039\315X\2039\316Y\204p\317\320!\210\202p\300\315=\203J\315\202n\300\321=\203T\321\202n\300\305=\203^\322\202n\300\323=\203h\324\202n\325\326\300\"\210\307\262\203\212\327!\330P\262\331!\262
\332
\333P\301#\202\213\301\242\301=\203\231A\266\204\202\305\211;\205\303\334\335!!\211\242\317=\203\300\334!\262
\211\242\317=\203\274\317\336!\202\301\211\202\301\211\262
\266\204#\207" [V0 V1 inhibit-changing-match-data calc-last-kill calc-pop-push-record-list 0 "yank" nil "^[-(]*[0-9]\\{1,2\\}#" t string-match read-number "Set radix for yanked content (2-36): " 2 36 error "The radix has to be an integer between 2 and 36." 8 10 6 16 message "No radix prepended for invalid *numeric* prefix %0d." number-to-string "#" math-number-regexp replace-regexp-in-string "\\&" math-read-exprs calc-clean-newlines "Bad format in yanked data"] 13]] 7 (#$ . 2551)])
#@117 Yank the current primary selection into the Calculator buffer.
See `calc-yank' for details about RADIX.

(fn RADIX)
(defalias 'calc-yank-mouse-primary #[257 "\204	\203\302
\303 \"\207\304
!\207" [select-enable-primary select-enable-clipboard calc-yank-internal gui-get-primary-selection calc-yank] 4 (#$ . 3795) "P"])
#@622 Yank a value into the Calculator buffer.

Valid numeric prefixes for RADIX: 0, 2, 6, 8
No radix notation is prepended for any other numeric prefix.

If RADIX is 2, prepend "2#"  - Binary.
If RADIX is 8, prepend "8#"  - Octal.
If RADIX is 0, prepend "10#" - Decimal.
If RADIX is 6, prepend "16#" - Hexadecimal.

If RADIX is a non-nil list (created using \[universal-argument]), the user
will be prompted to enter the radix in the minibuffer.

If RADIX is nil or if the yanked string already has a calc radix prefix, the
yanked string will be passed on directly to the Calculator buffer without any
alteration.

(fn RADIX)
(defalias 'calc-yank #[257 "\300
\301\302\303\"\"\207" [calc-yank-internal current-kill 0 t] 6 (#$ . 4125) "P"])
#@149 Alist of elements (NAME . (TEXT . CALCVAL)).
NAME is a character (a number).
TEXT and CALCVAL are the TEXT and internal structure of stack entries.
(defvar calc-register-alist nil (#$ . 4866))
#@165 Set the contents of the Calc register REGISTER to (TEXT . CALCVAL),
as well as set the contents of the Emacs register REGISTER to TEXT.

(fn REGISTER TEXT CALCVAL)
(defalias 'calc-set-register #[771 "\301\"\210\236B
\203

\241\210\207
B\211\262B\207" [calc-register-alist set-register] 7 (#$ . 5066)])
#@245 Return the CALCVAL portion of the contents of the Calc register REG,
unless the TEXT portion doesn't match the contents of the Emacs register REG,
in which case either return the contents of the Emacs register (if it is
text) or nil.

(fn REG)
(defalias 'calc-get-register #[257 "\211\236A
	\236A\211;\205
@;\203
@
\230\203
A\207\211\207" [calc-register-alist register-alist] 5 (#$ . 5387)])
#@205 Copy the lines in the region into register REGISTER.
With prefix arg, delete as well.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG)
(defalias 'calc-copy-to-register #[1027 "\301=\203>\302!\212\303
!\210`)\302S!\212\303\304S]!\210`)ZT{\305\n\306\"#\210\205=\307\310\311#!\207\312$\207" [major-mode calc-mode calc-locate-cursor-element calc-cursor-stack-index 0 calc-set-register calc-top-list calc-do make-closure #[0 "\302\301\300\"\207" [V0 V1 calc-pop-stack] 3] copy-to-register] 16 (#$ . 5793) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Copy to register: " region-beginning region-end] 4)])
#@129 Insert the contents of register REGISTER.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER)
(defalias 'calc-insert-register #[257 "\301=\203\302
!\303\304\305\"!\207\306
!\207" [major-mode calc-mode calc-get-register calc-do make-closure #[0 "\301\302\303\300\204
\304\305!\202;\300:\203\300\202;\306\307\300!!\211\242\304=\2038\306\300!\262
\211\242\304=\2034\304\305!\2029\211\2029\211\262
#\207" [V0 calc-pop-push-record-list 0 "insr" error "Bad format in register data" math-read-exprs calc-clean-newlines] 6] insert-register] 6 (#$ . 6534) (byte-code "\300\301!C\207" [register-read-with-preview "Insert register: "] 2)])
#@233 Add the lines in the region to register REGISTER.
If PREPEND is non-nil, add them to the beginning of the register,
otherwise the end.  If DELETE-FLAG is non-nil, also delete the region.

(fn REGISTER START END PREPEND DELETE-FLAG)
(defalias 'calc-add-to-register #[1285 "\301!\212\302
!\210`)\301S!\212\302\303S]!\210`)ZT{\304\"\236A\211\2046\305
#\210\202[	\203L\305
@P\306A\"#\210\202[\305
@P\306A\"#\210\205i\307\310\311#!\207" [calc-register-alist calc-locate-cursor-element calc-cursor-stack-index 0 calc-top-list calc-set-register append calc-do make-closure #[0 "\302\301\300\"\207" [V0 V1 calc-pop-stack] 3]] 19 (#$ . 7217)])
#@222 Copy the lines in the region to the end of register REGISTER.
With prefix arg, also delete the region.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG)
(defalias 'calc-append-to-register #[1027 "\301=\203\302\303%\207\304$\207" [major-mode calc-mode calc-add-to-register nil append-to-register] 10 (#$ . 7897) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Append to register: " region-beginning region-end] 4)])
#@228 Copy the lines in the region to the beginning of register REGISTER.
With prefix arg, also delete the region.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG)
(defalias 'calc-prepend-to-register #[1027 "\301=\203\302\303%\207\304$\207" [major-mode calc-mode calc-add-to-register t prepend-to-register] 10 (#$ . 8437) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Prepend to register: " region-beginning region-end] 4)])
#@10 

(fn S)
(defalias 'calc-clean-newlines #[257 "\300\301\"\204\300\302\"\203\303\304\305\"!\207\300\306\"\203)\303\304\305\"\307\304\310\"Q!\207\207" [string-match "\\`[ \n
]+\\([^
]*\\)\\'" "\\`\\([^
]*\\)[ \n
]+\\'" calc-clean-newlines math-match-substring 1 "\\`\\(.*\\)[\n
]+\\([^
]*\\)\\'" "," 2] 7 (#$ . 8983)])
#@20 

(fn TOP BOT ARG)
(defalias 'calc-do-grab-region #[771 "\301>\203\n\302\303!\210p\304\305!\306\211\211C\203S:\203!\307\262\202S\310!\262\311U\2038\312 \262\313 \262\202S\212`\262y\210\311V\203K`\262\202R\262`\262){\262\314 \210\203j\211\315!\240\210\202\224\211\315\316\317Q!\240\210\211\242\242\320=\203\224\211\242G\321U\203\224\211\242A@\242\320=\203\224\211
\242A@\240\210\211\242\242\302=\203\312\203\247\322!\210\202\257\323\307!\210\324!\210b\210\211\242A@\203\277\311\202\300\325\\u\210\302\321\2428!\210\326\327\330\"`\"\207" [major-mode (calc-mode calc-trail-mode) error "This command works only in a regular text buffer" get-buffer-window "*Calculator*" nil t prefix-numeric-value 0 point-at-bol point-at-eol calc math-read-expr "[" "]" vec 2 pop-to-buffer calc-quit switch-to-buffer 1 calc-do make-closure #[0 "\301\302\303\300\242#\207" [V0 calc-enter-result 0 "grab"] 4]] 13 (#$ . 9317)])
#@37 

(fn TOP BOT ARG &optional REDUCE)
(defalias 'calc-do-grab-rectangle #[1027 "\301>\203\n\302\303!\210\212b\210i)\212b\210i)p\304\305!\306\211C\306\211\211\211		U\203Z\212	\307U\2045\302\310!\210
b\210`
W\203R`\262\311y\210
`S{B\262\2029\237\262)\202b\312\"\262\313 \210\314C\240\210\307\262\203\202:\203|\307\202\200\315\f!\262\f\203\247
\316\f!\203\354\307U\203\227\317\262\f\307\262
\314C\262@G\306\211W\203\347\\\262
Y\203\300\320	@\306O!\202\310\320	@O!\262
\211\242\302=\203\332\211\262\307\262\202\243
C\244\262
\262\202\243\266\202W
\321\322@\"\203

\314\323@!D\262\202W
\204 
\321\324@\"\203 
\307\224\262
\320\325@\307\"!\262\202W
\321\326@\"\2032
\325@\327\"\2024
@\330\262\320\331\332Q!\262\242\302=\203V
\320
!\211\242\302=\204U
\314
D\262\210\210\242\302=\203\216
\203k
\333!\210\202t
\334\335!\210\336!\210
b\210y\210A@\n\n^\\
\\u\210\302\3278!\210\337\232\204\234
\242B\240\210A\262T\262\202\202\340\341\342
#`\"\207" [major-mode (calc-mode calc-trail-mode) error "This command works only in a regular text buffer" get-buffer-window "*Calculator*" nil 0 "Point and mark must be at beginning of line, or define a rectangle" 1 extract-rectangle calc vec prefix-numeric-value natnump 1000000 math-read-expr string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'" string-to-number "[[{][^][{}]*[]}]" math-match-substring "\\`\\([0-9]+:[ 	]\\)?\\(.*[^, 	]\\)[, 	]*\\'" 2 -1 "[" "]" pop-to-buffer calc-quit t switch-to-buffer (vec) calc-do make-closure #[0 "\300\203\302\303\304\300\305\301\242\237E#\207\302\303\306\301\242\237#\207" [V0 V1 calc-enter-result 0 "grb+" (var add var-add) "grab"] 6]] 21 (#$ . 10279)])
#@56 Copy the top of stack into an editing buffer.

(fn NN)
(defalias 'calc-copy-to-buffer #[257 "\301>?\205p\302C\302C\302C\303\304\305&!\210\242\203(\242b\210:\205:?\205:\306\307!\210\310
\242!\207" [major-mode (calc-mode calc-trail-mode) nil calc-do make-closure #[0 "\212\306 \210\307\300!
\"\310=\203\311\202\312\313\211\303p\240\210\304\301\2062\314\315 \312\"\2062\314\315 \311\"\2062\316\317!\240\210\300\203=\300:\203t\320\312!\320\311!SZU\203t\321\311!\210\322
\203W\323\202X\324!\203a\312\225Sb\210\313\262`\262\321\312!\210`SZ\262
\202\267\312V\203\215\321!\210`\262\321\312!\210`Z\262
\202\267\312W\203\247\321[!\210`\262\321[S!\210`\262
\202\267eb\210\311y\210`\262\321\312!\210`\262
r\304\242q\210\300:\203\310\325\326 \327 \"\210\330`\331\"\210#\203\347\300:\204\347\332r\303\242q\210{)\"\210\202
n\204\356\313\262\333\303\242#\210\203
\311`\334 V\203
\335y\210`\334 Y\203
\336\337!\210\211T\262
\202\372\211y\266\301\203\"
\302`\240\210\340p!\205.
\341\340p!`\")\266\205)\207" [V0 V1 V2 V3 V4 calc-line-numbering calc-force-refresh prefix-numeric-value big 1 0 nil calc-find-writable-buffer buffer-list error "No other buffer" calc-substack-height calc-cursor-stack-index looking-at "[0-9]+: *[^ \n]" " *[^ \n]" kill-region region-beginning region-end push-mark t calc-overwrite-string insert-buffer-substring mark -1 delete-char 4 get-buffer-window set-window-point calc-language overwrite-mode] 9] calc-quit t switch-to-buffer] 13 (#$ . 12037) "P"])
#@22 

(fn STR EAT-LNUMS)
(defalias 'calc-overwrite-string #[514 "\301\302\"\203

\303\304O\262\211\203
\305\306O\262\301\307\"\203,\310\311!\203,`\303\225|\210
c\207\303\211GW\205s
H\211\312U\203h\211GSU\204l`\306\210\211`|\210m\203X\313c\210\202[\314u\210\203d
\305\\\262\210\202l\315\314!\210\211T\262
\202-\207" [last-command-event string-match "\n\\'" 0 -1 4 nil "\\`[-+]?[0-9.]+\\(e-?[0-9]+\\)?\\'" looking-at "[-+]?[0-9.]+\\(e-?[0-9]+\\)?" 10 "\n" 1 self-insert-command] 6 (#$ . 13578)])
#@17 

(fn BUF MODE)
(defalias 'calc-find-writable-buffer #[514 "
\205-\300\301\302@!\"\204%\211\303U\203+\300\304\302@!\"\204%\305@!\204+\306A\"\207
@\207" [string-match "\\`\\( .*\\|\\*Calc.*\\)" buffer-name 0 "\\`\\*.*" get-buffer-window calc-find-writable-buffer] 6 (#$ . 14098)])
#@10 

(fn N)
(defalias 'calc-edit #[257 "\211C\300\301\302\"`\"\210\303 \207" [calc-do make-closure #[0 "\300\242\303=\203\f\300\304 \240\210\300\242\305VC	\306\300\242\305V\203\307\202#\310\311\"\300\242\303V\2031\312\300\242!\2027\312\305\300\242[\"\")\313\310\314\300\"\242\"\210\211\205S\211@\315\261\210\211A\262
\202B\207" [V0 calc-full-float-format calc-float-format 0 calc-stack-size 1 mapcar #[257 "\300
\301\"\207" [math-format-flat-expr 0] 4 "\n\n(fn X)"] make-closure #[257 "\211\211\242\301=\262
\203\300\302\240\210\303
\304 \"\207" [V0 vec t math-format-nice-expr frame-width] 4 "\n\n(fn X)"] calc-top-list calc--edit-mode #[0 "\301\300\242!\207" [V0 calc-finish-stack-edit] 2] "\n"] 6] calc-show-edit-buffer] 6 (#$ . 14394) "p"])
#@12 

(fn STR)
(defalias 'calc-alg-edit #[257 "\300\301!\210\302 \210\211\303\261\210\304u\210\305\306!\207" [calc--edit-mode #[0 "\300\301!\207" [calc-finish-stack-edit 0] 2] calc-show-edit-buffer "\n" -1 calc-set-command-flag do-edit] 3 (#$ . 15157)])
#@44 Keymap for use by the `calc-edit' command.
(defvar calc-edit-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\303#\210\207" [make-sparse-keymap define-key "\n" calc-edit-finish "
" calc-edit-return ""] 5) (#$ . 15414))
(defvar calc-original-buffer nil)
(defvar calc-return-buffer nil)
(defvar calc-one-window nil)
(defvar calc-edit-handler nil)
(defvar calc-restore-trail nil)
(defvar calc-allow-ret nil)
(defvar calc-edit-top nil)
(put 'calc-edit-mode 'mode-class 'special)
(defvar calc-edit-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [calc-edit-mode-hook variable-documentation put "Hook run after entering Calc Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp calc-edit-mode-map definition-name calc-edit-mode] 4)
(defvar calc-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [calc-edit-mode-abbrev-table calc-edit-mode-map variable-documentation put purecopy "Keymap for `calc-edit-mode'." boundp calc-edit-mode-syntax-table definition-name calc-edit-mode (lambda (#1=#:def-tmp-var) (defvar calc-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `calc-edit-mode'." (lambda (#1#) (defvar calc-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `calc-edit-mode'." derived-mode-parent] 5)
#@248 Calculator editing mode.  Press RET, LFD, or C-c C-c to finish.
To cancel the edit, simply kill the *Calc Edit* buffer.

This mode runs the hook `calc-edit-mode-hook', as the final or
penultimate step during initialization.

\{calc-edit-mode-map}
(defalias 'calc-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\306\315!\210\316
\306\317!\210\316)\320\321!\207" [delay-mode-hooks major-mode mode-name calc-edit-mode-map calc-edit-mode-syntax-table calc-edit-mode-abbrev-table make-local-variable t kill-all-local-variables calc-edit-mode "Calc Edit" use-local-map set-syntax-table buffer-read-only nil truncate-lines run-mode-hooks calc-edit-mode-hook local-abbrev-table] 2 (#$ . 17094) nil])
#@42 

(fn HANDLER &optional ALLOW-RET TITLE)
(defalias 'calc--edit-mode #[769 "\204\306\307!\210p\310\311!\211q\210\312 \210\313\300!\210
\313\301!\210
\313\303!\210\314\315!\205)\n\313\304!\210\313\305!\210\316\317 !\313\320!\210\315\"\321 \210)\322\323\324\315\211$\210\325\206X\206X\326\327\330!\203d\331\202e\332\327\333!R\334\335\336\315\337\315\340\315&	c\210\313\341!\210`\211!\207" [calc-original-buffer calc-return-buffer pop-up-windows calc-one-window calc-edit-handler calc-restore-trail error "This command can be used only indirectly through calc-edit" get-buffer-create "*Calc Edit*" calc-edit-mode make-local-variable one-window-p t get-buffer-window calc-trail-buffer calc-allow-ret erase-buffer add-hook kill-buffer-hook #[0 "\301\302\303!\210)\304\305!\207" [calc-edit-handler nil calc-edit-finish t message "(Canceled)"] 2] propertize "Calc Edit Mode. " format-message "Press `C-c C-c'" "" " or RET" " to finish, `C-x k RET' to cancel.\n\n" font-lock-face italic read-only rear-nonsticky front-sticky calc-edit-top inhibit-read-only] 15 (#$ . 17824)])
(defalias 'calc-show-edit-buffer #[0 "p\305\306!\203\203\307\310\311!!\210\202.	\203(\312	\313H!\203(\314\312	\313H!!\210\315\310\311!!\210\211\316 \317 W\203I\203I\312\320 !\211\203H\321
!\210\210\322\323!\210\fb\207" [pop-up-windows calc-embedded-info calc-return-buffer calc-display-trail calc-edit-top one-window-p t pop-to-buffer get-buffer-create "*Calc Edit*" get-buffer-window 1 select-window switch-to-buffer window-width frame-width calc-trail-buffer delete-window set-buffer-modified-p nil] 5])
(defalias 'calc-edit-return #[0 "\203\301 \207\302 \207" [calc-allow-ret newline calc-edit-finish] 1 nil nil])
#@98 Finish `calc-edit' mode.  Parse buffer contents and push them on the stack.

(fn &optional KEEP)
(defalias 'calc-edit-finish #[256 "\306\307!\210\310\311!\204\312\313!\210p	\n\212\314!\203$q\210
\315=\204(\312\316!\210)b\210\317 \203L\320!\203@ \210\202L\306\321\"\210\322\323\"\210\211\203Y\324\323!\204Y\325 \210\326!\203h\327\326!!\210\202l\330!\210\203w\331!\210\202{\332!\210\f\203\203\333\334!\210\306\335!)\207" [calc-original-buffer calc-return-buffer calc-one-window calc-restore-trail calc-edit-disp-trail major-mode message "Working..." derived-mode-p calc-edit-mode error "This command is valid only in buffers created by calc-edit" buffer-name calc-mode "Original calculator buffer has been corrupted" buffer-modified-p functionp "Deprecated handler expression in calc-edit-handler: %S" eval t one-window-p delete-window get-buffer-window select-window switch-to-buffer bury-buffer kill-buffer calc-do #[0 "\300\301\302\"\207" [calc-trail-display 1 t] 3] "" calc-edit-top calc-edit-handler] 8 (#$ . 19554) "P"])
#@77 Cancel calc-edit mode.  Ignore the Calc Edit buffer and don't change stack.
(defalias 'calc-edit-cancel #[0 "\301\302 \210)\303\304!\207" [calc-edit-handler nil calc-edit-finish message "(Canceled)"] 2 (#$ . 20620) nil])
#@12 

(fn NUM)
(defalias 'calc-finish-stack-edit #[257 "pd{`\304\250\203#\305V\203#\306\307\"\211\262\203#
\310I\210\202\311	!\210\304\312 \306\313\"\2056\314!*\211\242\315=\203O\311!\210
A@\\b\210\315\3168!\210\317\320\321#!\207" [calc-edit-top calc-original-buffer math-expr-opers calc-language nil 1 string-match "\n." 44 switch-to-buffer math-standard-ops "[^\n	 ]" math-read-exprs error 2 calc-do make-closure #[0 "\3009\203\300\301@L\210\305\300!\207\n\203\306\307\310\"\210\301\205=\311=\203%\312\202&\f\300\313Y\2035\314\300\315\301#\202<\314\307\315\301\300[$)\207" [V0 V1 calc-edit-disp-trail last-command-event calc-simplify-mode calc-refresh-evaltos calc-trail-display 1 t 10 none 0 calc-enter-result "edit"] 5]] 11 (#$ . 20848)])
(provide 'calc-yank)