110 |
`C-u \\[autoarg-terminate]' invokes the normal binding of \\[autoarg-terminate] four times. |
`C-u \\[autoarg-terminate]' invokes the normal binding of \\[autoarg-terminate] four times. |
111 |
|
|
112 |
\\{autoarg-mode-map}" |
\\{autoarg-mode-map}" |
113 |
nil " Aarg" autoarg-mode-map :global t) |
nil " Aarg" autoarg-mode-map :global t :group 'keyboard) |
114 |
|
|
115 |
;;;###autoload |
;;;###autoload |
116 |
(define-minor-mode autoarg-kp-mode |
(define-minor-mode autoarg-kp-mode |
121 |
&c to supply digit arguments. |
&c to supply digit arguments. |
122 |
|
|
123 |
\\{autoarg-kp-mode-map}" |
\\{autoarg-kp-mode-map}" |
124 |
nil " Aakp" autoarg-kp-mode-map :global t |
nil " Aakp" autoarg-kp-mode-map :global t :group 'keyboard |
125 |
(if autoarg-kp-mode |
(if autoarg-kp-mode |
126 |
(dotimes (i 10) |
(dotimes (i 10) |
127 |
(let ((sym (intern (format "kp-%d" i)))) |
(let ((sym (intern (format "kp-%d" i)))) |