EMACS keyboard map

[Martin Liversage]

> Does anyone have a keyboard map for the SGI keyboard
> so that PgUp, PgDn, Home, End and the 4 arrow keys map 
> map to the usual meaning ?

This is my /usr/local/emacs/lisp/term/iris.el file:

---------8<---------8<---------8<---------8<---------8<---------8<---------

;; Martin Liversage - 91.01.10

(require 'keypad)

(defvar iris-function-map nil)

(if (not iris-function-map)
    (progn
      (setq iris-function-map (lookup-key global-map "\e["))
      (if (not (keymapp iris-function-map))
	  (setq iris-function-map (make-sparse-keymap)))
      (setup-terminal-keymap iris-function-map
			     '(("A" . ?u) ; Up
			       ("B" . ?d) ; Down
			       ("C" . ?r) ; Right
			       ("D" . ?l) ; Left
			       ("H" . ?h) ; Home
			       ("150q" . ?P) ; Page Up
			       ("154q" . ?N) ; Page Down
			       ("001q" . ?\C-a) ; F1
			       ("002q" . ?\C-b)
			       ("003q" . ?\C-c)
			       ("004q" . ?\C-d)
			       ("005q" . ?\C-e)
			       ("006q" . ?\C-f)
			       ("007q" . ?\C-g)
			       ("008q" . ?\C-h)
			       ("009q" . ?\C-i)
			       ("010q" . ?\C-j)
			       ("011q" . ?\C-k)
			       ("012q" . ?\C-l)
			       ("013q" . ?\C-m) ; Shift-F1
			       ("014q" . ?\C-n)
			       ("015q" . ?\C-o)
			       ("016q" . ?\C-p)
			       ("017q" . ?\C-q)
			       ("018q" . ?\C-r)
			       ("019q" . ?\C-s)
			       ("020q" . ?\C-t)
			       ("021q" . ?\C-u)
			       ("022q" . ?\C-v)
			       ("023q" . ?\C-w)
			       ("024q" . ?\C-x)
			       ("139q" . ?I) ; Insert
			       ("150q" . ?P) ; Page Up
			       ("154q" . ?N))))) ; Page Down

(defun enable-function-keys ()
  "Enable the use of the iris arrow and function keys.
Because of the nature of the iris, this unavoidably breaks
the standard Emacs command ESC [; therefore, it is not done by default,
but only if you give this command."
  (global-set-key "\e[" iris-function-map))

---------8<---------8<---------8<---------8<---------8<---------8<---------

See lisp/keypad.el in the emacs sub-tree for additional documentation.
You have to add something like (setq term-setup-hook 'enable-function-keys)
to your .emacs file.

In my .emacs file I have more stuff takeing care of the iris terminal.
Like mapping the Ctrl-Left Arrow to backward-word and assigning the
usual meaning to the Back Space key etc. This is pretty personal stuff
(and there's a lot 8) ) so I decided not to post it here, but if
anyone is interested...

I think I have seen several iris specific keymaps on the net. One
place to look is in freja.diku.dk (close to me anyway...).

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\                                                                             \
\ Martin Liversage                      8616 m  /\                            \
\ Royal Dental College Copenhagen              /  \_   K2 - Mountain of Fate  \
\ Department of Pediatric Dentistry           / \   \       and Dreams        \
\ Norre Alle 20                              /   | | \                        \
\ DK-2200 Kobenhavn N                      /\    |  \ \                       \
\ +45 31 37 17 00 - 4276                  /  \ ^     | \                      \
\                                                                             \
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\