home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / alt / lucidem / help / 677 < prev    next >
Encoding:
Text File  |  1992-11-11  |  2.9 KB  |  66 lines
  1. x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Wed, 11 Nov 1992 10:51:26 EST
  2. Date: Wed, 11 Nov 1992 10:48:29 EST
  3. From: paquette%crim.ca@lucid.com (Marc Paquette)
  4. Message-ID: <9211111548.AA14150@mason.crim.ca>
  5. Subject: various lucid questions
  6. Newsgroups: alt.lucid-emacs.help
  7. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  8. Sender: help-lucid-emacs-request@lucid.com
  9. Lines: 55
  10.  
  11.  
  12. "Mickey Ferguson" <mickeyf@vnet.ibm.com>, said:
  13.  
  14. >  
  15. > Now for my real questions...
  16. > 
  17. > 1)  I've found out how to configure the function keys and Ln and Rn keys
  18. > on my Sun Sparc 2.  (It's set up for Lucid widgets, not OLIT, even though
  19. > we are running OL.)  I can't figure out how to make the Copy, Paste and
  20. > Cut keys work with lucid.  I had figured out how to make them work under
  21. > epoch with stuff like mouse::copy-zone as defined in motion.el (well, a
  22. > modified version of motion.el sent to me and further customized).  Can it
  23. > use the OpenLook functions, and thus copy text from another Sun window
  24. > into lucid?
  25. > 
  26.  
  27. Here is what I use in my .emacs:
  28.  
  29.       ;; Taken directly from $EMACS/lisp/energize/energize-menus.el,
  30.       ;; but modified a little bit for my personnal taste.
  31.       (defun setup-sparc-function-keys ()
  32.     (if (not (eq window-system 'x))
  33.         nil
  34.       (define-key global-map 'f29 'scroll-down) ; kp_pgup
  35.       (define-key global-map 'f35 'scroll-up) ; kp_pgdn
  36.       (define-key global-map 'f27 'beginning-of-line) ; kp_home
  37.       (define-key global-map 'r13 'end-of-line) ; kp_end (for 19.2)
  38.       (define-key global-map 'f33 'end-of-line) ; kp_end (for 19.3)
  39.       (define-key global-map '(control f27) 'beginning-of-buffer) ; C-kp_home
  40.       (define-key global-map '(control r13) 'end-of-buffer) ; C-kp_end (19.2)
  41.       (define-key global-map '(control f33) 'end-of-buffer) ; C-kp_end (19.3)
  42.       (define-key global-map '(control left) 'backward-word) ; C-kp_left
  43.       (define-key global-map '(control right) 'forward-word) ; C-kp_right
  44.       (define-key global-map 'f31 'other-window) ; kp_5
  45.       (define-key global-map 'insert 'overwrite-mode) ; kp_insert
  46.  
  47.       (define-key global-map 'f20 'x-kill-primary-selection) ; kp_cut
  48.       (define-key global-map 'f16 'x-copy-primary-selection) ; kp_copy
  49.       (define-key global-map 'f18 'x-yank-clipboard-selection) ; kp_paste
  50.       (define-key global-map 'f11 'keyboard-quit) ; kp_stop
  51.       (define-key global-map 'f12 'repeat-complex-command) ; kp_again
  52.       (define-key global-map 'f14 'advertised-undo) ; kp_undo
  53.       (define-key global-map 'f19 'search-forward) ; kp_find
  54.       (define-key global-map '(meta f19) 'search-backward) ; M-kp_find
  55.       ))
  56.  
  57.       (add-hook 'window-setup-hook 'setup-sparc-function-keys)
  58.       (setup-sparc-function-keys)
  59.  
  60. --
  61. Marc Paquette              |Centre de recherche informatique de Montreal (CRIM)
  62. Conseiller Technique, UN*X | 3744 rue Jean-Brillant, bureau 500
  63. paquette@crim.ca           | Montreal (Quebec) Canada H3T 1P1
  64. Tel : (514) 340-5758       | Fax   : (514) 340-5777
  65.  
  66.