Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!emory!hubcap!gatech!mcnc!duke!khera From: khera@thneed.cs.duke.edu (Vick Khera) Newsgroups: comp.emacs Subject: Re: Binding keys Message-ID: Date: 15 Feb 91 15:42:18 GMT References: <1278@culhua.prg.ox.ac.uk> Sender: news@duke.cs.duke.edu Organization: Duke University CS Dept., Durham, NC Lines: 29 Nntp-Posting-Host: thneed.cs.duke.edu In-reply-to: ajs@prg.ox.ac.uk's message of 14 Feb 91 14:19:31 GMT In article <1278@culhua.prg.ox.ac.uk> ajs@prg.ox.ac.uk (Adolfo Socorro) writes: Can anybody tell me how to bind the keys of my Sun workstation? I've done this on other machines, but on the Suns I get some strange behaviour. I'm especially interested in the R1..R15 keys. the following works quite well for me. it can be extended to include other keys from the keypad as well. ; set up some Sun key bindings (for use under X) (setq window-setup-hook (function (lambda () (defvar sun-raw-map (make-sparse-keymap) "*Keymap for ESC-[ encoded keyboard") (define-key sun-raw-map "214z" 'beginning-of-buffer) ; R7 (define-key sun-raw-map "216z" 'scroll-down) ; R9 (define-key sun-raw-map "218z" 'recenter) ; R11 (define-key sun-raw-map "220z" 'end-of-buffer) ; R13 (define-key sun-raw-map "222z" 'scroll-up) ; R15 (define-key esc-map "[" sun-raw-map) ))) -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Vick Khera, Gradual Student/Systems Guy Department of Computer Science ARPA: khera@cs.duke.edu Duke University UUCP: ...!mcnc!duke!khera Durham, NC 27706 (919) 660-6528