🚀 go-pugleaf

First - 

to stop ESC from jumping out of search, simply reset the variable
search-exit-char:

	(setq search-exit-char ?10)   ;; sets the search-exit-char to
				      ;; be the newline


Second - keyboard mappings for an AT386 (the one I used, at least):

;; Function key bindings for AT386 (actually, a poor NCR emulation)
;; Paul Davis <scenic!pauld@uunet.uu.net> Nov 1989

(defvar at386-esc-O-map (make-sparse-keymap)
  "Keymap for AT386 ESC-O encoded function keys")

(defvar at386-esc-b-map (make-sparse-keymap)
  "Keymap for AT386 ESC-[ encoded function keys")

(defvar at386-alt-map (make-keymap)
  "Keymap for ALTered keys (which are preceded by ESC-N)")

(define-key esc-map "O" at386-esc-O-map)
(define-key esc-map "[" at386-esc-b-map)
(define-key esc-map "N" at386-alt-map)

(define-key at386-esc-O-map "P" 'find-file)			; F1
(define-key at386-esc-O-map "Q" 'save-buffer)			; F2
(define-key at386-esc-O-map "R" 'find-file-other-window)	; F3
(define-key at386-esc-O-map "S" 'other-window)			; F4
(define-key at386-esc-O-map "T" 'occur)				; F5
(define-key at386-esc-O-map "U" 'isearch-forward-regexp)	; F6
(define-key at386-esc-O-map "V" 'isearch-backward-regexp)	; F7
(define-key at386-esc-O-map "W" 'replace-regexp)		; F8
(define-key at386-esc-O-map "X" 'shell)				; F9
(define-key at386-esc-O-map "Y" 'dired)				; F10
(define-key at386-esc-O-map "Z" 'compile)			; F11
(define-key at386-esc-O-map "A" 'delete-other-windows)		; F12

(define-key at386-esc-b-map "@" 'yank)				; Insert
(define-key at386-esc-b-map "H" 'beginning-of-buffer)		; Home
(define-key at386-esc-b-map "V" 'scroll-down)			; Page Up
(define-key at386-esc-b-map "Y" 'end-of-buffer)			; End
(define-key at386-esc-b-map "U" 'scroll-up)			; Page Down

;; ANSI cursor arrows

(define-key at386-esc-b-map "A" 'previous-line)		; up
(define-key at386-esc-b-map "B" 'next-line)		; down
(define-key at386-esc-b-map "C" 'forward-char)		; right
(define-key at386-esc-b-map "D" 'backward-char)		; left

;; Numeric keypad (without Number Lock)

(define-key at386-esc-b-map "S" 'eval-expression)		; -
(define-key at386-esc-b-map "T" 'execute-extended-command)	; +

;; ALT-ered keys are preceded by the escape sequence ESC-N

(defun ignore-key ()
  (interactive)
  (ignore))

(define-key at386-alt-map "a" 'ignore-key)
(define-key at386-alt-map "b" 'backward-kill-word)
(define-key at386-alt-map "c" 'ignore-key)
(define-key at386-alt-map "d" 'ignore-key)
(define-key at386-alt-map "e" 'ignore-key)
(define-key at386-alt-map "f" 'kill-word)
(define-key at386-alt-map "g" 'ignore-key)
(define-key at386-alt-map "h" 'help-for-help)
(define-key at386-alt-map "i" 'ignore-key)
(define-key at386-alt-map "j" 'ignore-key)
(define-key at386-alt-map "k" 'ignore-key)
(define-key at386-alt-map "l" 'ignore-key)
(define-key at386-alt-map "m" 'delete-matching-lines)
(define-key at386-alt-map "n" 'delete-non-matching-lines)
(define-key at386-alt-map "o" 'ignore-key)
(define-key at386-alt-map "p" 'ignore-key)
(define-key at386-alt-map "q" 'ignore-key)
(define-key at386-alt-map "r" 'isearch-backward-regexp)
(define-key at386-alt-map "s" 'isearch-forward-regexp)
(define-key at386-alt-map "t" 'ignore-key)
(define-key at386-alt-map "u" 'ignore-key)
(define-key at386-alt-map "v" 'ignore-key)
(define-key at386-alt-map "w" 'ignore-key)
(define-key at386-alt-map "x" 'ignore-key)
(define-key at386-alt-map "y" 'ignore-key)
(define-key at386-alt-map "z" 'ignore-key)


;; Fix backspace horrors

(define-key global-map "\C-h" 'backward-delete-char-untabify) ; BACKSPACE


-- 
Paul Barton-Davis <pauld@cs.washington.edu> UW Computer Science Lab	 

"People cannot cooperate towards common goals if they are forced to
 compete with each other in order to guarantee their own survival."