mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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
(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))
(load "term/keyswap" nil t)