home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / gnu / emacs / help / 5077 < prev    next >
Encoding:
Text File  |  1992-12-14  |  2.8 KB  |  58 lines
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!uwm.edu!cs.utexas.edu!sun-barr!news2me.EBay.Sun.COM!exodus.Eng.Sun.COM!elviss.Eng.Sun.COM!andy
  2. From: andy@elviss.Eng.Sun.COM (Andrew Davidson)
  3. Newsgroups: gnu.emacs.help
  4. Subject: trouble binding some function keys on sun?
  5. Date: 14 Dec 1992 20:50:06 GMT
  6. Organization: Sun
  7. Lines: 47
  8. Message-ID: <lipsruINNgir@exodus.Eng.Sun.COM>
  9. NNTP-Posting-Host: elviss
  10.  
  11. hello
  12.     for some reason I can bind all the function keys on my sun sparc 2
  13. station. I am running emacs 18.58 on solaris. this used to work fine
  14. on a sparc 1+ running sunos 4.1.2. I can map all the funtion keys from
  15. "F1" to "F10" but for some reason "f11" and F12" can not be mapped?
  16. "F11" maps to  and "f12" maps to . how do I mapp these values?
  17. with out messing up the previous-line command bound to C-p. 
  18.  
  19. thanks in advance Andy
  20.  
  21. here is how I mapped the keys in the past
  22.  
  23. ;; to figure out what the key code is C-q "key"
  24. ;; also look at the emacs source file x11term.c.
  25. ;; set up some Sun key bindings (for use under X)
  26. (setq window-setup-hook
  27.       (function
  28.        (lambda ()
  29.          (defvar sun-raw-map (make-sparse-keymap)
  30.            "*Keymap for ESC-[ encoded keyboard")
  31.          (define-key sun-raw-map "208z" 'next-tag)              ; R1 Pause
  32.          (define-key sun-raw-map "209z" 'find-tag-other-window); r2 PrSc
  33.          (define-key sun-raw-map "210z" 'andy-tags-search)     ; r3 scroll lck
  34.          (define-key sun-raw-map "211z" 'visit-tags-table)     ; R4  equal
  35.          (define-key sun-raw-map "214z" 'beginning-of-line)    ; R7  home 7
  36.          (define-key sun-raw-map "216z" 'scroll-down)          ; R9  page up 9
  37.          (define-key sun-raw-map "218z" 'recenter)             ; R11 5
  38.          (define-key sun-raw-map "220z" 'end-of-line)          ; R13 end 1
  39.          (define-key sun-raw-map "222z" 'scroll-up)            ; R15 pg dwn  3
  40.          (define-key sun-raw-map "224z" 'copyright)           ; F1  
  41.          (define-key sun-raw-map "225z" 'save-some-buffers)    ; F2  
  42.          (define-key sun-raw-map "226z" 'compile)              ; F3    
  43.          (define-key sun-raw-map "227z" 'repeat-complex-command); F4 
  44.          (define-key sun-raw-map "228z" 'goto-line)            ; F5
  45.          (define-key sun-raw-map "229z" 'what-line)        ; F6    
  46.          (define-key sun-raw-map "230z" 'top-of-buffer)        ; F7
  47.          (define-key sun-raw-map "231z" 'bottom-of-buffer)    ; F8    
  48.          (define-key sun-raw-map "232z" 'auto-fill-mode)        ; F9
  49.          (define-key sun-raw-map "-1z" 'ispell-word)           ; F10
  50.          (define-key sun-raw-map "192z" 'ispell-region)              ; F11
  51.          (define-key sun-raw-map "193z" 'ispell-buffer)              ; F12
  52.          (define-key sun-raw-map "197z" 'xv-select-region)       ; L6 Copy
  53.          (define-key sun-raw-map "199z" 'xv-yank-selection)       ; L8 Past
  54.          (define-key esc-map "[" sun-raw-map)
  55.          )))
  56.  
  57.  
  58.