Lines Matching +defs:help +defs:map
241 (defvar mh-help-default nil
244 (defvar mh-help-messages nil
247 representing the mode; the value is described in `mh-set-help'.")
250 (defun mh-set-help (messages &optional default)
251 "Set help messages.
254 to show help for the most common commands in the current mode.
256 are concatenated together and displayed in a help buffer if ? is
264 be used if help is asked for an unknown mode."
265 (add-to-list 'mh-help-messages (cons major-mode messages))
267 (setq mh-help-default major-mode)))
270 (defun mh-help (&optional help-messages)
272 See `mh-set-help' for setting the help messages.
275 and displayed in a help buffer."
277 (let* ((help (or help-messages
278 (cdr (assoc nil (assoc major-mode mh-help-messages)))))
279 (text (substitute-command-keys (mapconcat 'identity help ""))))
280 (with-electric-help
284 mh-help-buffer)))
287 (defun mh-prefix-help ()
297 (help (cdr (assoc prefix-char (assoc major-mode mh-help-messages)))))
298 (mh-help help)))
685 (defvar mh-folder-completion-map (copy-keymap minibuffer-local-completion-map))
686 (define-key mh-folder-completion-map " " 'minibuffer-complete) ;Why???
753 (minibuffer-local-completion-map mh-folder-completion-map)
811 (when (boundp 'mh-speed-folder-map)
937 (let ((map (make-sparse-keymap)))
939 (define-key map [mouse-2] 'mh-letter-toggle-header-field-display-button))
941 (define-key map '(button2)
943 map))