|
|
1.1 root 1: ;;; HP terminals usually encourage using ^H as the rubout character
2:
3: (let ((the-table (make-string 128 0)))
4: (let ((i 0))
5: (while (< i 128)
6: (aset the-table i i)
7: (setq i (1+ i))))
8: ;; Swap ^H and DEL
9: (aset the-table ?\177 ?\^h)
10: (aset the-table ?\^h ?\177)
11: (setq keyboard-translate-table the-table))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.