(comint-mode-map): Explicitly bind `delete' and `kp-delete'

so they never do EOF.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6214d715b37a1b363106a16d911a072f932ecde8..7ac2582e64cbb597aad909fbecc82e984acc5e53 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-25  Richard Stallman  <rms@gnu.org>
+
+       * comint.el (comint-mode-map): Explicitly bind `delete' and `kp-delete'
+       so they never do EOF.
+
 2007-12-23  Richard Stallman  <rms@gnu.org>
 
        * dired-aux.el: Load dired.el at run time too.

diff --git a/lisp/comint.el b/lisp/comint.el
index 047cc3b80fb09d63b67aa36b649054b70fd647f7..96c36f3496fa7dac428658f557c9f4c9f5aec11e 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -453,6 +453,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,
+    ;; but they should never do EOF, just delete.
+    (define-key map [delete]     'delete-char)
+    (define-key map [kp-delete]          'delete-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)