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 : calcsel2.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:41 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calcsel2.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 "`calcsel2.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-commute-left #[(arg) "\301W\203�\302[!\207\303\304!\207" [arg 0 calc-commute-right calc-do #[nil "\306 \210\307\310`!]\311U\203�\312\203 �S\211\311Y\205\257\313\n\304\"\211@\314\f!!\312\211\"#!\203D�\315
!\"\211\":\204H�\316\317!\210$\203@\"@%\236\203@\320\"!\"&!\321&8=\203\357�\322\"&\211@&A@\242%\236A@>\203\253�\321&A@8'\323&A@@\323&@&A@A@!#'##\321#A@8!#*\202\351�&@\324=\203\304�\323\325\326!!\211!&A@#\202\351�&@\327=\203\336�\323\330\331\307!\"\211!&A@#\202\351�\323&@!&A@###\202<\320\"&\"\211(:\203&\321(8=\203(@&@=\204\312#\202;\323(@!\323(@(A@\321&8##\211#A@!\322\"(###))\202o\"A@!=\203P\312#\202o\332\"!\"S\333\"!\211#\233\211)A)@\240\210)!\240\210)#\204\220\203\316\334!\210\202\253	\204\213\335\307
C\n\336$\210\311\202\253\337\307\340\322
\"##C\n\311=\203\246	\205\250!C%\210-\202�*\207" [calc-keep-selection calc-sel-reselect num arg entry expr calc-preserve-point 1 calc-locate-cursor-element 0 nil calc-top calc-auto-selection calc-find-assoc-parent-formula error "No term is selected" calc-find-parent-formula 2 calc-replace-sub-formula calc-build-assoc-term - + math-neg / * calcFunc-div calc-find-sub-formula copy-sequence "Term is already leftmost" calc-pop-push-list (nil) calc-pop-push-record-list "left" sel parent new calc-assoc-selections calc-assoc-ops outer other next p] 10]] 2 nil "p"])
(defalias 'calc-commute-right #[(arg) "\301W\203�\302[!\207\303\304!\207" [arg 0 calc-commute-left calc-do #[nil "\306 \210\307\310`!]\311U\203�\312\203 �S\211\311Y\205\241\313\n\304\"\211@\314\f!!\312\211\"#!\203D�\315
!\"\211\":\204H�\316\317!\210$\2030\"@%\236\2030\320\"!\"&!&A@=\203\350�\321\"&\211@\322\211&8\242%\2368>\203\237�\322&8A@'\323&@'\323\322&8@!\322\211&88##)\202\342�&@\324=\203\265�\323\325\326\322&8!!#\202\327�&@\327=\203\314�\323\330\331\307\322&8\"!#\202\327�\323&@\322&8!##\322#8!#)##\202,\320\"&\"\211(:\203\377�&(A@=\204\312#\202+\323&@\323(@&A@\322(8#!##\322#8!\321\"(###))\202a\"GS\"8!=\203C\312#\202a\332\"!\"\333\"!\211#\233\211)\211A@\240\210)A!\240\210)#\204\202\203q\316\334!\210\202\235	\204}\335\307
C\n\336$\210\311\202\235\337\307\340\321
\"##C\n\311=\203\230	\205\232!C%\210-\202�*\207" [calc-keep-selection calc-sel-reselect num arg entry expr calc-preserve-point 1 calc-locate-cursor-element 0 nil calc-top calc-auto-selection calc-find-assoc-parent-formula error "No term is selected" calc-find-parent-formula calc-replace-sub-formula 2 calc-build-assoc-term - + math-neg / * calcFunc-div calc-find-sub-formula copy-sequence "Term is already rightmost" calc-pop-push-list (nil) calc-pop-push-record-list "rght" sel parent new calc-assoc-selections calc-assoc-ops outer other next p] 13]] 2 nil "p"])
(defalias 'calc-build-assoc-term #[(op lhs rhs) "\303=\203*�\304	!\204#�	\242\305=\203*�\306	A@!\203*�\307	8\310=\203*�\311\n\312	!E\207\311=\203T�\304	!\204M�	\242\305=\203T�\306	A@!\203T�\307	8\310=\203T�\303\n\312	!E\207\313=\203y�	\242\314=\203y�\315	A@\316\"\204r�	A@\317\232\203y�\314\n\307	8E\207\314=\203\236�	\242\314=\203\236�\315	A@\316\"\204\227�	A@\320\232\203\236�\314\n\307	8E\207\n	E\207" [op rhs lhs + math-looks-negp cplx math-negp 2 0 - math-neg * / math-equal-int 1 (cplx 1 0) (cplx 1 0)] 4])
(defalias 'calc-sel-unpack #[nil "\300\301!\207" [calc-do #[nil "\306 \210\307\310`!]	\311\303\"\211@\312!\206�\f\313
!\204(�
G\314U\204,�\315\316!\210\317\307\320\321\f
\211A@#C\n\205?�
A@C%-\207" [num calc-keep-selection calc-sel-reselect entry expr sel calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection math-primp 2 error "Selection must be a function of one argument" calc-pop-push-record-list "unpk" calc-replace-sub-formula] 8]] 2 nil nil])
(defalias 'calc-sel-isolate #[nil "\300\301`\"\207" [calc-do #[nil "\306 \210\307\310`!]	\311\303\"\211@\312!\206�\313\314!\211\315\316\f\"\211:\2045�\313\317!\203>�@\236\203#�\320
#\211\204O�\313\321!\210\322\323\3248
\"?A@
==\203g�\202x�@\236A@\3248A@E!\325\307\326\327\f#C\n\205\214�
C%\210\330 .\207" [num calc-keep-selection calc-sel-reselect entry expr sel calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection error "No selection" nil calc-find-parent-formula "Selection must be a member of an equation" math-solve-eqn "No solution found" calc-encase-atoms calc-find-sub-formula 2 calc-pop-push-record-list "isol" calc-replace-sub-formula calc-handle-whys eqn soln calc-tweak-eqn-table calc-hyperbolic-flag] 8]] 3 nil nil])
(defalias 'calc-sel-commute #[(many) "\302\303\304	\305#\210)\306 \207" [calc-assoc-selections many nil calc-rewrite-selection "CommuteRules" "cmut" calc-set-mode-line] 4 nil "P"])
(defalias 'calc-sel-jump-equals #[(many) "\301\302\303#\207" [many calc-rewrite-selection "JumpRules" "jump"] 4 nil "P"])
(defalias 'calc-sel-distribute #[(many) "\301\302\303#\207" [many calc-rewrite-selection "DistribRules" "dist"] 4 nil "P"])
(defalias 'calc-sel-merge #[(many) "\301\302\303#\207" [many calc-rewrite-selection "MergeRules" "merg"] 4 nil "P"])
(defalias 'calc-sel-negate #[(many) "\301\302\303#\207" [many calc-rewrite-selection "NegateRules" "jneg"] 4 nil "P"])
(defalias 'calc-sel-invert #[(many) "\301\302\303#\207" [many calc-rewrite-selection "InvertRules" "jinv"] 4 nil "P"])
(provide 'calcsel2)

${this.title}

Code Editor : calcsel2.elc