From: tlp00@ras.amdahl.com (Tibor Polgar)
Newsgroups: gnu.emacs.help
Subject: Re: Looking for .el for Sparcstation
Date: 19 Dec 92 02:06:14 GMT
Reply-To: tlp00@ras.amdahl.com
Organization: Amdahl Corporation, Sunnyvale CA

Here is a key binding setup for mod 5 keyboard(? could be mod 4)

Note that i'm an lemacs user and haven't used this setup in a while.... Also doing a
C-h b may crash (think its only in lemacs) because it dies on some of my quoted 
string bindings.


(global-set-key "\e[" nil)

(global-set-key "\e[224z" 'overwrite-mode) 	        ; PF1 toggle overwrite
(global-set-key "\e[225z" 'split-window-vertically)	; PF2 split screen
(global-set-key "\e[226z" 'save-some-buffers)           ; PF3 end
(global-set-key "\e[227z" 'isearch-forward)             ; PF4 ??
(global-set-key "\e[228z" "\C-u3\C-l")                  ; PF5 cur to top+3
(global-set-key "\e[229z" 'split-line)		        ; PF6 split line
(global-set-key "\e[230z" "\ev")			; PF7 -50%
(global-set-key "\e[231z" "\C-v")			; PF8 +50%
(global-set-key "\e[232z" "\C-e\C-d ")			; PF9 join
(global-set-key "\e[-1z"  "\C-u1\ev")	         	; PF10 scroll down
(global-set-key "\e[192z" "\C-u1\C-v")   		; PF11 scroll up 
(global-set-key "\e[193z" "\C-e")			; PF12 end-of-line

(global-set-key "\e[208z" 'bury-buffer)	                ; R1 Display buffer
(global-set-key "\e[209z" "\C-x0")			; R2 delete buffer
(global-set-key "\e[210z" "\C-x\C-s\C-xk")              ; R3 kill buffer
(global-set-key "\e[211z" 'query-replace-regexp)        ; R4 query replace
(global-set-key "\e[212z" 'replace-regexp)	        ; R5 replace
(global-set-key "\e[213z" 'isearch-forward)      	; R6 reg exp replace
(global-set-key "\e[214z" "\e<")			; R7 HOME 
;;(global-set-key "\e[215z" "")		                ; R8 cursor up 1
(global-set-key "\e[216z" 'scroll-down)			; R9 PgUp
;;(global-set-key "\e[217z" "")			        ; R10 cursor left 1
(global-set-key "\e[218z" 'recenter)			; R11 Center 
;;(global-set-key "\e[19z"  "")		                ; R12 cursor right 1
(global-set-key "\e[220z" "\e>")			; R13 END
;;(global-set-key "\e[221z" "")			        ; R14 cursor down 1
(global-set-key "\e[222z" 'scroll-up)			; R15 PgDn

;;(define-key esc-map "OP" 'goto-line )		; L1

(global-set-key "\e[194z" 'repeat-complex-command)      ; L3 last cmd
(global-set-key "\e[195z" 'undo)	                ; L4 Undo
(global-set-key "\e[196z" 'previous-complex-command)    ; L5 previous command
(global-set-key "\e[197z" 'copy-region-as-kill)       	; L6 Copy
(global-set-key "\e[198z" 'yank-pop)           	        ; L7 Back Paste
(global-set-key "\e[199z" 'yank)	                ; L8 Paste
(global-set-key "\e[200z" 'isearch-forward-regexp)      ; L9 forward search
(global-set-key "\e[201z" 'kill-region)	      	        ; L10 Cut

-------------------------------------------------------------------------------
| Tibor L. Polgar    |  (408) 746-8649     | tlp00@climb.ras.amdahl.com
| Amdahl Corporation
| 1250 East Arques Avenue (M/S 281)
| P.O. Box 3470
| Sunnyvale, CA 94088-3470
|
| The opinions expressed above are mine, solely, and do not in any way
| shape or form reflect the opinions or policies of Amdahl Corp.
-------------------------------------------------------------------------------