Lines Matching defs:kp
41 ;; Also provides `autoarg-kp-mode' which is similar, but leaves the
42 ;; digit keys alone and redefines the `keypad' keys, `kp-1' &c as
43 ;; digit arguments. (Use `NumLock' if necessary to generate kp-N.)
64 (defvar autoarg-kp-digits
67 (push (cons (intern (format "kp-%d" i)) i) alist))))
69 (defun autoarg-kp-digit-argument (arg)
72 (let ((digit (cdr (assq last-command-char autoarg-kp-digits))))
84 (defvar autoarg-kp-mode-map
88 (let ((sym (intern (format "kp-%d" i))))
89 (define-key map (vector sym) 'autoarg-kp-digit-argument)))
90 (define-key map [kp-subtract] 'negative-argument)
117 (define-minor-mode autoarg-kp-mode
120 \\<autoarg-kp-mode-map>
121 This is similar to \\[autoarg-mode] but rebinds the keypad keys `kp-1'
124 \\{autoarg-kp-mode-map}"
125 nil " Aakp" autoarg-kp-mode-map :global t :group 'keyboard
126 (if autoarg-kp-mode
128 (let ((sym (intern (format "kp-%d" i))))
130 'autoarg-kp-digit-argument)))
132 (let ((sym (intern (format "kp-%d" i))))