Mercurial > emacs
changeset 40612:1c821a940597
(command-line): If the terminal Emacs is running on
has erase char set to ^H, use the Backspace key for deleting
backward and, and the Delete key for deleting forward.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 01 Nov 2001 13:08:38 +0000 |
| parents | 1ec9f5822539 |
| children | 2b240b538838 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Nov 01 11:25:01 2001 +0000 +++ b/lisp/startup.el Thu Nov 01 13:08:38 2001 +0000 @@ -800,7 +800,12 @@ (when (or (memq system-type '(ms-dos windows-nt)) (and (memq window-system '(x)) (fboundp 'x-backspace-delete-keys-p) - (x-backspace-delete-keys-p))) + (x-backspace-delete-keys-p)) + ;; If the terminal Emacs is running on has erase char + ;; set to ^H, use the Backspace key for deleting + ;; backward and, and the Delete key for deleting forward. + (and (null window-system) + (eq tty-erase-char 8))) (setq-default normal-erase-is-backspace t) (normal-erase-is-backspace-mode 1)))