From 956c39d11d871d1b6cdf4bc13217e9678d12fd76 Mon Sep 17 00:00:00 2001 From: Simona Arizanova Date: Mon, 2 Apr 2018 10:14:56 +0200 Subject: [PATCH] Make help-for-help window searchable (Bug#19655) * lisp/help.el (help-map): Map C-s to new function search-forward-help-for-help. (help-for-help-internal): In doc-string add entry for C-s. (search-forward-help-for-help): New function. Copyright-paperwork-exempt: yes --- lisp/help.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/help.el b/lisp/help.el index 90be45777b0..8e6604d2dba 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -67,6 +67,7 @@ (define-key map "\C-n" 'view-emacs-news) (define-key map "\C-o" 'describe-distribution) (define-key map "\C-p" 'view-emacs-problems) + (define-key map "\C-s" 'search-forward-help-for-help) (define-key map "\C-t" 'view-emacs-todo) (define-key map "\C-w" 'describe-no-warranty) @@ -240,6 +241,7 @@ C-m How to order printed Emacs manuals. C-n News of recent Emacs changes. C-o Emacs ordering and distribution information. C-p Info about known Emacs problems. +C-s Search forward \"help window\". C-t Emacs TODO list. C-w Information on absence of warranty for GNU Emacs." help-map) @@ -965,6 +967,13 @@ documentation for the major and minor modes of that buffer." ;; For the sake of IELM and maybe others nil) +(defun search-forward-help-for-help () + "Search forward \"help window\"." + (interactive) + ;; Move cursor to the "help window". + (pop-to-buffer " *Metahelp*") + ;; Do incremental search forward. + (isearch-forward nil t)) (defun describe-minor-mode (minor-mode) "Display documentation of a minor mode given as MINOR-MODE. -- 2.39.2