home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!cis.ohio-state.edu!traffic.den.mmc.com!kevin
- From: kevin@traffic.den.mmc.com (Kevin Rodgers)
- Newsgroups: gnu.emacs.bug
- Subject: Re: KB mapping
- Date: 21 Jan 1993 18:22:48 -0500
- Organization: Martin Marietta Western Internal Systems, Technical Operations
- Lines: 40
- Sender: daemon@cis.ohio-state.edu
- Approved: bug-gnu-emacs@prep.ai.mit.edu
- Distribution: gnu
- Message-ID: <1993Jan21.192851.27248@den.mmc.com>
- References: <9301201512.AA06053@xyplex.com>
-
- In article <9301201512.AA06053@xyplex.com> engman@dxe.ai.mit.EDU (Dave Engman) writes:
- >HELP. I give up. How does one map top function keys and left and right keypads
- >on a Sun 4 to emacs functions? If this is non-trivial, can we buy some hand-
- >holding time? Thanks.
-
- See lisp/term/sun.el to see how to map the keys, and see src/x11term.c
- to see what escape sequences are sent by each key under X11. You should
- make sure sun-esc-bracket is set to t in your ~/.emacs or
- lisp/default.el:
-
- ;; Enable Sun function key bindings:
- (if (string-match "^sun" (getenv "TERM"))
- (setq sun-esc-bracket t)) ; see term/sun.el
-
- And also map the escape sequences from within the term- and
- window-setup-hook; e.g.:
-
- (setq term-setup-hook
- (function (lambda ()
- (define-key sun-map "224" 'save-buffers-kill-emacs) ; F1
- ...
- (define-key sun-map "232" 'save-buffers-kill-emacs) ; F9
- )))
-
-
- If you want more complete utilization of the keyboard:
-
- Patch stringFuncVal() in src/x11term.c to return escape sequences for
- the function keys you're interested in. The 18.58 sources failed to
- translate the XK_F10, XK_Help, XK_Insert, XK_Home, XK_Begin, and XK_End
- keysyms (as well as others not mapped to keys on the Sun keyboard).
-
- Then patch term/sun.el to bind those escape sequences to the appropriate
- functions.
- --
- Kevin Rodgers kevin@traffic.den.mmc.com
- Martin Marietta MS A16401 (303) 790-3971
- 116 Inverness Dr. East
- Englewood CO 80112 USA GO BUFFS!
-
-