* lisp/simple.el (normal-erase-is-backspace-mode): Map kp-delete identically

to `delete'.

Fixes: debbugs:16109

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4eb5b5e8e18aa66c240b56197344d0d0b3cb6307..e4eabc0cc50917f5f51da23948f0625b766e4ae6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (normal-erase-is-backspace-mode): Map kp-delete identically
+       to `delete' (bug#16109).
+
 2013-12-11  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 
        * progmodes/octave.el (octave-mode, inferior-octave-mode): Link to

diff --git a/lisp/simple.el b/lisp/simple.el
index 260c1702def36dc86e8982bc0039493ea7a4c9b0..af1139bb942f8307ae485fc63d79150821c2ecd2 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7435,7 +7435,7 @@ See also `normal-erase-is-backspace'."
             (if enabled
                 (progn
                   (define-key local-function-key-map [delete] [deletechar])
-                  (define-key local-function-key-map [kp-delete] [?\C-d])
+                  (define-key local-function-key-map [kp-delete] [deletechar])
                   (define-key local-function-key-map [backspace] [?\C-?])
                    (dolist (b bindings)
                      ;; Not sure if input-decode-map is really right, but