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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acbb9c632cf640233976a1b36855fcdf4813f576..f14bd10faf3bd1e446dc1a9ddc7813efd15a6a70 100644 (file)
--- 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 b7127298e652c51ed4edc878b6aa0315b70feca5..d1e16d6da6a9564de7e778605d86f2ddff74e098 100644 (file)
--- 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)