* 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)

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ba93b3cebb..b0dbec2f6b2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 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.
         (Bug#6223)
 
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)