%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\301\321\322&\210\302\323\304\324\306\325\310\311\312\326\314\315\316\327\320\301\321\322&\210\302\330\304\331\306\332\310\311\312\333\314\315\316\334\320\301\321\322&\210\302\335\304\331\306\336\310\311\312\337\314\315\316\340\320\301\321\322&\207" [provide keypad custom-declare-variable keypad-setup nil "Specifies the keypad setup for unshifted keypad keys when NumLock is off.\nWhen selecting the plain numeric keypad setup, the character returned by the\ndecimal key must be specified." :set #[(symbol value) "\205\n \301\302\211$\207" [value keypad-setup nil] 5] :initialize custom-initialize-default :link (emacs-commentary-link "keypad.el") :version "22.1" :type (choice (const :tag "Plain numeric keypad" numeric) (character :tag "Numeric Keypad with Decimal Key" :match (lambda (widget value) (integerp value)) :value 46) (const :tag "Numeric prefix arguments" prefix) (const :tag "Cursor keys" cursor) (const :tag "Shifted cursor keys" S-cursor) (const :tag "Unspecified/User-defined" none) (other :tag "Keep existing bindings" nil)) :require :group keyboard keypad-numlock-setup "Specifies the keypad setup for unshifted keypad keys when NumLock is on.\nWhen selecting the plain numeric keypad setup, the character returned by the\ndecimal key must be specified." #[(symbol value) "\205\n \301\302\303$\207" [value keypad-setup t nil] 5] (emacs-commentary-link "keypad.el") (choice (const :tag "Plain numeric keypad" numeric) (character :tag "Numeric Keypad with Decimal Key" :match (lambda (widget value) (integerp value)) :value 46) (const :tag "Numeric prefix arguments" prefix) (const :tag "Cursor keys" cursor) (const :tag "Shifted cursor keys" S-cursor) (const :tag "Unspecified/User-defined" none) (other :tag "Keep existing bindings" nil)) keypad-shifted-setup "Specifies the keypad setup for shifted keypad keys when NumLock is off.\nWhen selecting the plain numeric keypad setup, the character returned by the\ndecimal key must be specified." #[(symbol value) "\205\n \301\302\303$\207" [value keypad-setup nil t] 5] (emacs-commentary-link "keypad.el") (choice (const :tag "Plain numeric keypad" numeric) (character :tag "Numeric Keypad with Decimal Key" :match (lambda (widget value) (integerp value)) :value 46) (const :tag "Numeric prefix arguments" prefix) (const :tag "Cursor keys" cursor) (const :tag "Shifted cursor keys" S-cursor) (const :tag "Unspecified/User-defined" none) (other :tag "Keep existing bindings" nil)) keypad-numlock-shifted-setup #[(symbol value) "\205\n \301\302\211$\207" [value keypad-setup t] 5] (emacs-commentary-link "keypad.el") (choice (const :tag "Plain numeric keypad" numeric) (character :tag "Numeric Keypad with Decimal Key" :match (lambda (widget value) (integerp value)) :value 46) (const :tag "Numeric prefix arguments" prefix) (const :tag "Cursor keys" cursor) (const :tag "Shifted cursor keys" S-cursor) (const :tag "Unspecified/User-defined" none) (other :tag "Keep existing bindings" nil))] 18)
#@954 Set keypad bindings in `function-key-map' according to SETUP.
If optional second argument NUMLOCK is non-nil, the NumLock On bindings
are changed. Otherwise, the NumLock Off bindings are changed.
If optional third argument SHIFT is non-nil, the shifted keypad
keys are bound.
Setup Binding
-------------------------------------------------------------
`prefix' Command prefix argument, i.e. M-0 .. M-9 and M--
`S-cursor' Bind shifted keypad keys to the shifted cursor movement keys.
`cursor' Bind keypad keys to the cursor movement keys.
`numeric' Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg)
`none' Removes all bindings for keypad keys in function-key-map;
this enables any user-defined bindings for the keypad keys
in the global and local keymaps.
If SETUP is `numeric' and the optional fourth argument DECIMAL is non-nil,
the decimal key on the keypad is mapped to DECIMAL instead of `.'
(defalias 'keypad-setup #[(setup &optional numlock shift decimal) "\306 \204 \n\204 \307\202/ \204 \n\203 \310\202/ \203& \n\204& \311\202/ \205/ \n\205/ \312\211\313\267\202F \314\202G \315\202G \316\202G \317\202G \320
\321=\204T \322
!\203t 0\321=\203^ \3200\3230\206e \324\325\326\327\330\331\332\333\334\335\336& \202\220
\337\267\202\212 \340\202\220 \341\202\220 \342\202\220 \320\202\220 \343\344\345
D\" 1
L\210\346\347!\204\240 \350 '\351W\205\375 \352'\323\fH!1\205\271 \3231H!#\210\353U\203\366 \fH\354=\203\335 \352'\3551\205\330 \3231H!#\210\202\366 \fH\356=\203\366 \352'\3571\205\364 \3231H!#\210T\211\202\241 ,\207" [i numlock shift var kp setup 0 keypad-setup keypad-shifted-setup keypad-numlock-setup keypad-numlock-shifted-setup #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (keypad-setup 54 keypad-shifted-setup 58 keypad-numlock-setup 62 keypad-numlock-shifted-setup 66)) [kp-delete kp-insert kp-end kp-down kp-next kp-left kp-space kp-right kp-home kp-up kp-prior] [S-kp-decimal S-kp-0 S-kp-1 S-kp-2 S-kp-3 S-kp-4 S-kp-5 S-kp-6 S-kp-7 S-kp-8 S-kp-9] [kp-decimal kp-0 kp-1 kp-2 kp-3 kp-4 kp-5 kp-6 kp-7 kp-8 kp-9] [S-kp-delete S-kp-insert S-kp-end S-kp-down S-kp-next S-kp-left S-kp-space S-kp-right S-kp-home S-kp-up S-kp-prior] nil numeric characterp vector 46 48 49 50 51 52 53 54 55 56 57 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 122 cursor 126 S-cursor 130 none 134)) [134217773 134217776 134217777 134217778 134217779 134217780 134217781 134217782 134217783 134217784 134217785] [delete insert end down next left space right home up prior] [S-delete S-insert S-end S-down S-next S-left S-space S-right S-home S-up S-prior] signal error "Unknown keypad setup: " boundp function-key-map make-sparse-keymap 11 define-key 6 kp-space [kp-begin] S-kp-space [S-kp-begin] decimal bind] 13 (#$ . 3474)])
Zerion Mini Shell 1.0