Mercurial > emacs
comparison lisp/ehelp.el @ 57859:40f8936f0305
(electric-help-map): Reorder Q/q and R/r entries so
substitute-command-keys will select lower-case bindings like those
used in the static help texts.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 01 Nov 2004 23:13:57 +0000 |
| parents | a5a7f792d532 |
| children | 6fb026ad601f e24e2e78deda |
comparison
equal
deleted
inserted
replaced
| 57858:53624be827e8 | 57859:40f8936f0305 |
|---|---|
| 83 (define-key map "\^?" 'scroll-down) | 83 (define-key map "\^?" 'scroll-down) |
| 84 (define-key map "." 'beginning-of-buffer) | 84 (define-key map "." 'beginning-of-buffer) |
| 85 (define-key map "<" 'beginning-of-buffer) | 85 (define-key map "<" 'beginning-of-buffer) |
| 86 (define-key map ">" 'end-of-buffer) | 86 (define-key map ">" 'end-of-buffer) |
| 87 ;(define-key map "\C-g" 'electric-help-exit) | 87 ;(define-key map "\C-g" 'electric-help-exit) |
| 88 (define-key map "Q" 'electric-help-exit) | |
| 88 (define-key map "q" 'electric-help-exit) | 89 (define-key map "q" 'electric-help-exit) |
| 89 (define-key map "Q" 'electric-help-exit) | |
| 90 ;;a better key than this? | 90 ;;a better key than this? |
| 91 (define-key map "R" 'electric-help-retain) | |
| 91 (define-key map "r" 'electric-help-retain) | 92 (define-key map "r" 'electric-help-retain) |
| 92 (define-key map "R" 'electric-help-retain) | |
| 93 (define-key map "\ex" 'electric-help-execute-extended) | 93 (define-key map "\ex" 'electric-help-execute-extended) |
| 94 (define-key map "\C-x" 'electric-help-ctrl-x-prefix) | 94 (define-key map "\C-x" 'electric-help-ctrl-x-prefix) |
| 95 | 95 |
| 96 (setq electric-help-map map))) | 96 (setq electric-help-map map))) |
| 97 | 97 |