[comp.emacs] Emacs Function Key Binding on RS/6000

kayvan@APPLE.COM (Kayvan Sylvan) (03/04/91)

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: <info-gnu-emacs-request@prep.ai.mit.edu>
;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     }
;{ <merlyn@intelob.intel.com> ...!uunet!tektronix!biin!merlyn         }
;{ or try <merlyn@agora.hf.intel.com> 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))))