home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / gnu / emacs / help / 3931 < prev    next >
Encoding:
Text File  |  1992-09-01  |  2.9 KB  |  60 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!news.claremont.edu!ucivax!megatek!hollen
  3. From: hollen@megatek.UUCP (Dion Hollenbeck)
  4. Subject: Re: Code for sun keyboard -- how can i find out?
  5. In-Reply-To: zfs60@cas.org's message of Tue, 1 Sep 1992 16: 07:14 GMT
  6. Message-ID: <HOLLEN.92Sep1122151@peg.megatek.UUCP>
  7. Sender: hollen@megatek.com (Dion Hollenbeck)
  8. Organization: Megatek Corporation, San Diego, California
  9. References: <1992Sep1.160714.7075@cas.org>
  10. Date: Tue, 1 Sep 1992 20:21:51 GMT
  11. Lines: 47
  12.  
  13. >>>>> On Tue, 1 Sep 1992 16:07:14 GMT, zfs60@cas.org () said:
  14.  
  15. zfs> i know the following because that was what i got a long time ago, but
  16. zfs> i wonder if there is anyway to find out the code for an arbitrary key,
  17. zfs> such as insert, and do-nothing key among arrow keys.  thanks.
  18.  
  19. zfs> (global-set-key         "\e[215z"       'previous-line)
  20. zfs>                         --------
  21. zfs>                         this is the code for upward arrow
  22.  
  23. I wish I could remember how to find this out, since I did it ages ago,
  24. I have forgotten.  However, here are the results.
  25.  
  26.  
  27. ;; R keys
  28.      (define-key sun-raw-map "208z" 'GOLD-prefix)            ; R1 ("gold")
  29.      (define-key sun-raw-map "209z" 'query-replace)        ; R2
  30.      (define-key sun-raw-map "210z" 'yank)               ; R3
  31.      (define-key sun-raw-map "211z" 'set-mark-command)        ; R4
  32.      (define-key sun-raw-map "212z" 'kill-region)        ; R5
  33.      (define-key sun-raw-map "213z" 'copy-region-as-kill)    ; R6
  34.      ;;                                                      ; R7 home
  35.      ;;                                                         ; R8 uparrow
  36.      ;;                                                      ; R9 pgup
  37.      ;;                                                         ; R10 leftarrow
  38.      ;;(define-key sun-raw-map "218z" 'something-here?)               ; R11
  39.      ;;                                                         ; R12 rtarrow
  40.      ;;                                                 ; R13 end
  41.      ;;                                                         ; R14 dnarrow
  42.      ;;                                                            ; R15 pgdown
  43.  
  44. ;; L keys
  45.      ;;NOTE:  L1 does not work
  46.      ;;(define-key sun-raw-map "192z" 'nothing)                    ; L1
  47.      ;;(define-key sun-raw-map "193z" 'nothing)          ; L2
  48.      (define-key sun-raw-map "194z" 'next-start-of-line)    ; L3
  49.      (define-key sun-raw-map "195z" 'next-end-of-line)        ; L4
  50.      (define-key sun-raw-map "196z" 'delete-char)        ; L5
  51.      (define-key sun-raw-map "197z" 'delete-current-word)    ; L6
  52.      (define-key sun-raw-map "198z" 'kill-line)         ; L7
  53.      (define-key sun-raw-map "199z" 'delete-current-line)       ; L8
  54.      ;;(define-key sun-raw-map "200z" 'nothing)       ; L9
  55.      ;;(define-key sun-raw-map "201z" 'nothing)       ; L10
  56. -- 
  57. Dion Hollenbeck       UUCP: {uunet, ucsd, sun}!megatek!hollen
  58.                       INTERNET:            hollen@megatek.com
  59. Megatek Corporation  9645 Scranton Rd.  San Diego, Ca.  92121
  60.