Alt key to Meta key bindings (for Gnu)

[Daniel A Haug]

> From jr at BBN.COM Fri Jun  9 08:23:24 1989
> To: Daniel A Haug <aihaug at austin.lockheed.com>
> Subject: Re: binding Alt-X to Meta-X 
> In-Reply-To: Your message of Thu, 08 Jun 89 00:03:00 -0500.
>              <8906080503.AA14210 at shrike.Austin.Lockheed.COM> 
> Date: Fri, 09 Jun 89 09:16:38 -0400
> Message-Id: <11492.613401398 at bbn.com>
> From: John Robinson <jr at BBN.COM>
> 
> > Thanks for the reply!  Your instructions got the job done!  Now I have
> > full Alt-key operations on the Silicon graphics.
> 
> In order that the next person not have to go through it again, maybe
> you would consider submitting the resulting code to the FSF as a
> contribution, or at least posting it to the newsgroup.
> 
> /jr

Okay, following is my .emacs file (for Gnu) with key bindings that map
the Alt-key to the Meta-key.  Note that on the SG, this only works
currently for the right Alt key, not the left Alt key.

dan haug
========================== cut here ===================================

;;; +-----------------------------------------------------------
;;; The following key bindings make the Alt key on the SG work
;;; like the Meta key.  In all cases (except backward-paragraph),
;;; you can still use ESC-key as well.
;;; +-----------------------------------------------------------

(global-unset-key "\e[")                       ;unbind ESC-[
(global-set-key "\e[084q" 'backward-paragraph) ;rebind to Alt-[

(global-set-key "\e[087q" 'backward-sentence)        ;ESC-a
(global-set-key "\e[105q" 'backward-word)            ;ESC-b
(global-set-key "\e[103q" 'capitalize-word)          ;ESC-c
(global-set-key "\e[089q" 'kill-word)                ;ESC-d
(global-set-key "\e[076q" 'forward-sentence)         ;ESC-e
(global-set-key "\e[090q" 'forward-word)             ;ESC-f
(global-set-key "\e[091q" 'fill-region)              ;ESC-g
(global-set-key "\e[092q" 'mark-paragraph)           ;ESC-h
(global-set-key "\e[081q" 'tab-to-tab-stop)          ;ESC-i
(global-set-key "\e[093q" 'indent-new-comment-line)  ;ESC-j
(global-set-key "\e[094q" 'kill-sentence)            ;ESC-k
(global-set-key "\e[095q" 'downcase-word)            ;ESC-l
(global-set-key "\e[107q" 'back-to-indentation)      ;ESC-m
(global-set-key "\e[074q" 'fill-paragraph)           ;ESC-q
(global-set-key "\e[077q" 'move-to-window-line)      ;ESC-r
(global-set-key "\e[078q" 'transpose-words)          ;ESC-t
(global-set-key "\e[080q" 'upcase-word)              ;ESC-u
(global-set-key "\e[104q" 'scroll-down)              ;ESC-v
(global-set-key "\e[075q" 'copy-region-as-kill)      ;ESC-w
(global-set-key "\e[102q" 'execute-extended-command) ;ESC-x
(global-set-key "\e[079q" 'yank-pop)                 ;ESC-y
(global-set-key "\e[101q" 'zap-to-char)              ;ESC-z

(global-set-key "\e[097q" 'indent-for-comment)       ;ESC-;
(global-set-key "\e[111q" 'find-tag)                 ;ESC-.
(global-set-key "\e[109q" 'tags-loop-continue)       ;ESC-,
(global-set-key "\e[111q" 'end-of-buffer)            ;ESC->
(global-set-key "\e[109q" 'beginning-of-buffer)      ;ESC-<
(global-set-key "\e[070q" 'count-lines-region)       ;ESC-=
(global-set-key "\e[068q" 'negative-argument)        ;ESC--
(global-set-key "\e[M"    'backward-kill-word)       ;ESC-<delete>
(global-set-key "\e[086q" 'delete-horizontal-space)  ;ESC-\
(global-set-key "\e[085q" 'forward-paragraph)        ;ESC-]
(global-set-key "\e[113q" 'dabbrev-expand)           ;ESC-/
========================== cut here ===================================

dan haug-- 
Internet: haug at austin.lockheed.com
UUCP:     ut-emx!lad-shrike!aihaug