Lines Matching +refs:ehelp +refs:map
0 ;;; ehelp.el --- bindings for electric-help mode
35 ;; (require 'ehelp)
36 ;; (define-key global-map "\C-h" 'ehelp-command)
37 ;; (define-key global-map [help] 'ehelp-command)
38 ;; (define-key global-map [f1] 'ehelp-command)
43 (defvar electric-help-map ()
64 (if electric-help-map
66 (let ((map (make-keymap)))
68 ;; let M-x and C-x exit ehelp mode and retain buffer:
69 (suppress-keymap map)
70 (define-key map "\C-u" 'electric-help-undefined)
71 (define-key map [?\C-0] 'electric-help-undefined)
72 (define-key map [?\C-1] 'electric-help-undefined)
73 (define-key map [?\C-2] 'electric-help-undefined)
74 (define-key map [?\C-3] 'electric-help-undefined)
75 (define-key map [?\C-4] 'electric-help-undefined)
76 (define-key map [?\C-5] 'electric-help-undefined)
77 (define-key map [?\C-6] 'electric-help-undefined)
78 (define-key map [?\C-7] 'electric-help-undefined)
79 (define-key map [?\C-8] 'electric-help-undefined)
80 (define-key map [?\C-9] 'electric-help-undefined)
81 (define-key map (char-to-string help-char) 'electric-help-help)
82 (define-key map "?" 'electric-help-help)
83 (define-key map " " 'scroll-up)
84 (define-key map "\^?" 'scroll-down)
85 (define-key map "." 'beginning-of-buffer)
86 (define-key map "<" 'beginning-of-buffer)
87 (define-key map ">" 'end-of-buffer)
88 ;(define-key map "\C-g" 'electric-help-exit)
89 (define-key map "Q" 'electric-help-exit)
90 (define-key map "q" 'electric-help-exit)
92 (define-key map "R" 'electric-help-retain)
93 (define-key map "r" 'electric-help-retain)
94 (define-key map "\ex" 'electric-help-execute-extended)
95 (define-key map "\C-x" 'electric-help-ctrl-x-prefix)
97 (setq electric-help-map map)))
106 (use-local-map electric-help-map)
349 ;; This is to be bound to M-x in ehelp mode. Retains ehelp buffer and then
356 ;; This is to be buond to C-x in ehelp mode. Retains ehelp buffer and then
402 ;(define-key help-map "a" 'electric-command-apropos)
410 ;;;; ehelp-map
412 (defvar ehelp-map ())
413 (if ehelp-map
415 (let ((map (copy-keymap help-map)))
416 (substitute-key-definition 'apropos 'electric-apropos map)
417 (substitute-key-definition 'command-apropos 'electric-command-apropos map)
418 (substitute-key-definition 'describe-key 'electric-describe-key map)
419 (substitute-key-definition 'describe-mode 'electric-describe-mode map)
420 (substitute-key-definition 'view-lossage 'electric-view-lossage map)
421 (substitute-key-definition 'describe-function 'electric-describe-function map)
422 (substitute-key-definition 'describe-variable 'electric-describe-variable map)
423 (substitute-key-definition 'describe-bindings 'electric-describe-bindings map)
424 (substitute-key-definition 'describe-syntax 'electric-describe-syntax map)
426 (setq ehelp-map map)))
428 ;;;###(autoload 'ehelp-command "ehelp" "Prefix command for ehelp." t 'keymap)
429 (defalias 'ehelp-command ehelp-map)
430 (put 'ehelp-command 'documentation "Prefix command for ehelp.")
432 (provide 'ehelp)
435 ;;; ehelp.el ends here