Annotation of 43BSD/contrib/emacs/lisp/term/bobcat.el, revision 1.1

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

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.