mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Just load keyswap.el.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-30 03:44:07 +00:00
parent cbc336a24f
commit 4595014a19
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/term/bobcat.el
View File

@ -1,11 +1,2 @@
;;; HP terminals usually encourage using ^H as the rubout character ;;; HP terminals usually encourage using ^H as the rubout character
(load "term/keyswap" nil t)
(let ((the-table (make-string 128 0)))
(let ((i 0))
(while (< i 128)
(aset the-table i i)
(setq i (1+ i))))
;; Swap ^H and DEL
(aset the-table ?\177 ?\^h)
(aset the-table ?\^h ?\177)
(setq keyboard-translate-table the-table))