procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make help-for-help window searchable (Bug#19655)

Browse source 
* 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
This commit is contained in:
Simona Arizanova 2018-04-02 10:14:56 +02:00 • committed by Martin Rudalics
parent 7228488eff
commit 956c39d11d
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/help.el
View file

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