Lines Matching defs:digit
1 ;;; autoarg.el --- make digit keys supply prefix args
30 ;; a facility reported from Twenex Emacs whereby digit keys supplied
31 ;; prefix args rather than self inserting, with a digit sequence
42 ;; digit keys alone and redefines the `keypad' keys, `kp-1' &c as
43 ;; digit arguments. (Use `NumLock' if necessary to generate kp-N.)
50 ;; Loop over digit characters to set up keymap.
52 (define-key map `[,(+ ?0 i)] 'digit-argument)
69 (defun autoarg-kp-digit-argument (arg)
70 "Part of the numeric argument for the next command, like `digit-argument'."
72 (let ((digit (cdr (assq last-command-char autoarg-kp-digits))))
75 (if (< arg 0) (- digit) digit))))
78 (setq prefix-arg (if (zerop digit) '- (- digit))))
80 (setq prefix-arg digit))))
86 ;; Loop over digit characters to set up keymap.
89 (define-key map (vector sym) 'autoarg-kp-digit-argument)))
99 In Autoarg mode digits are bound to `digit-argument' -- i.e. they
122 etc. to supply digit arguments.
130 'autoarg-kp-digit-argument)))
136 "Maybe terminate a digit prefix sequence.