diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-30 21:34:18 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-30 21:34:18 +0200 |
| commit | 4ea8ab77e295fc508fc910e8278540ebcce293fb (patch) | |
| tree | ac621b6bc361ff80325e6d6999f01fedf5affb5b /lisp/apropos.el | |
| parent | 95dbe4b6ae2e88213835a8ded3928b6769d78f2c (diff) | |
| download | emacs-4ea8ab77e295fc508fc910e8278540ebcce293fb.tar.gz | |
Make `M-x apropos' respect help-window-select
* lisp/apropos.el (apropos-print): Respect help-window-select.
(apropos): Mention it (bug#46034).
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index a98f2328ac2..79c4df10d25 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -663,7 +663,10 @@ search for matches for any two (or more) of those words. With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, consider all symbols (if they match PATTERN). -Return list of symbols and documentation found." +Return list of symbols and documentation found. + +The *Apropos* window will be selected if `help-window-select' is +non-nil." (interactive (list (apropos-read-pattern "symbol") current-prefix-arg)) (setq apropos--current (list #'apropos pattern do-all)) @@ -1249,7 +1252,9 @@ as a heading." (apropos-print-doc 5 'apropos-widget t) (apropos-print-doc 4 'apropos-plist nil)) (setq-local truncate-partial-width-windows t) - (setq-local truncate-lines t)))) + (setq-local truncate-lines t))) + (when help-window-select + (select-window (get-buffer-window "*Apropos*")))) (prog1 apropos-accumulator (setq apropos-accumulator ()))) ; permit gc |