From: Juri Linkov Date: Fri, 13 Dec 2013 00:47:18 +0000 (+0200) Subject: * lisp/comint.el (comint-mode-map): Replace `delete-char' with `delete-forward-char'. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~438 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bc170c3f1a3661f31a868d7bac9b3b3909dc576;p=emacs.git * 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 11dd2d69c04..805db12de4a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-12-13 Juri Linkov + + * comint.el (comint-mode-map): Replace `delete-char' with + `delete-forward-char'. (Bug#16109) + 2013-12-12 Fabián Ezequiel Gallina * progmodes/python.el (python-indent-calculate-indentation): Fix diff --git a/lisp/comint.el b/lisp/comint.el index 08e8b162771..e7dff585b68 100644 --- 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)