Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
calc-aent.elc
26.22
KB
-rw-r--r--
calc-alg.elc
50.83
KB
-rw-r--r--
calc-arith.elc
79.87
KB
-rw-r--r--
calc-bin.elc
17.6
KB
-rw-r--r--
calc-comb.elc
28.6
KB
-rw-r--r--
calc-cplx.elc
8.25
KB
-rw-r--r--
calc-embed.elc
29.39
KB
-rw-r--r--
calc-ext.elc
109.63
KB
-rw-r--r--
calc-fin.elc
12.05
KB
-rw-r--r--
calc-forms.elc
56.09
KB
-rw-r--r--
calc-frac.elc
5.87
KB
-rw-r--r--
calc-funcs.elc
25.78
KB
-rw-r--r--
calc-graph.elc
35.06
KB
-rw-r--r--
calc-help.elc
20.06
KB
-rw-r--r--
calc-incom.elc
5.16
KB
-rw-r--r--
calc-keypd.elc
15.54
KB
-rw-r--r--
calc-lang.elc
58.62
KB
-rw-r--r--
calc-loaddefs.el
9.2
KB
-rw-r--r--
calc-macs.elc
6.13
KB
-rw-r--r--
calc-map.elc
28.65
KB
-rw-r--r--
calc-math.elc
58.13
KB
-rw-r--r--
calc-menu.elc
38.72
KB
-rw-r--r--
calc-misc.elc
20.67
KB
-rw-r--r--
calc-mode.elc
20.14
KB
-rw-r--r--
calc-mtx.elc
6.76
KB
-rw-r--r--
calc-nlfit.elc
13.45
KB
-rw-r--r--
calc-poly.elc
26.06
KB
-rw-r--r--
calc-prog.elc
51.18
KB
-rw-r--r--
calc-rewr.elc
39.08
KB
-rw-r--r--
calc-rules.elc
17.4
KB
-rw-r--r--
calc-sel.elc
19.6
KB
-rw-r--r--
calc-stat.elc
14.04
KB
-rw-r--r--
calc-store.elc
16.77
KB
-rw-r--r--
calc-stuff.elc
7.42
KB
-rw-r--r--
calc-trail.elc
4.69
KB
-rw-r--r--
calc-undo.elc
3.14
KB
-rw-r--r--
calc-units.elc
56.14
KB
-rw-r--r--
calc-vec.elc
37.91
KB
-rw-r--r--
calc-yank.elc
19.01
KB
-rw-r--r--
calc.elc
102.71
KB
-rw-r--r--
calcalg2.elc
78.71
KB
-rw-r--r--
calcalg3.elc
41.41
KB
-rw-r--r--
calccomp.elc
34.46
KB
-rw-r--r--
calcsel2.elc
5.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-mode.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\307\"\207" [calc-display-raw arg 0 t calc-do-refresh message "%s" "Press d ' again to cancel \"raw\" display mode"] 3]] 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\267\202- \313\202. \314\202. \315 \2036 \315\2027 \310\203@ \315\202A \310\316=\203L \315\202M \310\317\267\202` \310\202f \320\202f \321\202f \206f \322\323\267\202\205 \322\202\206 \310\202\206 \313\202\206 \314\202\206 \324\202\206 \325\202\206 \315\315=\203\221 \310\202\233 \203\232 \315\202\233 \322\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)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (rad 37 hms 41)) 2 3 1 polar #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scalar 84 matrix 88 sqmatrix 92)) -2 -3 -1 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (none 109 num 113 binary 117 alg 121 ext 125 units 129)) 4 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\204I \204 \n\305=\203 \306\202\200 \305\202\200 \n\307\267\2026 \310\202\200 \311\202\200 \312\202\200 \305\202\200 \313\202\200 \306\202\200 ?\205\200 \n\305=\203E \306\202\200 \305\202\200 \314!\211\315U\203W \313\202\200 \316U\203a \310\202\200 \317U\203k \311\202\200 \320U\203u \312\202\200 \321U\203 \305\202\200 \306\"\210\322\323\n\306=\203\222 \203\222 \324\202\254 \n\325\267\202\253 \326\202\254 \327\202\254 \330\202\254 \331\332 \"\202\254 \333\"\207" [n calc-embedded-info calc-mode-save-mode calc-settings-file calc-change-mode save local #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (local 30 edit 34 perm 38 global 42 save 46 nil 50)) edit perm global nil prefix-numeric-value 0 2 3 4 5 message "%s" "Recording mode changes with [calc-mode: ...]" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edit 152 perm 156 global 160 save 164)) "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\312\n\203% \313\202. \203- \314\202. \315\"\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 "%s" "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\202B \305!\306W\203 \305!\307W\205B \310\202B \2033 :\203- \311\202B \305!\202B \312\267\202A \304\202B \313\202B \310\"\210 \250\203O \314\315 \211#\207\314 \310=\203Z \316\202m \311=\203d \317\202m \203l \320\202m \321!\207" [arg calc-matrix-mode calc-change-mode 0 scalar prefix-numeric-value 1 -1 matrix sqmatrix #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (matrix 57 scalar 61)) 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\202[ \310\267\202> \311\301\312\"\210\202[ \311\301\313\"\210\202[ \311\301\305\"\210\202[ :\203[ \302\303\304 \305=\203P \306\202Y \203X \307\202Y \303#\210 \305=\203e \314\315!\207 \203m \314\316!\207\314\317!\207" [n calc-display-working-message calc-pop-push-record 0 "work" t 1 2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 38 0 46 1 54)) 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)
Close
