;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:16:52 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/helper.el ;;; emacs version 19.15.16. ;;; 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 "This file was compiled for Emacs 19")) (byte-code "ÀÁ!„ÂÀÃ!„ „BÄ Å ÆÇ#ˆÅ ÈÉ#ˆÅ ÊË#ˆÅ ÌÍ#ˆÅ ÎÏ#ˆÅ Ð!Ï#ˆÃ 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 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]] 4) (defalias 'Helper-help-options #[nil "ÀÁ!ˆÂÃ!‡" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 "\ Describe help options." nil]) (defalias 'Helper-describe-key-briefly #[(key) "À !ˆÂÃ!‡" [describe-key-briefly key sit-for 4] 2 "\ Briefly describe binding of KEY." "kDescribe key briefly: "]) (defalias 'Helper-describe-key #[(key) "À‹ˆÁ ‡" [((describe-key key)) Helper-help-scroller] 1 "\ Describe binding of KEY." "kDescribe key: "]) (defalias 'Helper-describe-function #[nil "À‹ˆÁ ‡" [((byte-code "ÀÁ!‡" [call-interactively describe-function] 2)) Helper-help-scroller] 1 "\ Describe a function. Name read interactively." nil]) (defalias 'Helper-describe-variable #[nil "À‹ˆÁ ‡" [((byte-code "ÀÁ!‡" [call-interactively describe-variable] 2)) Helper-help-scroller] 1 "\ Describe a variable. Name read interactively." nil]) (defalias '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]) (defalias 'Helper-describe-bindings #[nil "ÀÁ!ˆÂ‹ˆÃ ‡" [message "Making binding list..." ((describe-bindings)) Helper-help-scroller] 2 "\ Describe local key bindings of current mode." nil]) (defalias 'Helper-help #[nil "ÀÁ …>ÄÅ!ˆÆÇ —!È \n\"‰Ê=ƒ$Ê ˆ‚Ë\n!ƒ4Ì\n!ˆÁ‰‚Í ˆÁ‰„Á*‡" [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]) (provide (quote helper))