* 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 8ba93b3cebbdedcc667dbfe8eb57d70e02cfafeb..b0dbec2f6b2acbeac459adab65dafc39ec0804dd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 22b20a4c4a975cdc632a2d2ea167ca5f03f82369..b3d121512c2a0032d939a699a66bf391aa05d08a 100644 (file)
--- 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)