Define `kp-delete' like `delete' in function-key-map.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acbb9c632cf..f14bd10faf3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2001-01-31  Gerd Moellmann  <gerd@gnu.org>
 
+        * simple.el (delete-key-deletes-forward-mode): Treat `kp-delete'
+        like `delete'.
+
+        * bindings.el: Define `kp-delete' like `delete' in
+        function-key-map.
+
         * term/w32-win.el (mouse-set-font): Doc fix.
 
 2001-01-31  Markus Rost  <rost@math.ohio-state.edu>
diff --git a/lisp/bindings.el b/lisp/bindings.el
index b7127298e65..d1e16d6da6a 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -731,9 +731,9 @@ language you are using."
 (define-key function-key-map [kp-end] [end])
 (define-key function-key-map [kp-begin] [begin])
 (define-key function-key-map [kp-insert] [insert])
-(define-key function-key-map [kp-delete] [delete])
 (define-key function-key-map [backspace] [?\C-?])
 (define-key function-key-map [delete] [?\C-?])
+(define-key function-key-map [kp-delete] [?\C-?])
 
 (define-key global-map [mouse-movement] 'ignore)