;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 05:53:07 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/helper.el ;;; emacs version 19.30.70.6. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`helper.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ B\f„JÅ Æ\fÇÈ#ˆÆ\fÉÊ#ˆÆ\fËÌ#ˆÆ\fÍÎ#ˆÆ\fÏÐ#ˆÆ\fÑ!Ð#ˆÄ\fMˆÂ‡" [boundp Helper-return-blurb nil current-load-list 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] 4) (defalias 'Helper-help-scroller #[nil "ÀÁ!ƒ\n † ÂÄ‹)‡" [boundp Helper-return-blurb "return" blurb ((byte-code "ÀÁ !bˆÂÃ!ƒÄÃ!ˆ‚ÅÃ!ˆebˆÆÇ  …‹Êd!ƒ/Ë‚0ÌÍ_Êe!ƒ<Ë‚=Ì\\ÎÏ8\"ˆÑ ‰ Ò>ƒ`ÍWƒ`Ó ˆ‚  ÔUƒmÕ ˆ‚  Ö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]) #@24 Describe help options. (defalias 'Helper-help-options #[nil "ÀÁ!ˆÂÃ!‡" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 (#$ . 1434) nil]) #@34 Briefly describe binding of KEY. (defalias 'Helper-describe-key-briefly #[(key) "À !ˆÂÃ!‡" [describe-key-briefly key sit-for 4] 2 (#$ . 1602) "kDescribe key briefly: "]) #@26 Describe binding of KEY. (defalias 'Helper-describe-key #[(key) "À‹ˆÁ ‡" [((describe-key key)) Helper-help-scroller] 1 (#$ . 1778) "kDescribe key: "]) #@48 Describe a function. Name read interactively. (defalias 'Helper-describe-function #[nil "À‹ˆÁ ‡" [((byte-code "ÀÁ!‡" [call-interactively describe-function] 2)) Helper-help-scroller] 1 (#$ . 1935) nil]) #@48 Describe a variable. Name read interactively. (defalias 'Helper-describe-variable #[nil "À‹ˆÁ ‡" [((byte-code "ÀÁ!‡" [call-interactively describe-variable] 2)) Helper-help-scroller] 1 (#$ . 2144) nil]) #@28 Describe the current mode. (defalias 'Helper-describe-mode #[nil "Á\n!ŠÄÅ!qˆÆ ˆ Ç ±ˆÈ ˆ+É ‡" [mode-name documentation major-mode name get-buffer-create "*Help*" erase-buffer " Mode\n" help-mode Helper-help-scroller] 3 (#$ . 2353) nil]) #@46 Describe local key bindings of current mode. (defalias 'Helper-describe-bindings #[nil "ÀÁ!ˆÂ‹ˆÃ ‡" [message "Making binding list..." ((describe-bindings)) Helper-help-scroller] 2 (#$ . 2599) nil]) #@32 Provide help for current mode. (defalias 'Helper-help #[nil "ÀÁ …<ÄÅ!ˆÆÁ!Ç\n\"‰É=ƒ\"É ˆ‚Ê\n!ƒ2Ë\n!ˆÁ‰‚Ì ˆÁ‰„Á*‡" [t nil c continue message "Help (Type ? for further options)" read-key-sequence lookup-key Helper-help-map Helper-help-options commandp call-interactively ding] 4 (#$ . 2803) nil]) (provide (quote helper))