Function: autoarg-kp-mode

autoarg-kp-mode is an autoloaded, interactive and byte-compiled function defined in autoarg.el.gz.

Signature

(autoarg-kp-mode &optional ARG)

Documentation

Toggle Autoarg-KP mode, a global minor mode.

This is a minor mode. If called interactively, toggle the Autoarg-Kp mode mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is toggle. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer, evaluate (default-value \=autoarg-kp-mode)'.

The mode's hook is called both when the mode is enabled and when it is disabled.

This is similar to autoarg-mode(var)/autoarg-mode(fun) but rebinds the keypad keys kp-1 etc. to supply digit arguments.

<kp-0> autoarg-kp-digit-argument
<kp-1> autoarg-kp-digit-argument
<kp-2> autoarg-kp-digit-argument
<kp-3> autoarg-kp-digit-argument
<kp-4> autoarg-kp-digit-argument
<kp-5> autoarg-kp-digit-argument
<kp-6> autoarg-kp-digit-argument
<kp-7> autoarg-kp-digit-argument
<kp-8> autoarg-kp-digit-argument
<kp-9> autoarg-kp-digit-argument
<kp-subtract> negative-argument

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/autoarg.el.gz
;;;###autoload
(define-minor-mode autoarg-kp-mode
  "Toggle Autoarg-KP mode, a global minor mode.

\\<autoarg-kp-mode-map>
This is similar to `autoarg-mode' but rebinds the keypad keys
`kp-1' etc. to supply digit arguments.

\\{autoarg-kp-mode-map}"
  :lighter " Aakp" :global t :group 'keyboard
  (if autoarg-kp-mode
      (dotimes (i 10)
	(let ((sym (intern (format "kp-%d" i))))
	  (define-key universal-argument-map (vector sym)
	    'autoarg-kp-digit-argument)))
    (dotimes (i 10)
      (let ((sym (intern (format "kp-%d" i))))
	(define-key universal-argument-map (vector sym) nil)))))