| Current Path : /usr/share/emacs/24.3/lisp/emulation/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/emulation/keypad.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:59 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/keypad.el
;;; in Emacs version 24.3.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\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)
#@946 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\307=\203: \313\202U \310=\203D \314\202U \311=\203N \315\202U \312=\205U \316
\317=\204b \320
!\203\202 2\317=\203l \3212\3222\206s \323\324\325\326\327\330\331\332\333\334\335& \202\260
\336=\203\214 \337\202\260
\340=\203\226 \341\202\260
\342=\203\240 \343\202\260
\344=\203\252 \321\202\260 \345\346\347
D\" 3
L\210\350\351!\204\300 \352 )\353W\205 \354)\322\fH!3\205\331 \3223H!#\210\355U\203\fH\356=\203\375 \354)\3573\205\370 \3223H!#\210\202\fH\360=\203\354)\3613\205\3223H!#\210T\211\202\301 ,\207" [i numlock shift var kp setup 0 keypad-setup keypad-shifted-setup keypad-numlock-setup keypad-numlock-shifted-setup [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] numeric characterp nil vector 46 48 49 50 51 52 53 54 55 56 57 prefix [134217773 134217776 134217777 134217778 134217779 134217780 134217781 134217782 134217783 134217784 134217785] cursor [delete insert end down next left space right home up prior] S-cursor [S-delete S-insert S-end S-down S-next S-left S-space S-right S-home S-up S-prior] none 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 (#$ . 3625)])