|
|
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.