Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rochester!udel!gatech!rutgers!sri-spam!mordor!lll-tis!ptsfa!ihnp4!ihdev!pdg
From: pdg@ihdev.ATT.COM (Joe Isuzu)
Newsgroups: comp.emacs
Subject: Re: If you REALLY don't like the arrangement of C-h and DEL in GNU...
Message-ID: <1450@ihdev.ATT.COM>
Date: Wed, 17-Jun-87 19:19:37 EDT
Article-I.D.: ihdev.1450
Posted: Wed Jun 17 19:19:37 1987
Date-Received: Sun, 21-Jun-87 11:48:05 EDT
References: <247@cbstr1.att.com>
Reply-To: pdg@ihdev.UUCP (Joe Isuzu)
Organization: American Nasal Amputation Centre
Lines: 30
Keywords: keyboard-translate-table

In article <247@cbstr1.att.com> Karl.Kleinpaste@cbstr1.att.com writes:
>Many people are used to typing C-h as a delete-backward-char (aka,
>"stty erase") and tend to use DEL as a SIGINT key.  
>(setq keyboard-translate-table "\000\001\002\003\004\005\006\007
>\177\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027
>\030\031\032\033\034\035\036\037 !\042#$%&'()*+,-./0123456789:;<
>=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\134]^_`abcdefghijklmnopqrstuvwxy
>z{|}~\010")


A little cleaner (from my .env, originally stolen from one of the
tty init files suplied with GNUmacs) and easier to read/modify.

;;; switch ^H and ^?
(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))

I agree with Karl, the k-t-t is a great feature.

-- 

Paul Guthrie				"Another day, another Jaguar"
ihnp4!ihdev!pdg				    -- Pat Sajak