home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / emacs-15.0.3 / lisp / term / bobcat.el < prev    next >
Lisp/Scheme  |  1990-07-19  |  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.