;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Fri May 12 12:19:35 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/helper.el ;;; emacs version 19.28.91.1. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/helper.el' was compiled for Emacs 19")) (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 (#$ . 1458) nil]) #@34 Briefly describe binding of KEY. (defalias 'Helper-describe-key-briefly #[(key) "À !ˆÂÃ!‡" [describe-key-briefly key sit-for 4] 2 (#$ . 1626) "kDescribe key briefly: "]) #@26 Describe binding of KEY. (defalias 'Helper-describe-key #[(key) "À‹ˆÁ ‡" [((describe-key key)) Helper-help-scroller] 1 (#$ . 1802) "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 (#$ . 1959) nil]) #@48 Describe a variable. Name read interactively. (defalias 'Helper-describe-variable #[nil "À‹ˆÁ ‡" [((byte-code "ÀÁ!‡" [call-interactively describe-variable] 2)) Helper-help-scroller] 1 (#$ . 2168) 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 (#$ . 2377) nil]) #@46 Describe local key bindings of current mode. (defalias 'Helper-describe-bindings #[nil "ÀÁ!ˆÂ‹ˆÃ ‡" [message "Making binding list..." ((describe-bindings)) Helper-help-scroller] 2 (#$ . 2623) 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 (#$ . 2827) nil]) (provide (quote helper))