[Emacs-diffs] /srv/bzr/emacs/trunk r100385: * isearch.el (isearch-mode-map): Bind more keys to isearch-help-map:

[Juri Linkov]

------------------------------------------------------------
revno: 100385
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2010-05-21 01:01:57 +0300
message:
  * 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)
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-20 21:49:49 +0000
+++ b/lisp/ChangeLog    2010-05-20 22:01:57 +0000
@@ -1,5 +1,11 @@
 2010-05-20  Juri Linkov  <address@hidden>
 
+       * 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  <address@hidden>
+
        * isearch.el (isearch-yank-string): Use isearch-process-search-string.
        (Bug#6223)
 

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2010-05-20 21:49:49 +0000
+++ b/lisp/isearch.el   2010-05-20 22:01:57 +0000
@@ -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)