;ELC   
;;; compiled by jwz@thalidomide on Thu Oct 28 21:45:09 1993
;;; from file /th/jwz/emacs19/lisp/ilisp/ilisp-key.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.20; 20-oct-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(fset 'ilisp-defkey #[(keymap key command) "À	\n\"Ä!¬‡Å	\nÆ #Å#)‡" [lookup-key keymap ilisp-prefix prefix-map keymapp define-key make-sparse-keymap key command] 4 "\
Define KEYMAP ilisp-prefix+KEY as command."])
(fset 'defkey-ilisp #[(key command &optional inferior-only) "¬ƒÁ ˆÂ#ˆÂ#‡" [ilisp-mode-map ilisp-bindings define-key key command lisp-mode-map] 4 "\
Define KEY as COMMAND in ilisp-mode-map and lisp-mode-map unless
optional INFERIOR-ONLY is T.  If the maps do not exist they will be
created.  This should only be called after ilisp-prefix is set to the
desired prefix."])
(fset 'lisp-bindings #[(keymap &optional inferior-p) "« Á\nÃÄ#ˆÁ\nÅÆ#ˆÁ\nÇÈ#ˆÁ\nÉÊ#ˆË\nÌÍ#ˆªŒË\nÎÏ#ˆÁ\nÃÐ#ˆÁ\nÑÒ#ˆÁ\nÓÔ#ˆÁ\nÕÖ#ˆÁ\n×Ø#ˆÁ\nÙÐ#ˆÁ\nÚÛ#ˆË\nÜÝ#ˆË\nÞß#ˆÁ\nàá#ˆÁ\nâã#ˆÁ\näå#ˆË\næç#ˆË\nèé#ˆË\nêë#ˆË\nìí#ˆË\nîï#ˆË\nðñ#ˆÁ\nòó#ˆÁ\nôõ#ˆÁ\nö÷#ˆÁ\nøù#ˆË\núû#ˆÁ\nüý#ˆÁ\nþÿ#ˆÁ\n@ A #ˆË\nB C #ˆÁ\nD E #ˆË\nF E #ˆË\nG H #ˆË\nI J #ˆË\nK L #ˆË\nM N #ˆË\nO P #ˆË\nQ R #ˆË\nS T #ˆË\nU V #ˆË\nW X #ˆË\nY Z #ˆË\n[ \\ #ˆË\n] ^ #ˆ_` P_Ë\na b #ˆË\nF c #ˆË\nO d #ˆË\ne f #ˆ)Ë\ng h #ˆË\ni j #ˆË\nk l #ˆË\nm n #ˆË\no p #ˆË\nq r #ˆÁ\ns t #ˆË\na u #ˆË\nv w #ˆË\nx y #ˆË\nz { #‡" [inferior-p define-key keymap "" return-ilisp "" bol-ilisp "" interrupt-subjob-ilisp "" delete-char-or-pop-ilisp ilisp-defkey "#" raw-keys-ilisp "" compile-defun-and-go-lisp newline-and-indent-lisp "]" close-all-lisp "ñ" reindent-lisp "" close-and-send-lisp "	" indent-line-ilisp "\n" "‘" indent-sexp-ilisp ";" comment-region-lisp ")" find-unbalanced-lisp "" beginning-of-defun-lisp "…" end-of-defun-lisp "’" reposition-window-lisp "i" describe-lisp "I" inspect-lisp "a" arglist-lisp "d" documentation-lisp "m" macroexpand-1-lisp "M" macroexpand-lisp "¬" next-definition-lisp "®" edit-definitions-lisp "¿" search-lisp "¢" replace-lisp "^" edit-callers-lisp "à" next-caller-lisp "‰" complete-lisp "" complete "r" eval-region-lisp "˜" eval-defun-lisp "e" "n" eval-next-sexp-lisp "p" package-lisp "P" set-package-lisp "w" compile-region-lisp "c" compile-defun-lisp "" eval-region-and-go-lisp "" eval-defun-and-go-lisp "" eval-next-sexp-and-go-lisp "" compile-region-and-go-lisp "t" trace-defun-lisp "!" default-directory-lisp " " mark-change-lisp ilisp-prefix "*" "l" list-changes-lisp eval-changes-lisp compile-changes-lisp "0" clear-changes-lisp "b" switch-to-lisp "y" call-defun-lisp "z" reset-ilisp "g" abort-commands-lisp "s" status-lisp "S" select-ilisp "" find-file-lisp load-file-lisp "k" compile-file-lisp "A" fi:clman-apropos "D" fi:clman] 4 "\
Set up the bindings for interacting with an inferior LISP in
KEYMAP."])
(fset 'ilisp-bindings #[nil "ÀÁ!«ŠÂ Á\"ˆª„Å!ÆÇÈ#ˆÆÉÈ#ˆÀÊ!«„Ê!ˆËÌ\"ˆÍÎ!«…Ë!ˆÍÏ!«…Ë!ˆÐÒÓ#ˆÐÕÖ#ˆÐ×Ø#ˆÐÙÚ#ˆÐÛÜ#ˆÐÝÞ#ˆÍß!¬„Â Ðàá#ˆÐâã#‡" [fboundp set-keymap-parent make-sparse-keymap ilisp-mode-map comint-mode-map full-copy-sparse-keymap define-key "" nil "" lisp-mode-commands lisp-bindings t boundp lisp-mode-map scheme-mode-map ilisp-defkey emacs-lisp-mode-map ";" comment-region-lisp global-map "" trace-defun-lisp-break "b" switch-to-lisp "1" popper-bury-output "v" popper-scroll-output "G" popper-grow-output fi:clman-mode-map "D" fi:clman "A" fi:clman-apropos] 4 "\
Set up the key bindings for LISP and ILISP buffers."])
(provide 'ilisp-key)