From 50de6a38df9b32d34247784e5dc937c175bf1f2b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 21 May 2010 01:01:57 +0300 Subject: [PATCH] * 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) --- lisp/ChangeLog | 6 ++++++ lisp/isearch.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + * 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. (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) -- 2.11.4.GIT