From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 31 Jan 2001 15:05:25 +0000 (+0000)
Subject: (delete-key-deletes-forward-mode): Treat `kp-delete'
X-Git-Tag: emacs-pretest-21.0.98~261
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be4f1e412ab158ba93ff2f3d514159bb812231a2;p=emacs.git

(delete-key-deletes-forward-mode): Treat `kp-delete'
like `delete'.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 092dfad5f16..9078e6aa21e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4067,8 +4067,10 @@ For more details, see `delete-key-deletes-forward'."
 	   (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)