[31] in DeathTongue Changes
/.emacs
yandros@ATHENA.MIT.EDU (yandros@ATHENA.MIT.EDU)
Sat May 23 07:06:00 1992
Something close to the following:
> ;; keybinding for standard default sunterm keys
> ;; my modification of term/sun.el by
> ;; Jeff Peck, Sun Microsystems Inc <peck@sun.com>
>
> (defvar sun-esc-bracket t
> "*If non-nil, rebind ESC [ as prefix for Sun function keys.")
>
> (defvar sun-raw-map (make-sparse-keymap) "*Keymap for ESC-[ encoded keyboard")
>
> (if sun-esc-bracket
> (progn
> (define-key esc-map "[" sun-raw-map) ; Install sun-raw-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-[
> ))
was installed as root's .emacs, to get the arrow keys to DTRT.
