Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calc-mode.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:37 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-mode.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-mode.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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 \nA@\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�\305!\306V\205�	\202�\n	=?\205�	\"\210\307\310\n	=\203(�\202)�\311\"\207" [arg mode calc-simplify-mode msg calc-change-mode prefix-numeric-value 0 message "%s" "Default simplifications enabled"] 4])
(defalias 'calc-no-simplify-mode #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-set-simplify-mode none "All default simplifications are 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 "Default simplifications apply only if arguments are numeric"] 4]] 2 nil "P"])
(defalias 'calc-default-simplify-mode #[(arg) "\301U\203\n�\302\303!\207\304U\203�\305\301!\207\304W\203�\306\301!\207\307U\203(�\310\301!\207\311U\2032�\312\301!\207\313U\203<�\314\301!\207\315U\203F�\316\301!\207\317\320!\207" [arg 1 calc-do #[nil "\300\301\211\302#\207" [calc-set-simplify-mode nil "Usual default simplifications are enabled"] 4] 0 calc-num-simplify-mode calc-no-simplify-mode 2 calc-bin-simplify-mode 3 calc-alg-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-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, P): "])
(provide 'calc-mode)

${this.title}

Code Editor : calc-mode.elc