Mercurial > emacs

view lisp/term/bobcat.el @ 3098:6aee2746a385

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(C_ALLOCA, alloca): Definitions deleted. [!NOT_C_CODE]: Include alloca.h. (NEED_SIOCTL): #undef this.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 May 1993 21:01:14 +0000
parents 9a41f30a5e64
children f1f4cab7f621
line wrap: on
line source

;;; HP terminals usually encourage using ^H as the rubout character

(let ((the-table (make-string 128 0)))
  (let ((i 0))
    (while (< i 128)
      (aset the-table i i)
      (setq i (1+ i))))
  ;; Swap ^H and DEL
  (aset the-table ?\177 ?\^h)
  (aset the-table ?\^h ?\177)
  (setq keyboard-translate-table the-table))