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-incom.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:36 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-incom.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-incom.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-begin-complex #[nil "\300\301!\207" [calc-do #[nil "\204�	\203\f�\303\304!\207\305\306\nD!\207" [calc-algebraic-mode calc-incomplete-algebraic-mode calc-complex-mode calc-alg-entry "(" calc-push incomplete] 3]] 2 nil nil])
(defalias 'calc-end-complex #[nil "\300\301!\210\302\303!\207" [calc-comma t calc-do #[nil "\301\302!\211\242\303=\2034�A@\304=\2034�G\305W\203�\306\307\"G\310W\203+�\306\311\"\312\302\313A#\202q�\242\303=\203C�A@\314>\204G�\315\316!\210G\305W\203W�\306\317\"\211\202H�\320\3218!\203g�\322\3238!\204k�\315\324!\210\312\302\325A#)\207" [top calc-top 1 incomplete intv 4 append ((neg (var inf var-inf))) 5 ((var inf var-inf)) calc-enter-result "..)" (cplx polar) error "Not entering a complex number" (0) math-realp 2 math-anglep 3 "Components must be real" "()"] 5]] 2 nil nil])
(defalias 'calc-begin-vector #[nil "\300\301!\207" [calc-do #[nil "\204�	\203\f�\302\303!\207\304\305!\207" [calc-algebraic-mode calc-incomplete-algebraic-mode calc-alg-entry "[" calc-push (incomplete vec)] 2]] 2 nil nil])
(defalias 'calc-end-vector #[nil "\300\301!\210\302\303!\207" [calc-comma t calc-do #[nil "\301\302!\211\242\303=\203=�A@\304=\203=�G\305W\203�\306\307\"G\310W\203+�\306\311\"AA\3128T\240\210\313\302\314A#\202V�\242\303=\203L�A@\315=\204P�\316\317!\210\320\302\321A#)\207" [top calc-top 1 incomplete intv 4 append ((neg (var inf var-inf))) 5 ((var inf var-inf)) 2 calc-enter-result "..]" vec error "Not entering a vector" calc-pop-push-record "[]"] 5]] 2 nil nil])
(defalias 'calc-comma #[(&optional allow-polar) "\300\301!\207" [calc-do #[nil "\306	\233\307\"\211\310U\203�\311\312!\210\313\n!\314\nS!\315\f\"\f\204K�\204K�A@\316=\2047�
G\317W\203K�\315
\211G\320U\203D�\321\202I�
GS
\233\"\204r�
A@\322=\203b�\315\323
AA\"\202r�
A@\324=\203r�\315\325
AAA\"
A@\326>\203\205�
G\317V\203\205�\311\327!\210
A@\324=\203\230�
G\330V\203\230�\311\331!\210\332\n
\",\207" [calc-stack-top calc-stack num inc stuff new calc-find-first-incomplete 1 0 error "Not entering a vector or complex number" calc-top calc-top-list append vec 4 2 (0) polar (incomplete cplx) intv (incomplete cplx) (cplx polar) "Too many components in complex number" 5 "Too many components in interval form" calc-pop-push allow-polar] 5]] 2 nil nil])
(defalias 'calc-semi #[nil "\300\301!\207" [calc-do #[nil "\306	\233\307\"\211\310U\203�\311\312!\210\313\n!\314\nS!\211A@\315=\203,�\316\317\fAA\"\202<�\fA@\320=\203<�\316\321\fAAA\"\fA@\322=\203k�\316\f\"\211G\323V\203W�\311\324!\210\202c�
G\325U\203c�\316
\326\"\327\n
\")\202\354�\204\222�\fG\325V\205\354�\330\325\f8!\203\203�\331 \202\354�\327\307\332\333\fAAE\332\333D#\202\354�\330@!\203\236�\331 \202\354�\n\\	8\242\242\332=\203\274�\334 \210\331 \210\335\211 \336 *\202\354�\fG\325U\204\313�\330\325\f8!\203\333�\327\n\316\f\333BC\"\332\333D#\202\354�\327\n\332\333\211\316\fAA\"BE\332\333D#+\207" [calc-stack-top calc-stack num stuff inc new calc-find-first-incomplete 1 0 error "Not entering a vector or complex number" calc-top calc-top-list cplx append (incomplete polar) intv (incomplete polar) polar 4 "Too many components in complex number" 2 (1) calc-pop-push math-vectorp calc-comma incomplete vec calc-end-vector nil calc-begin-vector calc-incomplete-algebraic-mode calc-algebraic-mode] 9]] 2 nil nil])
(defalias 'calc-digit-dots #[nil "\305=\203*�\306\307!\210\310\311!\203�\306\307!\210\312\313\n\203�\314 \207\315\316\317 \210)\320 \207\306\307!\207" [calc-prev-char last-command-event calc-prev-prev-char calc-digit-value inhibit-read-only 46 delete-backward-char 1 calc-minibuffer-contains ".*\\.\\'" dots 32 calcDigit-nondigit nil t erase-buffer exit-minibuffer] 2])
(defalias 'calc-dots #[nil "\300\301!\207" [calc-do #[nil "\306	\233\307\"\211\310U\203�\311\312!\210\313\n!\314\nS!\315\f\"\211A@\316=\204;�\315\317
A@\320=\2035�\321\2026�\322
AA#\f\204K�
G\323U\203K�\315
\324\"
G\325V\203V�\311\326!\210\327\n
\",\207" [calc-stack-top calc-stack num inc stuff new calc-find-first-incomplete 1 0 error "Not entering an interval form" calc-top calc-top-list append intv (incomplete intv) vec (2) (0) 3 ((neg (var inf var-inf))) 5 "Too many components in interval form" calc-pop-push] 5]] 2 nil nil])
(defalias 'calc-find-first-incomplete #[(stack n) "\204�\302\207@\242\242\303=\203�	\207\304A	T\"\207" [stack n 0 incomplete calc-find-first-incomplete] 3])
(defalias 'calc-incomplete-error #[(a) "A@\301>\203\f�\302\303!\207A@\304=\203�\302\305!\207A@\306=\203$�\302\307!\207\302\310!\207" [a (cplx polar) error "Complex number is incomplete" vec "Vector is incomplete" intv "Interval form is incomplete" "Object is incomplete"] 2])
(provide 'calc-incom)

${this.title}

Code Editor : calc-incom.elc