From 6143495cd6cb20700186b839bd5e5bd19a6519c8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 Dec 2007 16:56:28 +0000 Subject: [PATCH] (comint-mode-map): Explicitly bind `delete' and `kp-delete' so they never do EOF. --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6214d715b37..7ac2582e64c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-12-25 Richard Stallman + + * comint.el (comint-mode-map): Explicitly bind `delete' and `kp-delete' + so they never do EOF. + 2007-12-23 Richard Stallman * dired-aux.el: Load dired.el at run time too. diff --git a/lisp/comint.el b/lisp/comint.el index 047cc3b80fb..96c36f3496f 100644 --- 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) -- 2.39.2