;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:40:54 1993
;;; from file /era/era-0.80/editor/lisp/packages/helper.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-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."))

(byte-code "АБ!€ВГ!¬‚ДВЕ!¬‚Д¬®Ж ЗИЙ#€ЗКЛ#€ЗМН#€ЗОП#€ЗРС#€ЗТ!С#€ЕM€ФХM‡" [provide helper boundp Helper-return-blurb nil Helper-help-map make-keymap define-key "m" Helper-describe-mode "b" Helper-describe-bindings "c" Helper-describe-key-briefly "k" Helper-describe-key "?" Helper-help-options char-to-string help-char Helper-help-scroller #[nil "АБ!«ѓ	®ЃВД‹)‡" [boundp Helper-return-blurb "return" blurb ((byte-code "АБ !b€ВГ!«†ДГ!€Є„ЕГ!€eb€ЖЗ		­ЩКd!«ѓЛЄЃМН_Кe!«ѓЛЄЃМ\\ОП8\"€С ‰	Т>«‹НW«…У €ЄH	ФU«…Х €Є=	ЦU«ЌН¦МU«…Ч €Є*З‰	¬(З*‡" [window-start selected-window get-buffer-window "*Help*" pop-to-buffer switch-to-buffer t nil state continue pos-visible-in-window-p 1 0 2 message ("Space forward, Delete back. Other keys %s" "Space scrolls forward. Other keys %s" "Delete scrolls back. Other keys %s" "Type anything to %s") blurb read-char (32 22) scroll-up 12 recenter 127 scroll-down] 4))] 2]] 4)
(fset 'Helper-help-options #[nil "АБ!€ВГ!‡" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 "\
Describe help options." nil])
(fset 'Helper-describe-key-briefly #[(key) "А	!€ВГ!‡" [describe-key-briefly key sit-for 4] 2 "\
Briefly describe binding of KEYS." "kDescribe key briefly: "])
(fset 'Helper-describe-key #[(key) "А‹€Б ‡" [((describe-key key)) Helper-help-scroller] 1 "\
Describe binding of KEYS." "kDescribe key: "])
(fset 'Helper-describe-function #[nil "А‹€Б ‡" [((byte-code "АБ!‡" [call-interactively describe-function] 2)) Helper-help-scroller] 1 "\
Describe a function.  Name read interactively." nil])
(fset 'Helper-describe-variable #[nil "А‹€Б ‡" [((byte-code "АБ!‡" [call-interactively describe-variable] 2)) Helper-help-scroller] 1 "\
Describe a variable.  Name read interactively." nil])
(fset 'Helper-describe-mode #[nil "Б\n!ЉДЕ!q€Ж €З	±€+И ‡" [mode-name documentation major-mode name get-buffer-create "*Help*" erase-buffer " Mode\n" Helper-help-scroller] 3 "\
Describe the current mode." nil])
(fset 'Helper-describe-bindings #[nil "АБ!€В‹€Г ‡" [message "Making binding list..." ((describe-bindings)) Helper-help-scroller] 2 "\
Describe local key bindings of current mode." nil])
(fset 'Helper-help #[nil "АБ­±ДЕ!€ЖЗ —!И	\n\"‰К=«…К €ЄcЛ\n!«‰М\n!€Б‰ЄVН €Б‰¬PБ*‡" [t nil c continue message "Help (Type ? for further options)" char-to-string read-char lookup-key Helper-help-map Helper-help-options commandp call-interactively ding] 4 "\
Provide help for current mode." nil])