;;; Source file: /usr/local/lib/jade/3.2/lisp/keymap.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:47 1994
;;; Jade 3.2

(provide (quote keymap))

(defun print-keymap (&optional keymap-list buffer) 73332 (jade-byte-code " F H IF\"H	H	H	H	H	HDI6	 DLI6
6MF H	] Jn XM&
LF&H	 	KF&	Hy IH	GHF&H	 r DT6e S	HiF&H E J M	 IH	EH -E" [keymap-list keymap-path buffer insert "
Key/Event" indent-to 24 "Binding
---------" "-------

" done-list km-prefix-string keymap keymapp format " -- %s:
" symbol-value i 0 km-print-list "
"] 4))

(defun km-print-list (keymap) (jade-byte-code "DIII012 L\"S!SSK	F HLa /P	a VD
 >6PU6
F&EH
 d	H	HI
H	HMF#H E" [event-str cmd key keymap 2 event-name 0 1 setq next-keymap-path concat km-prefix-string 32 new-str (lambda (km) (jade-byte-code "K" [km new-str] 2)) new-list append keymap-list insert indent-to 24 prin1 "
"] 5))

(defun km-read-event-fun nil (jade-byte-code "t" [read-event current-event] 2))

(defun read-event (&optional title) 73401 (jade-byte-code "DI234I I!JF%H
H	u
svE" [keymap-path next-keymap-path old-nkp old-kp buffer status-line-cursor add-hook unbound-key-hook km-read-event-fun (jade-byte-code "
H%&IF&GH" [buffer remove-hook unbound-key-hook km-read-event-fun old-kp keymap-path old-nkp next-keymap-path status-line-cursor] 4) (jade-byte-code " 	H" [message title "Type a key:" recursive-edit] 2) (quote read-event)] 3))

(defun describe-key nil 73496 (interactive) (jade-byte-code "DIIII0123] 
	\" 	F#H	J
F! }L
a ?Pa I	 z	HHIH rI	 qHHJF  
	HJ IF&H 	E" [done command event names read-event concat "Enter a key sequence: " 32 event-name lookup-event-binding setq 1 next-keymap-path call-command require help help-setup format "
%s -> %S
" "
%s
" documentation "" goto-buffer-start message " is unbound. "] 5))
