# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 964125305 0
# Node ID a8a6780670ad770be2df23349d60f0e2de491bb1
# Parent  e720a582ab3b7d57a8e1c576d8291b0a4d2df67c
(universal-argument-map): Bind numeric keypad keys
kp-0 to kp-9 and kp-subtract.
(digit-argument): Handle these keys.

diff -r e720a582ab3b -r a8a6780670ad lisp/simple.el
--- a/lisp/simple.el	Thu Jul 20 17:31:18 2000 +0000
+++ b/lisp/simple.el	Thu Jul 20 20:35:05 2000 +0000
@@ -1398,6 +1398,17 @@
     (define-key map [?7] 'digit-argument)
     (define-key map [?8] 'digit-argument)
     (define-key map [?9] 'digit-argument)
+    (define-key map [kp-0] 'digit-argument)
+    (define-key map [kp-1] 'digit-argument)
+    (define-key map [kp-2] 'digit-argument)
+    (define-key map [kp-3] 'digit-argument)
+    (define-key map [kp-4] 'digit-argument)
+    (define-key map [kp-5] 'digit-argument)
+    (define-key map [kp-6] 'digit-argument)
+    (define-key map [kp-7] 'digit-argument)
+    (define-key map [kp-8] 'digit-argument)
+    (define-key map [kp-9] 'digit-argument)
+    (define-key map [kp-subtract] 'universal-argument-minus)
     map)
   "Keymap used while processing \\[universal-argument].")
 
@@ -1450,7 +1461,10 @@
   "Part of the numeric argument for the next command.
 \\[universal-argument] following digits or minus sign ends the argument."
   (interactive "P")
-  (let ((digit (- (logand last-command-char ?\177) ?0)))
+  (let* ((char (if (integerp last-command-char)
+		   last-command-char
+		 (get last-command-char 'ascii-character)))
+	 (digit (- (logand char ?\177) ?0)))
     (cond ((integerp arg)
 	   (setq prefix-arg (+ (* arg 10)
 			       (if (< arg 0) (- digit) digit))))