home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3 (Developer) / NeXT_Developer-3.3.iso / NextDeveloper / Source / GNU / emacs / lisp / term / bobcat.el < prev    next >
Encoding:
Text File  |  1986-01-31  |  321 b   |  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.