home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / e1858src.lha / emacs-18.58 / lisp / term / bobcat.el < prev    next >
Lisp/Scheme  |  1992-02-21  |  321b  |  12 lines
  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))
  12.