usr/src/contrib/emacs-18.57/lisp/helper.elc


(provide (quote helper))

(defvar Helper-return-blurb nil)

(defvar Helper-help-map nil)

(if Helper-help-map nil (setq Helper-help-map (make-keymap)) (define-key Helper-help-map "m" (quote Helper-describe-mode)) (define-key Helper-help-map "b" (quote Helper-describe-bindings)) (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 "?" (quote Helper-help-options)) (define-key Helper-help-map (char-to-string help-char) (quote Helper-help-options)) (fset (quote Helper-help-map) Helper-help-map))

(defun Helper-help-scroller nil (byte-code "ÆÁ!\85\a