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

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

(byte-code "\302\303!\210\302\304!\210\305B\306\305!\204�\307\305\310\"\210\311B\306\311!\204&�\307\311\312\"\210\313B\306\313!\2045�\307\313\310\"\210\314B\306\314!\204D�\307\314\310\"\210\315B\306\315!\204S�\307\315\310\"\210\316B\306\316!\204b�\307\316\310\"\210\317B\306\317!\204q�\307\317\320\"\210\321B\306\321!\204\200�\307\321\322\"\210\323B\306\323!\204\217�\307\323\324\"\210\325B\306\325!\204\236�\307\325\326\"\210\327B\306\327!\204\255�\307\327\330\"\210\331B\306\331!\204\274�\307\331\332\"\210\333B\306\333!\204\313�\307\333\334\"\210\335\336N\204\327�\337\335\336\340#\210\341\342!\204\343�\337\342\343\344#\210\342B\306\342!\204\363�\307\342\345 \"\210\341\346!\204\377�\337\346\343\344#\210\346B\306\346!\204\307\346\347 \"\210\337\301\343\344#\210\301B\306\301!\204)\307\301\350\301\310\"\210	\"\210\337\344\351\310#\207" [current-load-list calc-keypad-mode-abbrev-table require calc-ext calc-macs calc-keypad-buffer default-boundp set-default nil calc-keypad-menu 0 calc-keypad-full-layout calc-keypad-input calc-keypad-prev-input calc-keypad-said-hello calc-keypad-layout ((("ENTER" calc-enter calc-roll-down calc-roll-up calc-over) ("ENTER" calc-enter calc-roll-down calc-roll-up calc-over) ("+/-" calc-change-sign calc-inv (progn -4 calc-pack)) ("EEX" ("e") (progn calc-num-prefix calc-pack-interval) (progn -5 calc-pack)) ("UNDO" calc-undo calc-redo calc-last-args) ("<-" calc-pop (progn 0 calc-pop) (progn calc-num-prefix calc-pop))) (("INV" calc-inverse) ("7" ("7") calc-round) ("8" ("8") (progn 2 calc-clean-num)) ("9" ("9") calc-float) ("/" calc-divide (progn calc-inverse calc-power))) (("HYP" calc-hyperbolic) ("4" ("4") calc-ln calc-log10) ("5" ("5") calc-exp calc-exp10) ("6" ("6") calc-abs) ("*" calc-times calc-power)) (("EXEC" calc-keypad-execute) ("1" ("1") calc-arcsin calc-sin) ("2" ("2") calc-arccos calc-cos) ("3" ("3") calc-arctan calc-tan) ("-" calc-minus calc-conj)) (("OFF" calc-keypad-off) ("0" ("0") calc-imaginary) ("." (".") calc-precision) ("PI" calc-pi) ("+" calc-plus calc-sqrt))) calc-keypad-menus (calc-keypad-math-menu calc-keypad-funcs-menu calc-keypad-binary-menu calc-keypad-vector-menu calc-keypad-modes-menu calc-keypad-user-menu) calc-keypad-math-menu ((("FLR" calc-floor) ("CEIL" calc-ceiling) ("RND" calc-round) ("TRNC" calc-trunc) ("CLN2" (progn 2 calc-clean-num)) ("FLT" calc-float)) (("LN" calc-ln) ("EXP" calc-exp) (#1="" nil) ("ABS" calc-abs) ("IDIV" calc-idiv) ("MOD" calc-mod)) (("SIN" calc-sin) ("COS" calc-cos) ("TAN" calc-tan) ("SQRT" calc-sqrt) ("y^x" calc-power) ("1/x" calc-inv))) calc-keypad-funcs-menu ((("IGAM" calc-inc-gamma) ("BETA" calc-beta) ("IBET" calc-inc-beta) ("ERF" calc-erf) ("BESJ" calc-bessel-J) ("BESY" calc-bessel-Y)) (("IMAG" calc-imaginary) ("CONJ" calc-conj) ("RE" calc-re calc-im) ("ATN2" calc-arctan2) ("RAND" calc-random) ("RAGN" calc-random-again)) (("GCD" calc-gcd calc-lcm) ("FACT" calc-factorial calc-gamma) ("DFCT" calc-double-factorial) ("BNOM" calc-choose) ("PERM" calc-perm) ("NXTP" calc-next-prime calc-prev-prime))) calc-keypad-binary-menu ((("AND" calc-and calc-diff) ("OR" calc-or) ("XOR" calc-xor) ("NOT" calc-not calc-clip) ("LSH" calc-lshift-binary calc-rotate-binary) ("RSH" calc-rshift-binary)) (("DEC" calc-decimal-radix) ("HEX" calc-hex-radix) ("OCT" calc-octal-radix) ("BIN" calc-binary-radix) ("WSIZ" calc-word-size) ("ARSH" calc-rshift-arith)) (("A" ("A")) ("B" ("B")) ("C" ("C")) ("D" ("D")) ("E" ("E")) ("F" ("F")))) calc-keypad-vector-menu ((("SUM" calc-vector-sum calc-vector-alt-sum calc-vector-mean) ("PROD" calc-vector-product nil calc-vector-sdev) ("MAX" calc-vector-max calc-vector-min calc-vector-median) ("MAP*" (lambda nil (interactive) (calc-map '(2 calcFunc-mul "*")))) ("MAP^" (lambda nil (interactive) (calc-map '(2 calcFunc-pow "^")))) ("MAP$" calc-map-stack)) (("MINV" calc-inv) ("MDET" calc-mdet) ("MTRN" calc-transpose calc-conj-transpose) ("IDNT" (progn calc-num-prefix calc-ident)) ("CRSS" calc-cross) ("\"x\"" "xcalc-algebraic-entry
x
" "xcalc-algebraic-entry
y
" "xcalc-algebraic-entry
z
" "xcalc-algebraic-entry
t
")) (("PACK" calc-pack) ("UNPK" calc-unpack) ("INDX" (progn calc-num-prefix calc-index) "xcalc-index
") ("BLD" (progn calc-num-prefix calc-build-vector)) ("LEN" calc-vlength) ("..." calc-full-vectors))) calc-keypad-modes-menu ((("FLT" calc-normal-notation (progn calc-num-prefix calc-normal-notation)) ("FIX" (progn 2 calc-fix-notation) (progn calc-num-prefix calc-fix-notation)) ("SCI" calc-sci-notation (progn calc-num-prefix calc-sci-notation)) ("ENG" calc-eng-notation (progn calc-num-prefix calc-eng-notation)) ("GRP" calc-group-digits "-3xcalc-group-digits
") (#1# nil)) (("RAD" calc-radians-mode) ("DEG" calc-degrees-mode) ("FRAC" calc-frac-mode) ("POLR" calc-polar-mode) ("SYMB" calc-symbolic-mode) ("PREC" calc-precision)) (("SWAP" calc-roll-down) ("RLL3" (progn 3 calc-roll-up) (progn 3 calc-roll-down)) ("RLL4" (progn 4 calc-roll-up) (progn 4 calc-roll-down)) ("OVER" calc-over) ("STO" calc-keypad-store) ("RCL" calc-keypad-recall))) calc-keypad-mode-hook variable-documentation put "Hook run when entering Calculator mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp calc-keypad-mode-map definition-name calc-keypad-mode make-sparse-keymap calc-keypad-mode-syntax-table make-syntax-table define-abbrev-table derived-mode-parent] 5)
#@151 Major mode for Calc keypad input.

This mode runs the hook `calc-keypad-mode-hook', as the final step
during initialization.

\{calc-keypad-mode-map}
(defalias 'calc-keypad-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
.\315\316\317#\210\315\320\317#\210\315\321\322#\210\315\323\324#\210\315\325\326#\210\315\327\326#\210\315\330\326#\210\315\331\326#\210\315\332\326#\210\315\333\326#\210\315\334\326#\210\315\335\326#\210\315\336\326#\210\315\337\326#\210\315\340\326#\210\315\341\326#\210\315\342\343#\210\315\344\345#\210\315\346\347#\210\350\311\351\352#\210\306\353!\210)\354\355!\207" [delay-mode-hooks major-mode mode-name calc-keypad-mode-map calc-keypad-mode-syntax-table calc-keypad-mode-abbrev-table make-local-variable t kill-all-local-variables calc-keypad-mode "Calculator" use-local-map set-syntax-table define-key " " calc-keypad-press "
" "	" calc-keypad-menu "q" calc-keypad-off [down-mouse-1] ignore [drag-mouse-1] [double-mouse-1] [triple-mouse-1] [down-mouse-2] [drag-mouse-2] [double-mouse-2] [triple-mouse-2] [down-mouse-3] [drag-mouse-3] [double-mouse-3] [triple-mouse-3] [mouse-3] calc-keypad-right-click [mouse-2] calc-keypad-middle-click [mouse-1] calc-keypad-left-click put mode-class special calc-main-buffer run-mode-hooks calc-keypad-mode-hook local-abbrev-table] 4 (#$ . 6056) nil])
(defalias 'calc-do-keypad #[(&optional full-display interactive) "\306 \210p\307	!\204�\310\311!\211q\210\312 \210\313 \210\314 \210\315\316\317\2110\320\321!\211\2032�\322\f!\210\320\323!\211\203K�\324 \203G�\325\326 !\210\202K�\322\f!\210\320	!\211\203s�\327\321!\210\327\323!\210\327	!\210\324 \203l�\325\326 !\210\202\322\f!\210\202\3301\331 \332!
\333\\W\204\223�\334!0\335\\W\204\223�2\203\227�\336!\210\332!
\337\\W\203\245�\340\341!\2102\203\326�\342\343\332!
\344#\"\345\314 \"\210\345\f	\"\210\346\f\344\"\210\342\f0\347\\\330#\345\f\"\210\202\375�\342\343\334!0\350#\330#\345\f	\"\210\346\f\344\"\210\342\f\343\332\f!
\344#\"\210\345\f\"\210\351!\210\352\353!\210\354\355!\2103\2034\203\356\350!\210\352\357!\210\3303,\317\2115)\207" [calcbuf calc-keypad-buffer calc-main-buffer old-win win height calc-create-buffer bufferp get-buffer-create "*Calc Keypad*" calc-keypad-mode calc-keypad-redraw calc-trail-buffer 29 17 nil get-buffer-window "*Calculator*" delete-window "*Calc Trail*" one-window-p switch-to-buffer other-buffer bury-buffer t get-largest-window window-height 6 window-width 15 delete-other-windows 4 error "Screen is not tall enough for this mode" split-window - 1 set-window-buffer set-window-start 7 2 select-window message "Welcome to GNU Emacs Calc!  Use the left and right mouse buttons" run-hooks calc-keypad-start-hook sit-for "" width calc-was-keypad-mode full-display calc-keypad-said-hello interactive calc-keypad-input] 6])
(defalias 'calc-keypad-off #[nil "\203�\301\302!\207\303 \207" [calc-standalone-flag save-buffers-kill-emacs nil calc-keypad] 2 nil nil])
(defalias 'calc-keypad-redraw #[nil "q\210\306\307\n8J\f\"\310
\311!\"\312 \210\313c\210\"\203\374�\"@##\203\310�#@$!\314Y\203:�\315\202T�!\316U\203S�#\"@=\203S�#A#\317\202T�\314%&\203h�$A@\320=\203h�\321\202�$@G%V\203|�$@\311%O\202�$@\211'G(%(\322\245Z)\323%(Z\322\245\324\"'\323\325%(\326#\322\245\324\"'\327\232\203\264�\330\nT!\202\265�\331\261\210-#A\211#\204%�\313c\210\202%�!\314Y\203\323�\332\202\337�!\316U\203\336�\333\202\337�\334!\335U\203\352�\336\202\353�\337\261\210!T!\"A\")\202�+\306*\340 \210eb\207" [calc-keypad-buffer buffer-read-only calc-keypad-menu calc-keypad-menus calc-keypad-layout calc-keypad-full-layout t append nil 0 erase-buffer "\n" 4 5 3 9 calc-keypad-off "EXIT" 2 make-string 32 - -1 "MENU" int-to-string "|" "-----+-----+-----+-----+-----" "-----+---+-+--+--+-+---++----" "----+----+----+----+----+----" 7 "+\n" "|\n" calc-keypad-show-input y row col key cwid calc-standalone-flag name wid pad calc-keypad-prev-input] 8])
(defalias 'calc-keypad-show-input #[nil "	\232\204*�\304\212eb\210\305y\210e`|\210\203 �\306\307\261\210\202)�\310\311T!\307\261\210*\211\207" [calc-keypad-input calc-keypad-prev-input buffer-read-only calc-keypad-menu nil 1 "Calc: " "\n" "----+----+--Calc---+----+----" int-to-string] 3])
(defalias 'calc-keypad-press #[nil "\306=\204\n�\307\310!\210\212\311 \210\312e`\")\211\313\245i\n\314Y\203#�\315\202$�\316\245\317\211\317@rAq\210BCD@E)F\320GHI8JJK\211L\205l�\321\322L\"\204j�\f\323X\205l�\321\324L\"\205l�\325\225M\nN88O@\203\210�F\203\204�\314\202\222�\313\202\222�F\203\221�\326\202\222�\327O8\206\243�\317\211G\206\243�OA@\211P:\205\256�P@;Q\320RG\203\274�\330\331!\210\332\216P\203\313�	\313\246\325U\203\320�\333 \202\360\334 \325V\203\"Q\203\352�P@\325HSB\211S\202\360P\335=\203\373�\336SB\211S\202\360P\337=\203\f\340SB\211S\202\360P\341=\203\342SB\211S\202\360\333 \202\360L\203\361\321\343L\"\203\361Q\203\303\321\344P@\"\203\303\317K\345\346P@P!TL\347\232\203W\350T!\202\277L\351\232\203e\352T!\202\277L\353\232\203s\354T!\202\277L\355\232\203\201\356T!\202\277L\357\232\203\217\360T!\202\277L\361\232\203\236\362\363T\"\202\277L\364\232\203\255\365\363T\"\202\277L\366\232\203\273\367T!\202\277\370T!)\202\360P\371>\203\321\317\211K\202\360L\366\232\203\354P\372\236\211\203\354L
AP\211K\202\360\333 \202\360Q\203\356P@\211P\373\232\203L\203\321\374L\"\204XP\324\232\2030L\2030\f\323X\203(\321\324L\"\204X\321\375L\"\204XP\373\232\204]\317U\321P\376\321\377L\206H\201[�\"\203R\201\\�\202S\f#)\203]\333 \202\360\f\201\\�U?\205|L\203tL\201]�\232\205|\201^�\201_�\f\"L\203\212L\201]�\232\205\253P\324\232\203\227\201`�\202\253P\373\232\205\253
\203\250\201`�\202\253\201a�LP\373\232\203\276
\203\276\201b�\202\347P\324\232\203\345L\203\324\321\201c�L\"\203\345\f\323V\203\345\201^�\201d�\f\"\202\347PR\211K\202\360P\201e�=\2032L\2032M\206\325VLV\317OWL\325VO\321\201f�W\"\203$W\363\317O\202*\201]�WPP\211K*\202\360P\335=\203cL\203cL\201[�\232\203L\333 \202\360L\325\321\201g�L\"\206\\\201h�O\211K\202\360P\341=\203vL\203v\317\211K\202\360L\203\256\201i�L!X\317KX\203\224\330\201j�!\210\202\243L\201[�\232\204\240\333 \210\317PP\337=\203\255\317P)YZP\205\360P:\203\352P@\201k�=\203\352PA\211P\205\360P@\250\203\337P@Z\202\307\201l�P@!\210\202\307\201l�P!.\207" [major-mode row y x radix frac calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" beginning-of-line count-lines 2 4 6 5 nil t string-match "\\*[0-9]+\\.\\^" 14 "e" 0 3 99 calc-do #[nil "\300\207" [nil] 1] ((byte-code "q\210\301 \207" [calc-keypad-buffer calc-keypad-show-input] 1)) beep minibuffer-depth calc-pop 127 calc-enter 13 calc-undo 7 "STO\\|RCL" "[0-9]" intern "var-q" "STO+" calc-store-plus "STO-" calc-store-minus "STO*" calc-store-times "STO/" calc-store-div "STO^" calc-store-power "STOn" calc-store-neg 1 "STO&" calc-store-inv "STO" calc-store-into calc-recall (calc-pop calc-undo) ((calc-plus . "+") (calc-minus . "-") (calc-times . "*") (calc-divide . "/") (calc-power . "^") (calc-change-sign . "n") (calc-inv . "&")) "." "[.:e^]" "\\^\\|[-.:]\\'" "0123456789ABCDEF" "[e^]" inv calc-main-buffer calc-number-radix calc-prefer-frac calc-inverse-flag calc-hyperbolic-flag hyp invhyp calc-keypad-menu calc-keypad-menus menu calc-keypad-input input iexpon calc-keypad-full-layout key cmd isstring calc-is-keypad-press unread-command-events var case-fold-search epos suffix val current-prefix-arg prefix-arg "" 10 "-" format "%d#" "1" "0" ":" "#" "*%d.^" calc-change-sign "\\`-" "\\*[0-9]+\\.\\^\\'" -1 math-read-number #[nil "\301\302\303!!C!\207" [val calc-push-list calc-record calc-normalize] 4] progn command-execute] 7 nil nil])
#@57 Handle a left-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-left-click #[(event) "rq\210	\211:\203�	A@\202�\303 `\304\305F)\306\n8\2060�\nA@:\203-�\nA@@\2020�\nA@)b\210\307 )\207" [calc-keypad-buffer event position selected-window (0 . 0) 0 5 calc-keypad-press] 5 (#$ . 13994) "e"])
#@58 Handle a right-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-right-click #[(event) "\212q\210\301 )\207" [calc-keypad-buffer calc-keypad-menu] 1 (#$ . 14307) "e"])
#@59 Handle a middle-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-middle-click #[(event) "rq\210\301 )\207" [calc-keypad-buffer calc-keypad-menu-back] 1 (#$ . 14497) "e"])
(defalias 'calc-keypad-menu #[nil "\303=\204\n�\304\305!\210	T\nG\246\211\n8J\203\n�\306 \207" [major-mode calc-keypad-menu calc-keypad-menus calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" calc-keypad-redraw] 3 nil nil])
(defalias 'calc-keypad-menu-back #[nil "\303=\204\n�\304\305!\210	\nG\\S\nG\246\211\n8J\203\n�\306 \207" [major-mode calc-keypad-menu calc-keypad-menus calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" calc-keypad-redraw] 3 nil nil])
(defalias 'calc-keypad-store #[nil "\301\211\207" [calc-keypad-input "STO"] 2 nil nil])
(defalias 'calc-keypad-recall #[nil "\301\211\207" [calc-keypad-input "RCL"] 2 nil nil])
(defalias 'calc-pack-interval #[(mode) "\301W\204\f�\302V\203�\303\304!\210\305\306Z!\207" [mode 0 3 error "Open/close code should be in the range from 0 to 3" calc-pack -6] 3 nil "p"])
(defalias 'calc-keypad-execute #[nil "\306\307\310\211\310\212\311 \210\312!\313!\211\314>\204'�\n\203@�\315\316\"\203@�\211GSH\317\f!\210\320\321\322!\323Q\211\202C�\f	=\204�)\324\325!\210\326\f!\203W�\317\f!\202]�\327\330\322!\"-\207" [prompt flush prefix keys cmd last-command-event "Calc keystrokes: " x-flush-mouse-queue nil calc-select-buffer read-key-sequence key-binding (calc-inverse calc-hyperbolic universal-argument digit-argument negative-argument) string-match "\\`?[-0-9]\\'" command-execute not-any-more t key-description " " message "" commandp error "Not a Calc command: %s"] 5 nil nil])
(provide 'calc-keypd)

${this.title}

Code Editor : calc-keypd.elc