(provide (quote helper)) (defvar Helper-return-blurb nil) (defvar Helper-major-mode nil) (defvar Helper-mode-name nil) (defvar Helper-help-map nil) (if Helper-help-map nil (setq Helper-help-map (make-keymap)) (fillarray Helper-help-map (quote undefined)) (define-key Helper-help-map "m" (quote Helper-describe-mode)) (define-key Helper-help-map "c" (quote Helper-describe-key-briefly)) (define-key Helper-help-map "k" (quote Helper-describe-key)) (define-key Helper-help-map "f" (quote Helper-describe-function)) (define-key Helper-help-map "v" (quote Helper-describe-variable)) (define-key Helper-help-map "?" (quote Helper-help-options)) (define-key Helper-help-map "" (quote Helper-help-options)) (fset (quote Helper-help-map) Helper-help-map)) (defun Helper-help-scroller nil (byte-code "Å‹‡" [continue t state Helper-return-blurb nil ((byte-code "ÅÆ !bˆÇÈ!ƒ ÉÈ!‚ ÊÈ!ˆebˆ Ä…Ž ËÌÍd!ƒ- ΂. Ï\"Íe!ƒ9 ΂: Ï\\‰ˆÐ Ñ8ÒÃ!…I †M Ó\"ˆr‰ˆÔ>…\\ ÌWƒd Õ ‚Š ÖUƒo × ‚Š ØU…{ ÙÚ Ì\"!ƒƒ Û ‚Š …Š ‰ˆ‚ *‡" [continue t state Helper-return-blurb nil window-start selected-window get-buffer-window "*Help*" pop-to-buffer switch-to-buffer * 2 pos-visible-in-window-p 1 0 message ("Space forward, Delete back. Other keys %s" "Space scrolls forward. Other keys %s" "Delete scrolls back. Other keys %s" "Type anything to %s") boundp "return" (32 22) scroll-up 12 recenter 127 zerop % scroll-down] 18))] 1)) (defun Helper-help-options nil "\ Describe help options." (interactive) (byte-code "ÀˆÁÂ!ˆÃÄ!‡" [nil message "c (key briefly), m (mode), k (key), v (variable), f (function)" sit-for 4] 3)) (defun Helper-describe-key-briefly (key) "\ Briefly describe binding of KEYS." (interactive "kDescribe key briefly: ") (byte-code "ÁˆÂ!ˆÃÄ!‡" [key nil describe-key-briefly sit-for 4] 3)) (defun Helper-describe-key (key) "\ Describe binding of KEYS." (interactive "kDescribe key: ") (byte-code "ÁˆÂ‹ˆÃ ‡" [key nil ((byte-code "Á!‡" [key describe-key] 2)) Helper-help-scroller] 2)) (defun Helper-describe-function nil "\ Describe a function. Name read interactively." (interactive) (byte-code "ÀˆÁ‹ˆÂ ‡" [nil ((byte-code "ÀÁ!‡" [call-interactively describe-function] 2)) Helper-help-scroller] 2)) (defun Helper-describe-variable nil "\ Describe a variable. Name read interactively." (interactive) (byte-code "ÀˆÁ‹ˆÂ ‡" [nil ((byte-code "ÀÁ!‡" [call-interactively describe-variable] 2)) Helper-help-scroller] 2)) (defun Helper-describe-mode nil "\ Describe the current mode." (interactive) (byte-code "ĈŠÅÆ!qˆÇ ˆÈÉÀ!… † ÊËÉÂ!… †$ !#)ˆÌ ‡" [Helper-mode-name mode-name Helper-major-mode major-mode nil get-buffer-create "*Help*" erase-buffer insert boundp " Mode " documentation Helper-help-scroller] 9)) (defun Helper-describe-bindings nil "\ Describe current local key bindings." (interactive) (byte-code "ÁˆÃÄ!ˆÅ Æ‹)ˆŠÇqˆebˆÈÉ!ˆÊe`\"ˆËÌ #…4 Í ˆÊ`ÈÉ!ˆ`\"ˆ‚ )ˆÎ ‡" [global-map nil t message "Making binding list..." make-sparse-keymap ((byte-code "À ‡" [describe-bindings] 2)) "*Help*" forward-line 1 delete-region search-forward "undefined" beginning-of-line Helper-help-scroller] 11)) (defun Helper-help nil "\ Provide help for current mode." (interactive) (byte-code "È Ã…j ÄÅ!ˆÆr!‰ˆ ÇU† ÈU‰ƒ'