home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-18.59-bin.lha / lib / emacs / 18.59 / lisp / term / bobcat.el < prev    next >
Lisp/Scheme  |  1986-01-31  |  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.