Mercurial > emacs
changeset 108718:27118d0de280
* isearch.el (isearch-mode-map): Bind more keys to isearch-help-map:
[f1], [help], and (char-to-string help-char) instead of "\C-h".
(Bug#6222)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 21 May 2010 01:01:57 +0300 |
| parents | b86650f513a8 |
| children | bd94528648ad |
| files | lisp/ChangeLog lisp/isearch.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 21 00:49:49 2010 +0300 +++ b/lisp/ChangeLog Fri May 21 01:01:57 2010 +0300 @@ -1,3 +1,9 @@ +2010-05-20 Juri Linkov <juri@jurta.org> + + * isearch.el (isearch-mode-map): Bind more keys to isearch-help-map: + [f1], [help], and (char-to-string help-char) instead of "\C-h". + (Bug#6222) + 2010-05-20 Juri Linkov <juri@jurta.org> * isearch.el (isearch-yank-string): Use isearch-process-search-string.
--- a/lisp/isearch.el Fri May 21 00:49:49 2010 +0300 +++ b/lisp/isearch.el Fri May 21 01:01:57 2010 +0300 @@ -460,7 +460,9 @@ (define-key map "\M-\C-y" 'isearch-yank-char) (define-key map "\C-y" 'isearch-yank-line) - (define-key map "\C-h" isearch-help-map) + (define-key map (char-to-string help-char) isearch-help-map) + (define-key map [help] isearch-help-map) + (define-key map [f1] isearch-help-map) (define-key map "\M-n" 'isearch-ring-advance) (define-key map "\M-p" 'isearch-ring-retreat)