From: Juri Linkov Date: Thu, 20 May 2010 22:01:57 +0000 (+0300) Subject: * isearch.el (isearch-mode-map): Bind more keys to isearch-help-map: X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~205^2~37 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50de6a38df9b32d34247784e5dc937c175bf1f2b;p=emacs.git * 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) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ba93b3cebb..b0dbec2f6b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-05-20 Juri Linkov + + * 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 * isearch.el (isearch-yank-string): Use isearch-process-search-string. diff --git a/lisp/isearch.el b/lisp/isearch.el index 22b20a4c4a9..b3d121512c2 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -460,7 +460,9 @@ This is like `describe-bindings', but displays only Isearch keys." (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)