mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues Projects Releases Wiki Activity

(command-line): If the terminal Emacs is running on

Browse source 
has erase char set to ^H, use the Backspace key for deleting
backward and, and the Delete key for deleting forward.
This commit is contained in:
Gerd Moellmann 2001-11-01 13:09:32 +00:00
parent 7b49b9d282
commit 7360b8aa67
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2001-11-01 Gerd Moellmann <gerd@gnu.org>
* startup.el (command-line): If the terminal Emacs is running on
has erase char set to ^H, use the Backspace key for deleting
backward, and the Delete key for deleting forward.
2001-11-01 Miles Bader <miles@gnu.org>
* button.el (define-button-type): Make sure every user-defined

7
lisp/startup.el
View file

@ -800,7 +800,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(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)))