| 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-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:45 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-mode.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-line-numbering #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\211$\203 \305\202 \306!\207" [n message calc-change-mode calc-line-numbering t "Displaying stack level numbers" "Hiding stack level numbers"] 6]] 2 nil "P"])
(defalias 'calc-line-breaking #[(n) "\300\301!\207" [calc-do #[nil "\203 \302!\211\303V\205 \304W\206 \202 ?\305\301\306#\2031 \250\203- \307\310\"\207\307\311!\207\307\312!\207" [n calc-line-breaking prefix-numeric-value 0 5 calc-change-mode t message "Breaking lines longer than %d characters" "Breaking long lines in Stack display" "Not breaking long lines in Stack display"] 4]] 2 nil "P"])
(defalias 'calc-left-justify #[(n) "\300\301!\207" [calc-do #[nil "\203 \301!\302\303\304D\305#\210\203 \306\307\"\207\306\310!\207" [n prefix-numeric-value calc-change-mode (calc-display-just calc-display-origin) nil t message "Displaying stack entries indented by %d" "Displaying stack entries left-justified"] 4]] 2 nil "P"])
(defalias 'calc-center-justify #[(n) "\300\301!\207" [calc-do #[nil "\203 \301!\302\303\304D\305#\210\203 \306\307\"\207\306\310!\207" [n prefix-numeric-value calc-change-mode (calc-display-just calc-display-origin) center t message "Displaying stack entries centered on column %d" "Displaying stack entries centered in window"] 4]] 2 nil "P"])
(defalias 'calc-right-justify #[(n) "\300\301!\207" [calc-do #[nil "\203 \301!\302\303\304D\305#\210\203 \306\307\"\207\306\310!\207" [n prefix-numeric-value calc-change-mode (calc-display-just calc-display-origin) right t message "Displaying stack entries right-justified to column %d" "Displaying stack entries right-justified in window"] 4]] 2 nil "P"])
(defalias 'calc-left-label #[(s) "\300\301!\207" [calc-do #[nil "\301\232\204\n \302P\303\304\305#\207" [s "" " " calc-change-mode calc-left-label t] 4]] 2 nil "sLefthand label: "])
(defalias 'calc-right-label #[(s) "\300\301!\207" [calc-do #[nil "\301\232\204\n \302P\303\304\305#\207" [s "" " " calc-change-mode calc-right-label t] 4]] 2 nil "sRighthand label: "])
(defalias 'calc-auto-why #[(n) "\300\301!\207" [calc-do #[nil "\203 \302!\211\303X\203 \304\202/ \305V\203/ \306\202/ \306=?\205. \203- \306\202. \305\307\301\304#\210\204= \310\311!\207\306=\203G \310\312!\207\310\313!\207" [n calc-auto-why prefix-numeric-value 0 nil 1 t calc-change-mode message "User must press `w' to explain unsimplified results" "Automatically doing `w' to explain unsimplified results" "Automatically doing `w' only for unusual messages"] 5]] 2 nil "P"])
(defalias 'calc-group-digits #[(n) "\300\301!\207" [calc-do #[nil "\203$ \302!\211\303V\204' \304W\204' \304U\203 \305\202' \202' ?\306\301\307#\210\2045 \310\311!\207\250\203A \310\312\313!\"\207\310\314!\207" [n calc-group-digits prefix-numeric-value 0 -1 nil calc-change-mode t message "Grouping is off" "Grouping every %d digits" math-abs "Grouping is on"] 5]] 2 nil "P"])
(defalias 'calc-group-char #[(ch) "\300\301!\207" [calc-do #[nil "\302Y\204\n \303\304!\210\305U\203 \306\202 \307!\310\311 #\210\312\313\"\207" [ch calc-group-digits 32 error "Control characters not allowed for grouping" 92 "\\," char-to-string calc-change-mode calc-group-char message "Digit grouping character is \"%s\""] 4]] 2 nil "cGrouping character: "])
(defalias 'calc-point-char #[(ch) "\300\301!\207" [calc-do #[nil "\301Y\204\n \302\303!\210\304\305\306!\307#\210\310\311\"\207" [ch 32 error "Control characters not allowed as decimal point" calc-change-mode calc-point-char char-to-string t message "Decimal point character is \"%c\""] 4]] 2 nil "cCharacter to use as decimal point: "])
(defalias 'calc-normal-notation #[(n) "\300\301!\207" [calc-do #[nil "\303\304\203\f \305!\202
\306\211\307\\\310\245 \311W\204 \n\312V\203$ \313\314!\210\315\nH \307\\\310\246\307ZD\211*\316#\210A@\306=\203A \317\320!\207A@\306V\203P \317\321A@\"\207\317\322A@\"\207" [n val mode calc-change-mode calc-float-format prefix-numeric-value 0 5000 10000 -5000 3 error "Prefix out of range" [float sci eng fix] t message "Displaying floating-point numbers normally" "Displaying floating-point numbers with %d significant digits" "Displaying floating-point numbers with (precision%d)"] 6]] 2 nil "P"])
(defalias 'calc-fix-notation #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\203
\304!\202 \305D\211\306#\210\307\310\311A@!\"\207" [n calc-change-mode calc-float-format fix prefix-numeric-value 0 t message "Displaying floats with %d digits after decimal" math-abs] 5]] 2 nil "NDigits after decimal point: "])
(defalias 'calc-sci-notation #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\203
\304!\202 \305D\211\306#\210A@\305=\203 \307\310!\207A@\305V\203/ \307\311A@\"\207\307\312A@\"\207" [n calc-change-mode calc-float-format sci prefix-numeric-value 0 t message "Displaying floats in scientific notation" "Displaying scientific notation with %d significant digits" "Displaying scientific notation with (precision%d)"] 5]] 2 nil "P"])
(defalias 'calc-eng-notation #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\203
\304!\202 \305D\211\306#\210A@\305=\203 \307\310!\207A@\305V\203/ \307\311A@\"\207\307\312A@\"\207" [n calc-change-mode calc-float-format eng prefix-numeric-value 0 t message "Displaying floats in engineering notation" "Displaying engineering notation with %d significant digits" "Displaying engineering notation with (precision%d)"] 5]] 2 nil "P"])
(defalias 'calc-truncate-stack #[(n &optional rel) "\300\301!\207" [calc-do #[nil "\211\306\307\310E!\210\311\312 ! \203K
\203 \n\f\\\2021 \f\311W\203. \f\313 \\\2021 \fT\f\314W\203; \314\202P \f\313 V\203G \313 \202P \f\202P \314\315`!]\211\nU\204j \316\314\n\317#\210\320\321 \"\210\203j \322 \210*\306\307\310\311E!\210 \211*\207" [calc-stack-top newtop oldtop n nn rel calc-record-undo set saved-stack-top 0 prefix-numeric-value calc-stack-size 1 calc-locate-cursor-element calc-pop-stack t calc-push-list (top-of-stack) calc-refresh calc-line-numbering] 5]] 2 nil "P"])
(defalias 'calc-truncate-up #[(n) "\301\302\"\207" [n calc-truncate-stack t] 3 nil "p"])
(defalias 'calc-truncate-down #[(n) "\301[\302\"\207" [n calc-truncate-stack t] 3 nil "p"])
(defalias 'calc-display-raw #[(arg) "\300\301!\207" [calc-do #[nil "?\205 \203
\302\202 \303\304 \210\205 \305\306!\207" [calc-display-raw arg 0 t calc-do-refresh message "Press d ' again to cancel \"raw\" display mode"] 2]] 2 nil "P"])
(defalias 'calc-save-modes #[nil "\300\301!\207" [calc-do #[nil "\306\307\310\" \204 \311\312!\210\313\314 !!q\210eb\210\315\316\306\317#\203; \320 \210`\315\321\306\317#\203; \320 \210\322y\210\n`|\210\202D db\210\323c\210\324u\210\325\326 \327\261\210 \f\203\226 \f@@ \f@A@ $ @\211 %$\232\204\214 \330\331
!\332\261\210%<\204z %9\203\204 %\333>\204\204 \334c\210\335%!\336\261\210+\fA A\202M )\337\340!\210\341c\210\342 \210&\205\250 \343 *\207" [calc-mode-var-list vals pos calc-settings-file list v nil mapcar #[(v) "@J\207" [v] 1] error "No `calc-settings-file' specified" find-file-noselect substitute-in-file-name search-forward ";;; Mode settings stored by Calc" t beginning-of-line "\n;;; End of mode settings" 1 "\n\n" -1 ";;; Mode settings stored by Calc on " current-time-string "\n" "(setq " symbol-name " " (nil t) "'" prin1-to-string ")\n" run-hooks calc-mode-save-hook ";;; End of mode settings\n" save-buffer calc-embedded-save-original-modes def val calc-embedded-info] 5]] 2 nil nil])
(defalias 'calc-settings-file-name #[(name &optional arg) "\300\301!\207" [calc-do #[nil "\203\n \306!\202 \307\310 !\311\230\203 \312\313\n\"\207\314!\315W\2038 \211 \2037 \f@@\f@A@L\210\fA\211\204' ) \211\203J
\n\232\203J \307V\206Z \307W\206Z \316 \317\"\206Z \312\320!\207" [arg name calc-settings-file calc-mode-var-list list user-init-file prefix-numeric-value 0 file-name-nondirectory "" message "Calc settings file is \"%s\"" math-abs 2 load t "New file"] 4]] 2 nil (list (read-file-name (format "Settings file name (normally %s): " (abbreviate-file-name calc-settings-file))) current-prefix-arg)])
(defalias 'math-get-modes-vec #[nil "\306 \307 \n A@\310X\203 A@\\\202 A@ @\311\236A\\\f\312=\203) \313\2024 \f\314=\2033 \315\2024 \316
\203< \316\202= \310 \203F \316\202G \310 \317=\203R \316\202S \310 \320=\203^ \310\202z \321=\203i \322\202z \323=\203t \324\202z \206z \325!\326=\203\205 \325\202\275 !\327=\203\220 \310\202\275 !\330=\203\233 \313\202\275 !\331=\203\246 \315\202\275 !\332=\203\261 \333\202\275 !\334=\203\274 \335\202\275 \316\"\316=\203\310 \310\202\322 \"\203\321 \316\202\322 \325\257
\207" [calc-internal-prec calc-word-size calc-number-radix calc-float-format calc-angle-mode calc-symbolic-mode vec calc-stack-size 0 ((float . 0) (sci . 10000) (eng . 20000) (fix . 30000)) rad 2 hms 3 1 polar scalar matrix -2 sqmatrix -3 -1 none num binary alg ext 4 units 5 calc-prefer-frac calc-complex-mode calc-matrix-mode calc-simplify-mode calc-infinite-mode] 14])
(defalias 'calc-get-modes #[(n) "\300\301!\207" [calc-do #[nil "\302 \303\304\305 \203' \306 !\211\307Y\203! GW\203! 8\202( \310\311!\202( #)\207" [modes n math-get-modes-vec calc-enter-result 0 "mode" prefix-numeric-value 1 error "Prefix out of range"] 5]] 2 nil "P"])
(defalias 'calc-shift-prefix #[(arg) "\300\301!\207" [calc-do #[nil "\203\f \302!\303V\202 ?\304 \210\305 \203 \306\202 \307!\207" [arg calc-shift-prefix prefix-numeric-value 0 calc-init-prefixes message "Prefix keys are now case-insensitive" "Prefix keys must be unshifted (except V, Z)"] 2]] 2 nil "P"])
(defalias 'calc-mode-record-mode #[(n) "\300\301!\207" [calc-do #[nil "\304\302\204T \204 \n\305=\203 \306\202\213 \305\202\213 \n\306=\203\" \307\202\213 \n\307=\203, \310\202\213 \n\310=\2036 \311\202\213 \n\311=\203@ \305\202\213 \n\305=\203J \312\202\213 \n\312=\205\213 \306\202\213 \313!\211\314U\203b \312\202\213 \315U\203l \307\202\213 \316U\203v \310\202\213 \317U\203\200 \311\202\213 \320U\203\212 \305\202\213 \306\"\210\321\322\n\306=\203\235 \203\235 \323\202\311 \n\307=\203\247 \324\202\311 \n\310=\203\261 \325\202\311 \n\311=\203\273 \326\202\311 \n\305=\203\310 \327\330 \"\202\311 \331\"\207" [n calc-embedded-info calc-mode-save-mode calc-settings-file calc-change-mode save local edit perm global nil prefix-numeric-value 0 2 3 4 5 message "%s" "Recording mode changes with [calc-mode: ...]" "Recording mode changes with [calc-edit-mode: ...]" "Recording mode changes with [calc-perm-mode: ...]" "Recording mode changes with [calc-global-mode: ...]" format "Recording mode changes in \"%s\"" "Not recording mode changes permanently"] 5]] 2 nil "P"])
(defalias 'calc-total-algebraic-mode #[(flag) "\300\301!\207" [calc-do #[nil "\302=\203\n \300\303!\207\304\305\306\"\210\307 !\210\310\311!\207" [calc-algebraic-mode calc-alg-map total nil calc-change-mode (calc-algebraic-mode calc-incomplete-algebraic-mode) (total nil) use-local-map message "All keys begin algebraic entry; use Meta (ESC) for Calc keys"] 3]] 2 nil "P"])
(defalias 'calc-algebraic-mode #[(flag) "\300\301!\207" [calc-do #[nil "\203 \304\305\306 ?D\"\210\202 \304\307\n?\306D\"\210\310 !\210\311\n\203$ \312\202- \203, \313\202- \314!\207" [flag calc-incomplete-algebraic-mode calc-algebraic-mode calc-mode-map calc-change-mode (calc-algebraic-mode calc-incomplete-algebraic-mode) nil (calc-algebraic-mode calc-incomplete-algebraic-mode) use-local-map message "Numeric keys and ( and [ begin algebraic entry" "Only ( and [ begin algebraic entry" "No keys except ' and $ begin algebraic entry"] 4]] 2 nil "P"])
(defalias 'calc-symbolic-mode #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305$\203 \306\202 \307!\207" [n message calc-change-mode calc-symbolic-mode nil t "Inexact computations like sqrt(2) are deferred" "Numerical computations are always done immediately"] 6]] 2 nil "P"])
(defalias 'calc-infinite-mode #[(n) "\300\301!\207" [calc-do #[nil "\301=\203 \302\303\304\"\210\305\306!\207\305\302\303\307\310$\203 \311\202 \312!\207" [n 0 calc-change-mode calc-infinite-mode 1 message "Computations like 1 / 0 produce \"inf\"" nil t "Computations like 1 / 0 produce \"uinf\"" "Computations like 1 / 0 are left unsimplified"] 6]] 2 nil "P"])
(defalias 'calc-matrix-mode #[(arg) "\300\301!\207" [calc-do #[nil "\302\301\303=\203\f \304\202H \305!\306W\203 \305!\307W\205H \310\202H \2033 :\203- \311\202H \305!\202H \310=\203= \304\202H \304=\203G \312\202H \310\"\210 \250\203U \313\314 \211#\207\313 \310=\203` \315\202s \311=\203j \316\202s \203r \317\202s \320!\207" [arg calc-matrix-mode calc-change-mode 0 scalar prefix-numeric-value 1 -1 matrix sqmatrix nil message "Variables are assumed to be %dx%d matrices" "Variables are assumed to be matrices" "Variables are assumed to be square matrices" "Variables are assumed to be scalars (non-matrices)" "Variables are not assumed to be matrix or scalar"] 4]] 2 nil "P"])
(defalias 'calc-set-simplify-mode #[(mode arg msg) "\304\302\203\n \202 \n =\203 \305\202 \"\210\306\307\n =\203# \202$ \310\"\207" [arg mode calc-simplify-mode msg calc-change-mode alg message "%s" "Algebraic simplification occurs by default"] 4])
(defalias 'calc-no-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode none "Simplification is disabled"] 4]] 2 nil "P"])
(defalias 'calc-num-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode num "Basic simplifications apply only if arguments are numeric"] 4]] 2 nil "P"])
(defalias 'calc-default-simplify-mode #[(arg) "\203\n \301U\203 \302\303!\207\304U\203 \302\305!\207\306U\203\" \307\304!\207\306W\203, \310\304!\207\311U\2036 \312\304!\207\313U\203@ \314\304!\207\315U\203J \316\304!\207\317\320!\207" [arg 3 calc-do #[nil "\300\301\302\303#\207" [calc-set-simplify-mode alg nil "Algebraic simplification occurs by default"] 4] 1 #[nil "\300\301\211\302#\207" [calc-set-simplify-mode nil "Only basic simplifications occur by default"] 4] 0 calc-num-simplify-mode calc-no-simplify-mode 2 calc-bin-simplify-mode 4 calc-ext-simplify-mode 5 calc-units-simplify-mode error "Prefix argument out of range"] 2 nil "P"])
(defalias 'calc-bin-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\302\303\304\305 \"#\207" [arg calc-word-size calc-set-simplify-mode binary format "Binary simplification occurs by default (word size=%d)"] 6]] 2 nil "P"])
(defalias 'calc-basic-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode nil "Only basic simplifications occur by default"] 4]] 2 nil "P"])
(defalias 'calc-alg-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode alg "Algebraic simplification occurs by default"] 4]] 2 nil "P"])
(defalias 'calc-ext-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode ext "Extended algebraic simplification occurs by default"] 4]] 2 nil "P"])
(defalias 'calc-units-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode units "Units simplification occurs by default"] 4]] 2 nil "P"])
(defalias 'calc-auto-recompute #[(arg) "\300\301!\207" [calc-do #[nil "\302\301\303\304$\210\305 \210\306 \203 \307\202 \310!\207" [arg calc-auto-recompute calc-change-mode nil t calc-refresh-evaltos message "Automatically recomputing `=>' forms when necessary" "Not recomputing `=>' forms automatically"] 5]] 2 nil "P"])
(defalias 'calc-working #[(n) "\300\301!\207" [calc-do #[nil ":\203 \302\303\304 \305=\203 \306\202 \203 \307\202 \303#\210\202G \307=\203. \310\301\311\"\210\202G \303=\203< \310\301\312\"\210\202G \306=\203G \310\301\305\"\210 \305=\203Q \313\314!\207 \203Y \313\315!\207\313\316!\207" [n calc-display-working-message calc-pop-push-record 0 "work" t 1 2 calc-change-mode lots nil message "\"Working...\" messages enabled" "Detailed \"Working...\" messages enabled" "\"Working...\" messages disabled"] 5]] 2 nil "P"])
(defalias 'calc-always-load-extensions #[nil "\300\301!\207" [calc-do #[nil "?\211\203 \301\302!\207\301\303!\207" [calc-always-load-extensions message "Always loading extensions package" "Loading extensions package on demand only"] 2]] 2 nil nil])
(defalias 'calc-matrix-left-justify #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-matrix-just nil t message "Matrix elements will be left-justified in columns"] 4]] 2 nil nil])
(defalias 'calc-matrix-center-justify #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-matrix-just center t message "Matrix elements will be centered in columns"] 4]] 2 nil nil])
(defalias 'calc-matrix-right-justify #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-matrix-just right t message "Matrix elements will be right-justified in columns"] 4]] 2 nil nil])
(defalias 'calc-full-vectors #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\211$\203 \305\202 \306!\207" [n message calc-change-mode calc-full-vectors t "Displaying long vectors in full" "Displaying long vectors in [a, b, c, ..., z] notation"] 6]] 2 nil "P"])
(defalias 'calc-full-trail-vectors #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305$\203 \306\202 \307!\207" [n message calc-change-mode calc-full-trail-vectors nil t "Recording long vectors in full" "Recording long vectors in [a, b, c, ..., z] notation"] 6]] 2 nil "P"])
(defalias 'calc-break-vectors #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\211$\203 \305\202 \306!\207" [n message calc-change-mode calc-break-vectors t "Displaying vector elements one-per-line" "Displaying vector elements all on one line"] 6]] 2 nil "P"])
(defalias 'calc-vector-commas #[nil "\300\301!\207" [calc-do #[nil "\301\300?\205 \302\303#\203 \304\305!\207\304\306!\207" [calc-vector-commas calc-change-mode "," t message "Separating vector elements with \",\"" "Separating vector elements with spaces"] 4]] 2 nil nil])
(defalias 'calc-vector-brackets #[nil "\300\301!\207" [calc-do #[nil "\301\300\302\232?\205\n \302\303#\203 \304\305!\207\304\306!\207" [calc-vector-brackets calc-change-mode "[]" t message "Surrounding vectors with \"[]\"" "Not surrounding vectors with brackets"] 4]] 2 nil nil])
(defalias 'calc-vector-braces #[nil "\300\301!\207" [calc-do #[nil "\301\300\302\232?\205\n \302\303#\203 \304\305!\207\304\306!\207" [calc-vector-brackets calc-change-mode "{}" t message "Surrounding vectors with \"{}\"" "Not surrounding vectors with brackets"] 4]] 2 nil nil])
(defalias 'calc-vector-parens #[nil "\300\301!\207" [calc-do #[nil "\301\300\302\232?\205\n \302\303#\203 \304\305!\207\304\306!\207" [calc-vector-brackets calc-change-mode "()" t message "Surrounding vectors with \"()\"" "Not surrounding vectors with brackets"] 4]] 2 nil nil])
(defalias 'calc-matrix-brackets #[(arg) "\300\301!\207" [calc-do #[nil "\303\304\305\"\205 \306\304\307\"\205 \310\304\311\"\205 \312\304\313\"\205! \314$\304\315\" \2033 \316\317 H\"\210\320\321\n\322#*\207" [arg bad code append string-match "[rR]" (R) "[oO]" (O) "[cC]" (C) "[pP]" (P) "[^rRoOcCpP ]" error "Unrecognized character: %c" calc-change-mode calc-matrix-brackets t] 7]] 2 nil "sCode letters (R, O, C): "])
(provide 'calc-mode)