Lines Matching +defs:help +defs:map
1 ;;; helper.el --- utility help package supporting help in electric modes
8 ;; Keywords: help
34 ;; Helper-help uses this to construct help string when scrolling.
40 ;; will probably have to use Helper-help. You can't autoload the
44 (defvar Helper-help-map nil)
45 (if Helper-help-map
47 (setq Helper-help-map (make-keymap))
48 ;(fillarray Helper-help-map 'undefined)
49 (define-key Helper-help-map "m" 'Helper-describe-mode)
50 (define-key Helper-help-map "b" 'Helper-describe-bindings)
51 (define-key Helper-help-map "c" 'Helper-describe-key-briefly)
52 (define-key Helper-help-map "k" 'Helper-describe-key)
53 ;(define-key Helper-help-map "f" 'Helper-describe-function)
54 ;(define-key Helper-help-map "v" 'Helper-describe-variable)
55 (define-key Helper-help-map "?" 'Helper-help-options)
56 (define-key Helper-help-map (char-to-string help-char) 'Helper-help-options)
57 (fset 'Helper-help-map Helper-help-map))
59 (defun Helper-help-scroller ()
89 (defun Helper-help-options ()
90 "Describe help options."
106 (Helper-help-scroller))
112 (Helper-help-scroller))
118 (Helper-help-scroller))
130 (help-mode)))
131 (Helper-help-scroller))
139 (Helper-help-scroller))
142 (defun Helper-help ()
143 "Provide help for current mode."
149 (setq c (lookup-key Helper-help-map c))
150 (cond ((eq c 'Helper-help-options)
151 (Helper-help-options))