;;; compiled by mycroft@hal on Tue Sep 22 05:09:23 1992 ;;; from file /src/emacs-19.0/lisp/helper.el ;;; emacs version 19.0.426. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "!! B  # # # # # !# M$M" [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 make-byte-code "!\n ċ)" [boundp Helper-return-blurb "return" blurb ((byte-code " !b!!!eb  d!0̂1\"e!=̂>\\8\"  >aWa  Un  U\"U lj %*" [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] 6) (fset 'Helper-help-options (make-byte-code (quote nil) "!!" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 "\ Describe help options." nil)) (fset 'Helper-describe-key-briefly (make-byte-code (quote (key)) " !!" [describe-key-briefly key sit-for 4] 2 "\ Briefly describe binding of KEY." "kDescribe key briefly: ")) (fset 'Helper-describe-key (make-byte-code (quote (key)) " " [((describe-key key)) Helper-help-scroller] 1 "\ Describe binding of KEY." "kDescribe key: ")) (fset 'Helper-describe-function (make-byte-code (quote nil) " " [((byte-code "!" [call-interactively describe-function] 2)) Helper-help-scroller] 1 "\ Describe a function. Name read interactively." nil)) (fset 'Helper-describe-variable (make-byte-code (quote nil) " " [((byte-code "!" [call-interactively describe-variable] 2)) Helper-help-scroller] 1 "\ Describe a variable. Name read interactively." nil)) (fset 'Helper-describe-mode (make-byte-code (quote nil) "\n!!q cc c+ " [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 (make-byte-code (quote nil) "!‹ " [message "Making binding list..." ((describe-bindings)) Helper-help-scroller] 2 "\ Describe local key bindings of current mode." nil)) (fset 'Helper-help (make-byte-code (quote nil) " ?! !!\n\n\"=% \n!5\n! *" [t nil c continue message "Help (Type ? for further options)" char-to-string downcase read-char lookup-key Helper-help-map Helper-help-options commandp call-interactively ding] 4 "\ Provide help for current mode." nil)) (provide (quote helper))