diff options
author | Simona Arizanova <simonikane@hotmail.fr> | 2018-04-02 10:14:56 +0200 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2018-04-02 10:14:56 +0200 |
commit | 956c39d11d871d1b6cdf4bc13217e9678d12fd76 (patch) | |
tree | 27ca1c18042c908b62fee03cbf4e337464ced1b8 /lisp/help.el | |
parent | 7228488effa78dcb75284cb6d247b24804e0e7f5 (diff) | |
download | emacs-956c39d11d871d1b6cdf4bc13217e9678d12fd76.tar.gz |
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
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 9 |
1 files changed, 9 insertions, 0 deletions
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. |