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-macs.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-macs.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-macs.el' was compiled for Emacs 19.29 or later"))

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

(defalias 'calc-wrapper '(macro . #[(&rest body) "\301\302\303\304BBDD\207" [body calc-do function lambda nil] 5]))
(defalias 'calc-slow-wrapper '(macro . #[(&rest body) "\301\302\303\304BBD\305BB\207" [body calc-do function lambda nil ((point))] 5]))
(defalias 'math-showing-full-precision '(macro . #[(form) "\301\302E\207" [form let ((calc-float-format calc-full-float-format))] 3]))
(defalias 'math-with-extra-prec '(macro . #[(delta &rest body) "\302\303\304\305\304EDC	BBD\207" [delta body math-normalize let calc-internal-prec +] 6]))
(defalias 'math-working '(macro . #[(msg arg) "\302\303\304	EE\207" [msg arg if (eq calc-display-working-message 'lots) math-do-working] 5]))
(defalias 'calc-with-default-simplification '(macro . #[(&rest body) "\301\302BB\207" [body let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) calc-simplify-mode)))] 3]))
(defalias 'calc-with-trail-buffer '(macro . #[(&rest body) "\301\302\303\304\305\306BBEE\207" [body let ((save-buf (current-buffer)) (calc-command-flags nil)) with-current-buffer (calc-trail-display t) progn (goto-char calc-trail-pointer)] 7]))
(defalias 'Math-zerop #[(a) ":\203�@\301>?\205!�@\302=\203�A@\303=\207\304!\207\303=\207" [a (bigpos bigneg) float 0 math-zerop] 2])
(put 'Math-zerop 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-integer-negp #[(a) ":\203\n�@\301=\207\302W\207" [a bigneg 0] 2])
(put 'Math-integer-negp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-integer-posp #[(a) ":\203\n�@\301=\207\302V\207" [a bigpos 0] 2])
(put 'Math-integer-posp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-negp #[(a) ":\2034�@\301=\2067�@\302=?\2053�@\303>\2030�A@\211:\203+�@\301=\202.�\304W)\207\305!\207\304W\207" [a bigneg bigpos (frac float) 0 math-negp] 3])
(put 'Math-negp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-looks-negp #[(a) "\211:\203:�@\301=\206=�@\302=?\205=�@\303>\2034�A@\211:\203-�@\301=\2020�\304W)\202=�\305!\202=�\304W)\206a�:\205a�@\306=\206a�@\307>\205a�\310A@!\206a�\310\3118!\207" [a bigneg bigpos (frac float) 0 math-negp neg (* /) math-looks-negp 2] 4])
(put 'Math-looks-negp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-posp #[(a) ":\2034�@\301=\2067�@\302=?\2053�@\303>\2030�A@\211:\203+�@\301=\202.�\304V)\207\305!\207\304V\207" [a bigpos bigneg (frac float) 0 math-posp] 3])
(put 'Math-posp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-integerp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg)] 2])
(put 'Math-integerp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-natnump #[(a) ":\203\n�@\301=\207\302Y\207" [a bigpos 0] 2])
(put 'Math-natnump 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-ratp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac)] 2])
(put 'Math-ratp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-realp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float)] 2])
(put 'Math-realp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-anglep #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float hms)] 2])
(put 'Math-anglep 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-numberp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float cplx polar)] 2])
(put 'Math-numberp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-scalarp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float cplx polar hms)] 2])
(put 'Math-scalarp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-vectorp #[(a) ":\205	�@\301=\207" [a vec] 2])
(put 'Math-vectorp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-messy-integerp #[(a) ":\205�@\301=\205�\3028\303Y\207" [a float 2 0] 2])
(put 'Math-messy-integerp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-objectp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod)] 2])
(put 'Math-objectp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-objvecp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod vec)] 2])
(put 'Math-objvecp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-integer-neg #[(a) ":\203�@\301=\203�\302AB\207\301AB\207[\207" [a bigpos bigneg] 2])
(put 'Math-integer-neg 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-equal #[(a b) "\302	\"\303U\207" [a b math-compare 0] 3])
(put 'Math-equal 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-lessp #[(a b) "\302	\"\303U\207" [a b math-compare -1] 3])
(put 'Math-lessp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-primp #[(a) ":?\206\n�@\301>\207" [a (bigpos bigneg frac float cplx polar hms date mod var)] 2])
(put 'Math-primp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-num-integerp #[(a) ":?\206�@\301>\206�@\302=\205�\3038\304Y\207" [a (bigpos bigneg) float 2 0] 2])
(put 'Math-num-integerp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-bignum-test #[(a) ":\203�\207\301!\207" [a math-bignum] 2])
(put 'Math-bignum-test 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-equal-int #[(a b) "	=\206�:\205�@\302=\205�A@	=\205�\3038\304U\207" [a b float 2 0] 2])
(put 'Math-equal-int 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'Math-natnum-lessp #[(a b) ":\203�	:\205�\302A	A\"\303U\207	:\206�	W\207" [a b math-compare-bignum -1] 3])
(byte-code "\300\301\302\303#\210\304\305!\207" [put Math-natnum-lessp byte-optimizer byte-compile-inline-expand provide calc-macs] 4)

${this.title}

Code Editor : calc-macs.elc