[unix-history] / 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))
Commit	Line	Data
9755a92f C	1
	2	(provide (quote helper))
	3
	4	(defvar Helper-return-blurb nil)
	5
	6	(defvar Helper-help-map nil)
	7
	8	(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))
	9
	10