From: Simona Arizanova <simonikane@hotmail.fr>
Date: Mon, 2 Apr 2018 08:14:56 +0000 (+0200)
Subject: Make help-for-help window searchable (Bug#19655)
X-Git-Tag: emacs-27.0.90~5346
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=956c39d11d871d1b6cdf4bc13217e9678d12fd76;p=emacs.git

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

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.