Path: utzoo!attcan!uunet!cs.utexas.edu!know!sdd.hp.com!wuarchive!rice!rice!sun-spots-request
From: cm26+@andrew.cmu.edu (Curt McDowell)
Newsgroups: comp.sys.sun
Subject: GNU Emacs arrow key binding solution
Keywords: Software
Message-ID: <1990Oct26.221842.19052@rice.edu>
Date: 26 Oct 90 23:10:00 GMT
Sender: sun-spots-request@rice.edu
Organization: Sun-Spots
Lines: 18
Approved: Sun-Spots@rice.edu
Originator: spots@titan.rice.edu
X-Sun-Spots-Digest: Volume 9, Issue 349, message 1
X-Original-Date: Mon,  8 Oct 90 14:09:22 -0400 (EDT)

The following works for me.  Try adding it to your .emacs.  Note: you must
give up "esc-[" which is normally backward-paragraph.

; Make Sun and RT arrow keys work

(defvar esc-bracket-map (make-sparse-keymap)
         "*Keymap for ESC-[ encoded keyboard")

(progn
  (define-key esc-map "[" esc-bracket-map)	   ; Install esc-bracket-map
  (define-key esc-map "[A" 'previous-line)	   ; R8
  (define-key esc-map "[B" 'next-line)		   ; R14
  (define-key esc-map "[C" 'forward-char)	   ; R12
  (define-key esc-map "[D" 'backward-char)	   ; R10
  (define-key esc-map "[[" 'backward-paragraph))   ; the original esc-[

Curt McDowell
curt@ibm.com