* lisp/comint.el (comint-mode-map): Replace `delete-char' with `delete-forward-char'.

Fixes: debbugs:16109

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11dd2d69c0413611a6224e5d9e051befe05e2415..805db12de4ae65c45321b0bb0addf47121a52a3a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-13  Juri Linkov  <juri@jurta.org>
+
+       * comint.el (comint-mode-map): Replace `delete-char' with
+       `delete-forward-char'.  (Bug#16109)
+
 2013-12-12  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        * progmodes/python.el (python-indent-calculate-indentation): Fix

diff --git a/lisp/comint.el b/lisp/comint.el
index 08e8b162771a389692ff3b35c039394daa29b27f..e7dff585b68cf025d80860b2b4923219bda41af1 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -460,10 +460,10 @@ executed once when the buffer is created."
     (define-key map "\e\C-l"     'comint-show-output)
     (define-key map "\C-m"       'comint-send-input)
     (define-key map "\C-d"       'comint-delchar-or-maybe-eof)
-    ;; The following two are standardly aliased to C-d,
+    ;; The following two are standardly bound to delete-forward-char,
     ;; but they should never do EOF, just delete.
-    (define-key map [delete]     'delete-char)
-    (define-key map [kp-delete]          'delete-char)
+    (define-key map [delete]     'delete-forward-char)
+    (define-key map [kp-delete]          'delete-forward-char)
     (define-key map "\C-c "      'comint-accumulate)
     (define-key map "\C-c\C-x"           'comint-get-next-from-history)
     (define-key map "\C-c\C-a"           'comint-bol-or-process-mark)