795 |
(when (or (memq system-type '(ms-dos windows-nt)) |
(when (or (memq system-type '(ms-dos windows-nt)) |
796 |
(and (memq window-system '(x)) |
(and (memq window-system '(x)) |
797 |
(fboundp 'x-backspace-delete-keys-p) |
(fboundp 'x-backspace-delete-keys-p) |
798 |
(x-backspace-delete-keys-p))) |
(x-backspace-delete-keys-p)) |
799 |
|
;; If the terminal Emacs is running on has erase char |
800 |
|
;; set to ^H, use the Backspace key for deleting |
801 |
|
;; backward and, and the Delete key for deleting forward. |
802 |
|
(and (null window-system) |
803 |
|
(eq tty-erase-char 8))) |
804 |
(setq-default normal-erase-is-backspace t) |
(setq-default normal-erase-is-backspace t) |
805 |
(normal-erase-is-backspace-mode 1))) |
(normal-erase-is-backspace-mode 1))) |
806 |
|
|