[Emacs-diffs] trunk r115498: * lisp/comint.el (comint-mode-map): Replace `delete-char' with `delete-forward-char'.

[Juri Linkov]

------------------------------------------------------------
revno: 115498
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16109
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2013-12-13 02:47:18 +0200
message:
  * lisp/comint.el (comint-mode-map): Replace `delete-char' with 
`delete-forward-char'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/comint.el                 comint.el-20091113204419-o5vbwnq5f7feedwu-149

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-12 23:32:05 +0000
+++ b/lisp/ChangeLog    2013-12-13 00:47:18 +0000
@@ -1,3 +1,8 @@
+2013-12-13  Juri Linkov  <address@hidden>
+
+       * comint.el (comint-mode-map): Replace `delete-char' with
+       `delete-forward-char'.  (Bug#16109)
+
 2013-12-12  Fabián Ezequiel Gallina  <address@hidden>
 
        * progmodes/python.el (python-indent-calculate-indentation): Fix

=== modified file 'lisp/comint.el'
--- a/lisp/comint.el    2013-12-11 00:11:26 +0000
+++ b/lisp/comint.el    2013-12-13 00:47:18 +0000
@@ -460,10 +460,10 @@
     (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)