# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980953525 0
# Node ID 7ae7252c53c9af99537bcacbc8bf2979f1f6e09d
# Parent  171fc487f5278a0ab15dfd285dd7c01c73b10b49
(delete-key-deletes-forward-mode): Treat `kp-delete'
like `delete'.

diff -r 171fc487f527 -r 7ae7252c53c9 lisp/simple.el
--- a/lisp/simple.el	Wed Jan 31 14:52:04 2001 +0000
+++ b/lisp/simple.el	Wed Jan 31 15:05:25 2001 +0000
@@ -4067,8 +4067,10 @@
 	   (if delete-key-deletes-forward
 	       (progn
 		 (define-key function-key-map [delete] [?\C-d])
+		 (define-key function-key-map [kp-delete] [?\C-d])
 		 (define-key function-key-map [backspace] [?\C-?]))
 	     (define-key function-key-map [delete] [?\C-?])
+	     (define-key function-key-map [kp-delete] [?\C-?])
 	     (define-key function-key-map [backspace] [?\C-?]))
 
 	   (dolist (binding bindings)