From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 30 Apr 2022 19:34:18 +0000 (+0200)
Subject: Make `M-x apropos' respect help-window-select
X-Git-Tag: emacs-29.0.90~1931^2~176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ea8ab77e295fc508fc910e8278540ebcce293fb;p=emacs.git

Make `M-x apropos' respect help-window-select

* lisp/apropos.el (apropos-print): Respect help-window-select.
(apropos): Mention it (bug#46034).
---

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