home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / alt / lucidem / help / 664 < prev    next >
Encoding:
Text File  |  1992-11-09  |  1.4 KB  |  40 lines
  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!utcsri!torn!nott!bnrgate!bmerh85!bmerh85!hamish
  3. From: Hamish.Macdonald@x400gate.bnr.ca (Hamish Macdonald)
  4. Subject: Re: display global-map table
  5. In-Reply-To: sullivan@Mathcom.com's message of 7 Nov 92 03:25:08 GMT
  6. Message-ID: <1992Nov09.155317.7939@bmerh85.bnr.ca>
  7. Lines: 27
  8. Sender: news@bmerh85.bnr.ca (Usenet News)
  9. Organization: Bell Northern Research
  10. References: <9211070325.AA04417@thurber.Mathcom.com>
  11. Date: Mon, 09 Nov 92 15:53:17 GMT
  12.  
  13. >>>>> On 7 Nov 92 03:25:08 GMT,
  14. >>>>> In message <9211070325.AA04417@thurber.Mathcom.com>,
  15. >>>>> sullivan@Mathcom.com (S. Sullivan) wrote:
  16.  
  17. Steve> How can I display the global-map table ...  or any key mapping
  18. Steve> table, for that matter?
  19.  
  20. Steve> When I try:  esc esc global-map
  21. Steve> I get:  #<keymap 404 entries>
  22.  
  23. Steve> Modifications would be much easier if I could see the current
  24. Steve> value.
  25.  
  26. I use this:
  27.  
  28. (defun describe-keymap (keymap)
  29.   "Describe keymap KEYMAP."
  30.   (interactive "SKeymap: ")
  31.   (with-output-to-temp-buffer " *Help*"
  32.     (princ (format "%-20s Binding\n" "Key Sequence"))
  33.     (princ (format "%-20s -------\n" "------------"))
  34.     (map-keymap '(lambda (key binding)
  35.                    (princ (format "%-20s %s\n" key binding)))
  36.                    (eval keymap))))
  37.  
  38. This is not the most beautiful function, and it only works with lucid
  39. emacs, but it seems to work for me.
  40.