Xref: utzoo gnu.emacs.help:1349 comp.emacs:10238 Path: utzoo!utgpu!watserv1!watmath!uunet!wuarchive!zaphod.mps.ohio-state.edu!magnus.ircc.ohio-state.edu!tut.cis.ohio-state.edu!unreplyable!garbage From: satyr!kayvan@APPLE.COM (Kayvan Sylvan) Newsgroups: gnu.emacs.help,comp.emacs Subject: Emacs Function Key Binding on RS/6000 Message-ID: Date: 4 Mar 91 05:11:00 GMT References: <135@ladwp.ladwp.com> Sender: daemon@tut.cis.ohio-state.edu Followup-To: gnu.emacs.help Organization: Gatewayed from the GNU Project mailing list help-gnu-emacs@prep.ai.mit.edu Lines: 52 Marc Hall writes: > We have been attempting to determine what specific character sequences are > emitted by the the function keys f1-f12 on the IBM RS/6000 Model 320 > when running the emacs 18.56 in its own X window. Use the code after my signature to find out your answers. ---Kayvan | Kayvan Sylvan Unix/C, GNU tools 879 Lewiston Drive 408-978-1407 | | Sylvan Associates GUIs, Databases San Jose, CA 95136 Think Globally | | Networking, X apple!satyr!kayvan Act Locally | | === Currently looking for contracts === Hire me now! Avoid the rush! === | ;From apple!uunet.uu.net!littlei!omepd!merlyn Mon May 1 22:09:58 1989 ;Return-Path: ;Date: 1 May 89 21:51:11 GMT ;From: apple!uunet.uu.net!littlei!omepd!merlyn (Randal L. Schwartz @ Stonehenge) ;Organization: Stonehenge; netaccess via BiiN, Hillsboro, Oregon, USA ;Subject: see-chars for GNU ;Sender: apple!prep.ai.mit.edu!info-gnu-emacs-request ;To: info-gnu-emacs@prep.ai.mit.edu ; ;Ever wonder what characters a function key sends out, or one of those ;other "unknown" keys like "scroll right"? Well, even if you don't ;have one of those problems today, tuck this little goody away, 'cause ;it'll help you figure that out when the time comes. ; ;`see-chars' accepts *any* characters (including a C-g) until a ;three-second timeout has passed. It then tosses up a human-readable ;display of the characters entered. ; ;/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095===\ ;{ on contract to BiiN, Hillsboro, Oregon, USA, until 30 May 1989 } ;{ ...!uunet!tektronix!biin!merlyn } ;{ or try after 30 May 1989 } ;\=Cute quote: "Welcome to Oregon... home of the California Raisins!"=/ ; ;================================================== snip snip ========== ;;; original by merlyn -- LastEditDate = "Mon Apr 10 15:45:46 1989" (defun see-chars () "Displays characters typed, terminated by a 3-second timeout." (interactive) (let ((chars "") (inhibit-quit t)) (message "Enter characters, terminated by 3-second timeout...") (while (not (sit-for 3)) (setq chars (concat chars (list (read-char))) quit-flag nil)) ; quit-flag maybe set by C-g (message "Characters entered: %s" (key-description chars))))