Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emulation/keypad.elc

;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
!\203t0\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)])