WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/calc
Viewing File: /usr/share/emacs/24.3/lisp/calc/calc-mode.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:50 2025
;;; 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\304D\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\304D\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\304D\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\302P\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#\210A@\306=\203A\317\320!\207A@\306V\203P\317\321A@\"\207\317\322A@\"\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\311A@!\"\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#\210A@\305=\203 \307\310!\207A@\305V\203/\307\311A@\"\207\307\312A@\"\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#\210A@\305=\203 \307\310!\207A@\305V\203/\307\311A@\"\207\307\312A@\"\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\310E!\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\202Ddb\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)
F1l3 Manager
