;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317\320\321\322\301\323\324&\210\302\325\304\305\326DD\327\310\330\312\313\314\331\316\317\320\332\322\301\323\324&\210\302\333\304\305\334DD\335\310\336\312\313\314\337\316\317\320\340\322\301\323\324&\210\302\341\304\305\342DD\335\310\343\312\313\314\344\316\317\320\345\322\301\323\324&\207" [provide keypad custom-declare-variable keypad-setup funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[514 "\211\205\n\300
\301\211$\207" [keypad-setup nil] 7 "\n\n(fn SYMBOL VALUE)"] :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 #[0 "\300\207" [nil] 1 #1#] "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." #[514 "\211\205\n\300
\301\302$\207" [keypad-setup t nil] 7 "\n\n(fn SYMBOL VALUE)"] (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 #[0 "\300\207" [nil] 1 #1#] "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." #[514 "\211\205\n\300
\301\302$\207" [keypad-setup nil t] 7 "\n\n(fn SYMBOL VALUE)"] (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 #[0 "\300\207" [nil] 1 #1#] #[514 "\211\205\n\300
\301\211$\207" [keypad-setup t] 7 "\n\n(fn SYMBOL VALUE)"] (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)
#@1000 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 `.'

(fn SETUP &optional NUMLOCK SHIFT DECIMAL)
(defalias 'keypad-setup #[1025 "\301\204
\204
\302\202.\204\203\303\202.\203%\204%\304\202.\205.\205.\305\211\306\267\202D\307\202E\310\202E\311\202E\312\202E\313\314=\204S\315!\203q\314=\203\\\313\262\316\206b\317\320\321\322\323\324\325\326\327\330\331&\202\217\332\267\202\210\333\202\217\334\202\217\335\202\217\313\202\217\336\337\340	D\"L\210\341\300!\204\235\342 \343W\205\365\344\316H!\205\265\316H!#\210\345U\203\356
H\346=\203\327\344\347\205\322\316H!#\210\202\356
H\350=\203\356\344\351\205\354\316H!#\210T\262\202\235\207" [function-key-map 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 52 keypad-shifted-setup 56 keypad-numlock-setup 60 keypad-numlock-shifted-setup 64)) [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 120 cursor 124 S-cursor 128 none 132)) [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 make-sparse-keymap 11 define-key 6 kp-space [kp-begin] S-kp-space [S-kp-begin]] 19 (#$ . 3358)])