home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / gnu / emacs / help / 3923 < prev    next >
Encoding:
Text File  |  1992-09-01  |  1.6 KB  |  41 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!gatech!ncar!sunny!southern
  3. From: southern@sunny.NoSubdomain.NoDomain (Lawrence Buja)
  4. Subject: Re: Code for sun keyboard -- how can i find out?
  5. Message-ID: <1992Sep1.163456.27939@ncar.ucar.edu>
  6. Sender: news@ncar.ucar.edu (USENET Maintenance)
  7. Reply-To: southern@ncar.ucar.edu
  8. Organization: National Center for Atmospheric Research
  9. References:  <1992Sep1.160714.7075@cas.org>
  10. Distribution: usa
  11. Date: Tue, 1 Sep 1992 16:34:56 GMT
  12. Lines: 27
  13.  
  14. In article <1992Sep1.160714.7075@cas.org>, zfs60@cas.org () writes:
  15. >i know the following because that was what i got a long time ago, but
  16. >i wonder if there is anyway to find out the code for an arbitrary key,
  17. >such as insert, and do-nothing key among arrow keys.  thanks.
  18. >
  19. >(global-set-key         "\e[215z"       'previous-line)
  20. >                        --------
  21. >                        this is the code for upward arrow
  22. >
  23.  
  24.    (defun see-chars ()
  25.       "Displays characters typed, terminated by a 3-second timeout. (tools.el)"
  26.       (interactive)
  27.       (let ((chars "")
  28.             (inhibit-quit t))
  29.         (message "Enter characters, terminated by 3-second timeout.")
  30.         (while (not (sit-for 3))
  31.           (setq chars (concat chars (list (read-char)))
  32.                 quit-flag nil))         ; quit-flag maybe set by C-g
  33.         (describe-key chars)
  34.         (message "Characters entered: %s" (key-description chars))))
  35.  
  36.  
  37. /\      Lawrence Buja           Climate and Global Dynamics Division
  38.   \_][  southern@ncar.ucar.edu  National Center for Atmospheric Research
  39.       \_________________________Boulder,_Colorado___80307-3000__________
  40.  
  41.