| Current File : //proc/self/root/kunden/proc/self/root/usr/share/emacs/27.2/lisp/calc/calc-embed.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!\210\300\303!\207" [require calc-ext calc-macs cl-lib] 2)
(defalias 'calc-show-plain #[(n) "\300\301!\207" [calc-do #[nil "\301\302!\210\303\304\305\306\307$\203 \310\202 \311!\207" [n calc-set-command-flag renum-stack message calc-change-mode calc-show-plain nil t "Including \"plain\" formulas in Calc Embedded mode" "Omitting \"plain\" formulas in Calc Embedded mode"] 6]] 2 nil "P"])
(defvar calc-embedded-modes nil)
(defvar calc-embedded-globals nil)
(defvar calc-embedded-active nil)
(defvar calc-embedded-all-active nil)
(make-variable-buffer-local 'calc-embedded-all-active)
(defvar calc-embedded-some-active nil)
(make-variable-buffer-local 'calc-embedded-some-active)
(defconst calc-embedded-mode-vars '(("twos-complement" . calc-twos-complement-mode) ("precision" . calc-internal-prec) ("word-size" . calc-word-size) ("angles" . calc-angle-mode) ("symbolic" . calc-symbolic-mode) ("matrix" . calc-matrix-mode) ("fractions" . calc-prefer-frac) ("complex" . calc-complex-mode) ("simplify" . calc-simplify-mode) ("language" . the-language) ("plain" . calc-show-plain) ("break" . calc-line-breaking) ("justify" . the-display-just) ("left-label" . calc-left-label) ("right-label" . calc-right-label) ("radix" . calc-number-radix) ("leading-zeros" . calc-leading-zeros) ("grouping" . calc-group-digits) ("group-char" . calc-group-char) ("point-char" . calc-point-char) ("frac-format" . calc-frac-format) ("float-format" . calc-float-format) ("complex-format" . calc-complex-format) ("hms-format" . calc-hms-format) ("date-format" . calc-date-format) ("matrix-justify" . calc-matrix-just) ("full-vectors" . calc-full-vectors) ("break-vectors" . calc-break-vectors) ("vector-commas" . calc-vector-commas) ("vector-brackets" . calc-vector-brackets) ("matrix-brackets" . calc-matrix-brackets) ("strings" . calc-display-strings)))
#@62 The mode settings for Calc buffer when put in embedded mode.
(defvar calc-embedded-original-modes nil (#$ . 2276))
#@58 Save the current Calc modes when entering embedded mode.
(defalias 'calc-embedded-save-original-modes #[nil "\212\306 \210p)\307\211\211\203Q r\nq\210 \fB\305
B\310BD\n\211 \203F @A\211 \f\311>\204< \f\211JBB) A\211 \204( ) B\211
)\202U \307\211
+\207" [modes lang calcbuf calc-language calc-language-option calc-display-just calc-create-buffer nil calc-display-origin (the-language the-display-just) calc-embedded-mode-vars v var calc-embedded-original-modes] 4 (#$ . 2397)])
#@56 Preserve the current modes when leaving embedded mode.
(defalias 'calc-embedded-preserve-modes #[nil "\203 \301 \210\302\303!\207\302\304!\207" [calc-embedded-info calc-embedded-save-original-modes message "Current modes will be preserved when leaving embedded mode." "Not in embedded mode."] 2 (#$ . 2899) nil])
#@61 Restore the original Calc modes when leaving embedded mode.
(defalias 'calc-embedded-restore-original-modes #[(calcbuf) "\306@A\f\203[ \203[ r\fq\210
\n@\232\203# \nA\232\204, \307\n@\nA\"\210\310 \203P @\211 \f@J\fA\232\204H \f@\fAL\210\310) A\211\2040 \203Z \311 \210\312 \210)\306\211+\207" [calc-embedded-original-modes modes lang changed calcbuf calc-language nil calc-set-language t calc-refresh calc-set-mode-line calc-language-option mode] 4 (#$ . 3220)])
(defvar calc-embedded-quiet nil)
#@65 A list of keybindings that might be overwritten by minor modes.
(defvar calc-override-minor-modes-map (make-sparse-keymap) (#$ . 3740))
(define-key calc-override-minor-modes-map "`" 'calc-edit)
(defvar calc-override-minor-modes (cons t calc-override-minor-modes-map))
(defalias 'calc-do-embedded #[(calc-embed-arg end obeg oend) "\203\326 p\306H=\203\" p\307H\310\311!\210\312\313!\210\314\n!\210*\202\312p\307H=\203\250 \f \306Hr \306Hq\210\315 \307V\203n \316\306\317\" \320H\232\203n \311 ;\316\306\321\"\203X \322\306!\210\323 \324H \325H \326H#\210\313\327\330!\210*\202q \331 \210)\313
@<\332
8=\313>\333
A@!\210\334?@\"@\335\336 !\210\337\n!\210A\204\244 \340\341\342B!\"\210+\202\312\343\307H!\203\310 r\307Hq\210\344\345\346\343 \"!\204\303 \347 \210\312\313!\210)\312CDEF$\210\202\312\350 \210<\351 =EG?\313\211\211\211\211\211\211\211\211 H I J K L M N O P Q\352 \210\353 \210R\204\354 \210\355`\313\311CDEF&\211\320H\242\356=\2039\313S \320HA@b\210\356\332 \320H8!\210< \311 T <\327\357!\210+ QH<\311\211=>\335\336 !\210\333U!\210?@B@\313;I\203xV\203x\327\360!\210\313 W\212\361 \210<W)W<\232\204\225W<\335\336 !\210)P\203\237\362\363!\210O\203\250\362\364!\210N\203\261\362\365!\210A\311=\204\310\340\366A\203\303\367\202\304\370\371Q!\210. \372\307!\207" [calc-embedded-info buf calcbuf info calc-embedded-modes mode 1 0 calc-embedded-original-buffer t calc-embedded nil switch-to-buffer calc-stack-size calc-top full 8 sel calc-unselect calc-embedded-set-modes 15 12 14 calc-do #[nil "\300 \207" [calc-pop-stack] 1] calc-set-mode-line 2 use-local-map remq set-buffer-modified-p buffer-modified-p calc-embedded-restore-original-modes message "Back to %s mode" format-mode-line buffer-name y-or-n-p format "Cancel Calc Embedded mode in buffer %s? " keyboard-quit calc-plain-buffer-only current-local-map barf-if-buffer-read-only calc-embedded-save-original-modes calc-find-globals calc-embedded-make-info error #[nil "\306\307\n\310H\203! \311\312\n\310H!!\210\313\n\314H\n\315H\n\316H#\2020 \313\n\314H\n\315H\n\316H#\317 \210*\306\211\211\207" [okay calc-no-refresh-evaltos info chg calc-undo-list calc-redo-list nil t 8 calc-push calc-normalize calc-embedded-set-modes 15 12 13 calc-alg-entry mode-line-buffer-identification ident] 6] #[nil "\300 \207" [calc-refresh-evaltos] 1] calc-select-buffer run-hooks calc-embedded-mode-hook calc-embedded-new-buffer-hook calc-embedded-new-formula-hook "Embedded Calc mode enabled; " "Type `C-x * x'" "Give this command again" " to return to normal" scroll-down calc-no-refresh-evaltos mode-line-buffer-identification truncate-lines buffer-read-only calc-override-minor-modes minor-mode-overriding-map-alist calc-embedded-quiet mode-name calc-embed-arg end obeg oend calc-embedded-active ident chg calc-embed-outer-bot calc-embed-outer-top calc-embed-bot calc-embed-top calc-embedded-firsttime-formula calc-embedded-firsttime-buf calc-embedded-firsttime modes calc-embedded-globals calc-embedded-original-modes calc-embedded-no-reselect calc-mode-map calc-any-evaltos str] 12])
(defalias 'calc-embedded-select #[(arg) "\302!\210 \203 \303H\242\304=\203 \305\306!\210 \2059 \303H\242\307=\2046 \303H\242\304=\2059 \303HA@\242\307=\2059 \305\310!\207" [arg calc-embedded-info calc-embedded 8 calcFunc-evalto calc-select-part 1 calcFunc-assign 2] 2 nil "P"])
(defalias 'calc-embedded-update-formula #[(calc-embed-arg) "\203A p \236\nA\211\205? \n@\306H\242\307=\203 :\2032 \n@\310H\311 X\203 \n@\312H\313 Y\203 \212\314\n@\315\316\211$\210)\202 )\207 \203a p \317H=\203a ` \320HY\203a ` \321HX\203a \322\323!\207` \324`\325\316# \f
\320HZ
\306H\242\326=\206\211 \212\314
\315\327\316$\210)
\320H\\b+\207" [calc-embed-arg calc-embedded-active entry calc-embedded-info opt info 8 calcFunc-evalto 2 region-beginning 3 region-end calc-embedded-update 14 t 0 4 5 calc-evaluate 1 calc-embedded-make-info nil error eval pt] 5 nil "P"])
(defalias 'calc-embedded-edit #[(calc-embed-arg) "\303`\304\305$\304\211\306H\242\307=\203! \n\306HA@b\210\307\310\n\306H8!\210\311\312!\210*\313 \207" [calc-embed-arg str info calc-embedded-make-info nil t 8 error 2 calc-do #[nil "\304\n\305H\306 \")\307\310\nD!\210 \311\261\207" [calc-full-float-format calc-float-format info str math-format-nice-expr 8 frame-width calc-edit-mode calc-embedded-finish-edit "\n"] 3] calc-show-edit-buffer] 6 nil "P"])
(defalias 'calc-embedded-finish-edit #[(info) "pd{`\306 \307
!\210r\310Hq\210\306\311 \312 !+\211 \242\313=\203< \307\f!\210\nA@\\b\210\313\3148!\210\315\316\"\210\317I\210\320\321\316\211$-\207" [calc-edit-top pos start str buf calc-original-buffer nil switch-to-buffer 1 math-standard-ops math-read-expr error 2 calc-embedded-original-buffer t 8 calc-embedded-update 14 info math-expr-opers calc-language val] 6])
(defalias 'calc-do-embedded-activate #[(calc-embed-arg cbuf) "\306 \210\203\n \307 \210\310 \210\311!\312W\203 \313\314\315 \"\210\202\205 \313\316\315 \"\210\212p \236\211\317
\2037 \320\321\f
# A\211\203[ @\322H @\323H{ @\324H\232\2047 \n\325 @\nA\"\241\210\2027 eb\210\326\f\327\330#\203~ \331` \327#\211\332H\242\333=\204^ \334Hb\210\202^ ,\313\335\315 \"\210\336\330!\207" [calc-embed-arg calc-embedded-active active info pat calc-embedded-announce-formula calc-plain-buffer-only calc-embedded-forget calc-find-globals prefix-numeric-value 0 message "Deactivating %s for Calc Embedded mode" buffer-name "Activating %s for Calc Embedded mode..." " := \\| \\\\gets \\| => \\| \\\\evalto " format "%s\\|\\(%s\\)" 2 3 6 delq re-search-forward nil t calc-embedded-make-info 8 error 5 "Activating %s for Calc Embedded mode...done" calc-embedded-active-state cbuf] 5])
(defalias 'calc-plain-buffer-only #[nil "\301>\205 \302\303!\207" [major-mode (calc-mode calc-trail-mode calc-edit-mode) error "This command should be used in a normal editing buffer"] 2])
(defalias 'calc-embedded-active-state #[(state) "\304\236\204\f \306\307BBp \236\211A\204 \310) \311=\203$ \f\203$ \312 \312= \313>?\314\315 !\207" [minor-mode-alist calc-embedded-active active state calc-embedded-all-active calc-embedded-some-active (calc-embedded-all-active " Active") (calc-embedded-some-active " ~Active") nil more t (nil t) set-buffer-modified-p buffer-modified-p] 4])
(defalias 'calc-embedded-original-buffer #[(switch &optional info) "\204 \303\304H!\204 \305\306!\210\n\205 \304Hq\207" [info calc-embedded-info switch buffer-name 0 error "Calc embedded mode: Original buffer has been killed"] 3])
(defalias 'calc-embedded-word #[nil "\300\301!\207" [calc-embedded (t)] 2 nil nil])
#@197 Put point at the beginning of this Calc formula, mark at the end.
This normally marks the whole formula, including surrounding delimiters.
With any prefix argument, marks only the formula itself.
(defalias 'calc-embedded-mark-formula #[(&optional body-only) "\306=\203\n \307\310!\210\311\211\211\211 \212\312
!\210)\313
\203! \202\" \314\"\210
\203- \f\202. \nb,\207" [major-mode calc-embed-outer-bot calc-embed-outer-top calc-embed-bot calc-embed-top body-only calc-mode error "This command should be used in a normal editing buffer" nil calc-embedded-find-bounds push-mark t] 4 (#$ . 10431) "P"])
(defalias 'calc-embedded-find-bounds #[(&optional plain) "l\203 n\203 `\306Zf\307=\204 \310u\210`\311 !\203\" \311\n!\203. \312 \313\314#\204. \315\316!\210h\317=\203= g\317=\203= \310u\210`\320\225b\210\311\321!\203L \313\210g\307=\203U \322u\210n\204e g\323=\203e \322u\210\202Y \f\304=\204| \311\324
!!\203| \320\225b\210\325!\210`\326\n\313\314#\204\213 \315\327!\210`W\203\225 \315\330!\210g\307=\203\242 n\204\242 \322u\210`\320\224b\210h\307=\203\262 \310u\210l\204\302 h\323=\203\302 \310u\210\202\266 `\211 )\207" [home calc-embedded-open-formula calc-embedded-close-formula calc-embed-outer-top plain calc-embedded-open-plain 2 10 -1 looking-at re-search-backward nil t error "Can't find start of formula" 36 0 "[ ]*$" 1 32 regexp-quote search-forward re-search-forward "Can't find end of formula" "Not inside a formula" calc-embedded-close-plain calc-embed-top calc-embed-outer-bot calc-embed-bot] 4])
#@218 Kill the formula surrounding point.
If Calc Embedded mode was active, this deactivates it.
The formula (including its surrounding delimiters) is saved in the kill ring.
The command \[yank] can retrieve it from there.
(defalias 'calc-embedded-kill-formula #[nil "\203 \301\302!\210\303 \210\304`\305 \"\210\306 \207" [calc-embedded-info calc-embedded nil calc-embedded-mark-formula kill-region mark pop-mark] 3 (#$ . 11972) nil])
#@69 Save the formula surrounding point as if killed, but don't kill it.
(defalias 'calc-embedded-copy-formula-as-kill #[nil "\212\300 \210\301`\302 \"\210\303 )\207" [calc-embedded-mark-formula copy-region-as-kill mark pop-mark] 3 (#$ . 12409) nil])
(defalias 'calc-embedded-duplicate #[nil "\306\211\211\211\211 \2030 \307H\310\\\311H\310\\\312H\310\\\313H\310\\\314\306!\210\2023 \315 \210\nb\210\316c\210`\317p \n#\210
Z\\b\210\203Q \320\202R \321 \314
Z\\ \f Z\\ \211\n Z\\$.\207" [calc-embedded-info new-top calc-embed-outer-bot calc-embed-outer-top calc-embed-bot calc-embed-top nil 2 0 3 4 5 calc-embedded calc-embedded-find-bounds "\n" insert-buffer-substring t x already calc-embedded-quiet] 7 nil nil])
(defalias 'calc-embedded-next #[(arg) "\305!p \236A\211\nG \n\204 \306\307!\210\310U\206\244 \311U\203S `\n@\312HX\2035 \fS\n8\313Hb\202\244 A\203K ` A@\312HV\203K A\211\2026 @\313Hb\202\244 \311W\203i \314\311!\210\314\315\f\316_\317#!\202\244 S\f\246T \203\203 ` @\313HY\203\203 A\211\204s S\211\310V\203\233 \203\225 A\202\227 \nA\202\203 \206\240 \n@\313Hb+\207" [arg calc-embedded-active active p num prefix-numeric-value error "No active formulas in buffer" 0 -1 3 2 calc-embedded-next + 1000 1] 6 nil "P"])
(defalias 'calc-embedded-previous #[(arg) "\301\302![!\207" [arg calc-embedded-next prefix-numeric-value] 3 nil "p"])
(defalias 'calc-embedded-new-formula #[nil "\306=\203\n \307\310!\210 \203 \311\312!\210\312\211\211\211 h\313=\2038 \314\315\"\2038 `S\316u\210\317\320\"c\210\202> `c\210`\321c\210`c\210g\313=\203[ \314\322\"\203[ \323\320!\210`
b\210\324 \311
\f \n$-\207" [major-mode calc-embedded-info calc-embed-outer-bot calc-embed-outer-top calc-embed-bot calc-embed-top calc-mode error "This command should be used in a normal editing buffer" calc-embedded nil 10 string-match "\\`\n" -1 substring 1 " " "\n\\'" delete-char x calc-embedded-open-new-formula calc-embedded-close-new-formula calc-embedded-quiet] 5 nil nil])
(defalias 'calc-embedded-forget #[nil "\301p\236\"\302\303!\207" [calc-embedded-active delq calc-embedded-active-state nil] 3 nil nil])
(defalias 'calc-embedded-set-modes #[(gmodes modes local-modes &optional temp) "\306 \307 \310\211\211 \f\203{ \f@9\204t \f@@\236\211\203+ \nA\311=\203t \f@@\236\211\203= \nA\311=\203t \f@A\211\311=\203Q \f@@\236A@C\f@@J \232\204t \312\203n \f@@\f@@JBB\f@@ L\210\fA\211\204 \211\203\310 \f@@\236\211\203\224 \nA\311=\203\301 \f@A\211\311=\204\301 \f@@J \232\204\301 \312\203\273 \f@@\f@@JBB\f@@ L\210\fA\211\204\202 \211\203\f@A\211\311=\204\374 \f@@J \232\204\374 \312\203\366 \f@@\f@@JBB\f@@ L\210\fA\211\204\317 \203\312=\204\313
!\210\314!\210 \2036\2046@\315=\203,\316\202/@\317D\320 \210 .\207" [gmodes value found changed v the-display-just calc-embedded-language calc-embedded-justify nil default t calc-embedded-set-justify calc-embedded-set-language fix float 0 calc-refresh the-language modes local-modes calc-mode-var-list temp calc-embed-prev-modes calc-float-format calc-full-float-format] 7])
(defalias 'calc-embedded-language #[nil "\203 D\207 \207" [calc-language-option calc-language] 2])
(defalias 'calc-embedded-set-language #[(lang) "\304 :\203 A@ @ \n=\203 \232\206 \305 \306#)\207" [option lang calc-language calc-language-option nil calc-set-language t] 4])
(defalias 'calc-embedded-justify #[nil "\203 D\207 \207" [calc-display-origin calc-display-just] 2])
(defalias 'calc-embedded-set-justify #[(just) ":\203 A@@\211\207\303\211\207" [just calc-display-origin calc-display-just nil] 2])
(defalias 'calc-find-globals #[nil "\306=\203\n \307\310!\210\311\312!\210\313\211`\313\211 eb\210\314\315\313\316#\203I \317\320\224\320\225{\"\211\203 \nA\f\236\204 \nA\321\322\224\322\225{!@B\fB\202 \316\fB\n b-\207" [major-mode value found save-pt modes case-fold-search calc-mode error "This command should be used in a normal editing buffer" make-local-variable calc-embedded-globals nil re-search-forward "\\[calc-global-mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)\\]" t assoc 1 read-from-string 2 calc-embedded-mode-vars] 5 nil nil])
(defalias 'calc-embedded-find-modes #[nil "\306`\307\306\211\211\211\211
\203\266 \310\311\306\307#\203\266 \312u\210\313\314!\203N \315\316\224\316\225{\"\211\203N A\f\236\204\260 A\317\320\224\320\225{!@B\fB\211\204\260 \313\321!\203{ \315\316\224\316\225{\"\211\203{ A\n\236\204\260 A\317\320\224\320\225{!@B\nB\211\204\260 \313\322!\203\250 \315\316\224\316\225{\"\211\203\250 A \236\204\260 A\317\320\224\320\225{!@B B\211\204\260 \313\323!\203\260 \306\324u\210\202 b\210\325\f\236\204\324 \326\327\"\211 \203\323 \325 AB\fB)\f \nE.\207" [value found pmodes emodes modes no-defaults nil t search-backward "[calc-" 6 looking-at "mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]" assoc 1 read-from-string 2 "perm-mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]" "edit-mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]" "defaults]" -6 the-language cl-assoc-if derived-mode-p save-pt case-fold-search calc-embedded-mode-vars calc-language-alist lang] 9])
(defalias 'calc-embedded-make-info #[(point cbuf fresh &optional calc-embed-top calc-embed-bot calc-embed-outer-top calc-embed-outer-bot) "p\236\211 \205 \f\205 \f\306\232? \f @\307\211 A B\307 C\n\204\341 pC\211B\310\211D\203\341 \311\312E\"\311\312F\"\311\312G\"\311\312H\"\311\312I\"\311\312J\" K L M N O\211 P\203h \313\314!\210PA\fO\203\202 \313\315!\210\313\316!\210OA@
OAA@N\203\221 \313\317!\210NA@M\203\253 \313\320!\210\313\321!\210MA@MAA@L\203\305 \313\322!\210\313\323!\210LA@LAA@K\203\337 \313\324!\210\313\325!\210KA@KAA@.\nA\203\370 Q\nA@\326HV\203\370 \nA\211\202\342 \nA\203Q\nA@\327HY\203\nA@B\2024\310R\330\331\307\"B\310\211AB\332pI\210B\333S\2062\212\334 \210p)I\210\f\250\204?\f\335\232\203\324T\204\324\f\336\232\203_B\327\337\340 !I\210B\326\337\341 !I\210\202\273\342U!\211U\332U\203\200B\327\337\343 !I\210B\326\337\344 !I\210\202\273BU\332V\203\215\327\202\216\326\345 I\210U\332V\203\244USy\210\307\210\202\251UTy\210BU\332V\203\266\326\202\267\327\345 I\210B\346\337B\327H!I\210B\347\337B\326H!I\210\202ZB\346H\203\346B\327H\211@\202Z\f:\203 \350\351!\210\352!\203 \337\332\224!\337\332\225!T\fVTW\202$\345 \345 T\fVTW\202$\f\204$\353\354!\210B\327\337\fT^!I\210B\326\337\fT]!I\210B\346\337V\206GB\327H!I\210B\347\337W\206WB\326H!I\210B\327Hb\210A\203\203n\204oB\355\310I\210B\326Hb\210n\204\203l\204\203B\355\310I\210 \203\246\356 XB\357X@I\210B\360XA@I\210B\361\327X8I\210)B\362YI\210B\327HB\326H{C
\204\306CB\363H\232\204@\203\346B\363H\203\346B\346\307I\210\364QS\307#\210\307A\202 Z [ZG \\\307\211 ] ^\307\211 _ `rB\333Hq\210\365B\362HB\357HB\361H#\210CG\\V\203J\366C\332\\#Z\232\203J\367\370[!C\\#\211^\203J\371\366C\\^#!_\202n\367\372C\"\203k\332\\\3731a\374C!0\202f\210\375C!_\202n\307_)_\242\376=\203\213\376\377B\327H\\_A@#\327_8E_B\363CI\210B\201a _I\210_\211`\242\201b =\203\261`A@`\202\327`\242\376=\203\327A\203\304\307A\202\327\n\201c B\nA\"\241\210\201d \201e !\210B\201f `\242\201g =\205\352`A@I\210_\242\201h >\203\375\201i _!\210B\201j ]I\210B\201k \307I\210.A\203%\nB\nAB\241\210\201d \201l !\210B.\207" [calc-embedded-active bufentry found fresh calc-embed-top force (t) nil t cl-assoc-if derived-mode-p make-local-variable calc-embedded-announce-formula calc-embedded-open-formula calc-embedded-close-formula calc-embedded-word-regexp calc-embedded-open-plain calc-embedded-close-plain calc-embedded-open-new-formula calc-embedded-close-new-formula calc-embedded-open-mode calc-embedded-close-mode 3 2 make-vector 16 0 1 calc-create-buffer (4) (4) copy-marker line-beginning-position line-end-position prefix-numeric-value region-beginning region-end point-marker 4 5 require thingatpt thing-at-point-looking-at calc-embedded-find-bounds plain 7 calc-embedded-find-modes 12 13 14 15 6 calc-embedded-make-info calc-embedded-set-modes substring string-match regexp-quote math-read-plain-expr "[^ \n]" (error) math-read-big-expr math-read-expr error + fixed new-info info str calc-embedded-firsttime-buf calc-embedded-announce-formula-alist calc-embedded-open-close-formula-alist calc-embedded-word-regexp-alist calc-embedded-open-close-plain-alist calc-embedded-open-close-new-formula-alist calc-embedded-open-close-mode-alist newmode newnewform newplain newword newform newann point calc-embedded-firsttime-formula cbuf calc-embed-bot calc-embed-arg calc-embed-outer-top calc-embed-outer-bot modes calc-embedded-globals open-plain close-plain pref-len calc-embed-vars-used suff-pos val temp 8 calcFunc-evalto delq calc-embedded-active-state less 9 calcFunc-assign (calcFunc-evalto calcFunc-assign) calc-embedded-find-vars 10 11 more] 9])
(defalias 'calc-embedded-find-vars #[(x) "\211:?\206 \211@\302>\262\203& \242\303=\205} \304 \"?\205} C B\211\207@\305=\2033 \306A@!\207@\307=\203@ \306\3108!\207@\311=\203n A@\242\303=\203n \3108\211:?\206] \211@\302>\262\203n \304 \"\204n C BA\211\205} \306@!\210\202n \207" [x calc-embed-vars-used (frac float cplx polar hms date mod var) var assoc calcFunc-evalto calc-embedded-find-vars calcFunc-assign 2 calcFunc-subscr] 3])
(defalias 'calc-embedded-evaluate-expr #[(x) "\306H\211\204\f \307\n!\210 \203D \310H \236\311 \212\312\313!\210
\204* \314 \210\310H \236 \203< \315 @@
\"\210 A\211\204. )\316\n!*\202I \317\320\n!!)\207" [calc-embedded-info calc-embed-vars-used x calc-embedded-active math-ms-args active 10 calc-embedded-find-vars 0 nil calc-embedded-original-buffer t calc-embedded-activate calc-embedded-eval-get-var calc-embedded-subst calc-normalize math-evaluate-expr-rec] 4])
(defalias 'calc-embedded-subst #[(x) "\242\302=\203' A\203' \303A@!\302A@ \242\304=\203# \305 8\202$ E)\207\242\304=\203@ G\306U\203@ \304A@\303\3058!E\207\307\310\311!!!\207" [x rhs calcFunc-evalto calc-embedded-subst calcFunc-assign 2 3 calc-normalize math-evaluate-expr-rec math-multi-subst-rec] 5])
(defalias 'calc-embedded-eval-get-var #[(var base) " \306H\307\211
A\211\203*
@\310H\232\203\n \f
@\311HV\203*
\211\204\n \2030
\205\203
@\211\306H
\311H{
\312H\232\203{
\313H\204T \212\314
\315\316\307$\210)
\313H\211\242\317=\203c \306\n8\n\242\320=\203n \306\n8\nBB\211\202\203 \321 \210\322\",\207" [base calc-embedded-info val last point entry 2 nil 9 3 6 11 calc-embedded-update 14 t calcFunc-evalto calcFunc-assign calc-embedded-activate calc-embedded-eval-get-var var math-ms-args] 6])
(defalias 'calc-embedded-update #[(info which need-eval need-display &optional str entry old-val) "\306 \306\211 )*\307H +*\310H ,-\204 +-+\242\311=\203+ \312.\313\216*\314Hq\210/\203R \315*\316H*\317H*/H.\203O \320\202P \312$\210+\242\321>\203_ \322+!\2100\203r * 1\323+!\211+))0\324=\204\201 +\242\311=\203\210 *\307+I\210*\325\306I\210*\326
I\210*\310\306I\210.\204\247 +\242\311=\203t2\327=\203\262 \314\202\263 \330 34\204\301 +\314\306E45\204\337 \306 6\3314!)52\327=\203\337 \3325\330\333#57\203\365 \n8 9\334+\330\")\f5R5\212\335\312*\"\2105*\336H\232\204s*\337H*\340HZ\330\306 : ; <*\341Hb\210`*\340H|\2104A@3TV\203Q*\342H\203Q\343 \210\344\345!\203E\345c\210\202Q\346c\210\343 \210\314;\333u\2105c\210*\340H`;\\\306\223\210*\337H`<\\\306\223\210*\3365I\210+*+\242\311=\203\210\341+8)+A@++\242\347=\203\305*\325+A@I\210*\310)\206\254* 1\323\341+8!)I\210,*\310H\232\206\345\350+A@*\330H\"\202\345-\242\311=\203\323-A@--\242\347=\205\345\350-A@*\330H\".\207" [calc-embed-prev-modes calc-embedded-open-plain open-plain calc-embedded-close-plain close-plain calc-embed-vars-used nil 8 11 calcFunc-evalto t #[nil "\303Hq\210 \205C @@\304=\203 \n\203; \305 @A!\210\202; @@\306=\2033 \n\203; \307 @A!\210\202; @@ @AL\210 A\211\204 \310\207" [info calc-embed-prev-modes need-display 1 the-language calc-embedded-set-language the-display-just calc-embedded-set-justify nil] 3] 1 calc-embedded-set-modes 15 12 full (calcFunc-evalto calcFunc-assign) calc-embedded-find-vars math-evaluate-expr eval 9 10 big 0 math-format-stack-value substring -1 math-format-flat-expr calc-embedded-original-buffer 6 5 3 2 7 delete-horizontal-space looking-at "\n" "\n\n" calcFunc-assign calc-embedded-var-change evalled info val old-eval old-val need-display which need-eval calc-embedded-info calc-language extra entry str calc-line-numbering calc-show-plain calc-full-float-format calc-float-format buffer-read-only adjbot delta] 6])
(defvar calc-embedded-no-reselect nil)
(defalias 'calc-embedded-select-buffer #[nil "p\306H=\203\216 \307\211` \310HW\204 ` \311HV\2031 \f\2041 \312 \313\314!\210\315\307!\210\315\307!\210)i` \316HZ^\306] \316H`X\203V \317 \316H`\"n\203Q \306\202R \320Z\202W \306 \320Hq\210\203p \306U\203m \306\202p S\321\320!\210\203} \n\310\\ \306V\203\206 y\210\nd`Z^u+\207\322 \207" [calc-embedded-info vert horiz info calc-embedded-no-reselect calc-embedded-quiet 0 nil 4 5 t message "(Switching Calc Embedded mode to new formula.)" calc-embedded 2 count-lines 1 calc-cursor-stack-index calc-select-buffer calc-show-plain calc-line-numbering] 4])
(defalias 'calc-embedded-finish-command #[nil "p\306\211r \307Hq\210\310 \311V\203\\ `in \312\311!\210`W\203W \312\307!\210`Y\203W
\203: \313\202; \311Z\314`\"\f\203J \311\202K \307Z\203W \307T]b\210+) \205{ \311Hq\210 \315Hb\210\311V\203t y\210 \311]u\210\nq+\207" [vert horiz buf calc-embedded-info bol col nil 1 calc-stack-size 0 calc-cursor-stack-index 4 count-lines 2 pt calc-line-numbering calc-show-plain] 3])
(defalias 'calc-embedded-stack-change #[nil "\206\266 r \306Hq\210 \307=\203 \306\202 \310 ` \311 \310U\211 \203+ \312\306\313E\202/ \314\306\315\"
\n\316H \313\211 \313 \203J \317 \202\234 \212\320\306!\210` \320\310!\210`\fZ S{ ) \203\234 \310 \321 \322\" \323\324 #\211 \203\233 \321 \310 T#\321 \325\\\"P T \202s )\326\327!\210\n\316
@I\210\330\n\331\313\327
&.\n\207" [calc-executing-macro calc-embedded-info info calc-language extra-line the-point 1 big 0 calc-stack-size (var empty var-empty) nil calc-top entry 8 "empty" calc-cursor-stack-index substring 4 string-match "\n...." 5 calc-embedded-original-buffer t calc-embedded-update 13 empty old-val top bot str calc-line-numbering pos] 9])
(defalias 'calc-embedded-mode-line-change #[nil "\212\302\303!\210 \304\305 !*\207" [mode-line-buffer-identification str calc-embedded-original-buffer t set-buffer-modified-p buffer-modified-p] 2])
(defalias 'calc-embedded-modes-change #[(vars) "@\306=\203 \307@\310=\203 \311\203% \312@ \"\204% A\211\204 \203V\n\203V\n\313=\204V\212\n\211\314=\203@ \315\202D \316\317 \" \320 \321 *\322\323\" + \324\267\202d \325\202e \326\202e \327\202e \330 ,\330\211 - .\330\211 / 0\331\332!\210\212 \333=\203\213 d-e.10\202\274 2\334Hb\210\335 \210`-`\336Ze].,\205\250 2,H0\337\316\34034#.\332#\203\274 `.\205S-b\210\312@ \"@\211/\203H\330@0\236 5 65\203\351 5+@\241\210\202@+@B0B0,\2032,0I\210\202 \333=\20301\337\316\341\f/#.\332#\203/\342\224b\210`\342\225|\210\343+@!c\210\202G-b\210\3447\345\f\346/\347\343+@!\3508& \210*A+A+\202\274 .\f\207\205b\n\313=\205b\351 \207" [vars calc-embedded-mode-vars calc-mode-save-mode save-mode header the-language calc-language (the-language) calc-display-just (the-display-just) rassq save local "calc-mode:" format "calc-%s-mode:" calc-embedded-language calc-embedded-justify mapcar symbol-value #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (local 88 edit 92 perm 96)) 12 13 14 nil calc-embedded-original-buffer t global 4 beginning-of-line 1000 re-search-backward "\\(%s\\)[^]*\\(%s\\)\\|\\[calc-defaults]" "\\[%s *%s: *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]" 1 prin1-to-string insert-before-markers "[" " " ": " "]" calc-embedded-save-original-modes the-display-just values num base limit mname mlist calc-embedded-globals calc-embedded-info calc-embedded-open-formula calc-embedded-close-formula found buffer-read-only calc-embedded-open-mode calc-embedded-close-mode] 11])
(defalias 'calc-embedded-var-change #[(var &optional buf) "9\203 \300\306\307\310!\"\203 \311\312\310!\313\"!\202 E\212 ?\n\314 \2032 \f\236\f>\f\203\324 \314\315\f@@!\205B \f@A ! \203\306 \316 @\317H\"\203\275
\203| @\320H\203\275 @\320\321I\210 @\322H\203\275 \323 @\322H!\210\202\275 @\324Hq\210 @\325H @\326H{ @\327H\232\203\255 \321 \"#\204\243 \330\331!\210\321\332\333!\210)\202\275 \f@\334 @\f@A\"\241\210\330\335!\210 A\211 \204K * ?\205\317 \fA\211\2046 \206\340 #\206\340 \330\336!,\207" [var calc-auto-recompute calc-embedded-active first bp manual string-match "\\`var-.+\\'" symbol-name intern substring 4 t buffer-name assoc 10 11 nil 9 calc-embedded-var-change 0 2 3 6 message "Recomputing..." calc-do #[nil "@\301Hq\210\302@\303\304\305$\207" [p 0 calc-embedded-update 14 t nil] 5] delq "(Tried to recompute but formula was changed or missing)" "" buf p calc-embedded-no-reselect calc-embedded-info calc-embedded-quiet] 6])
(provide 'calc-embed)