Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make more buttons in *Help* respect `help-window-keep-selected'

Browse source 
* lisp/help-mode.el (help-function-cmacro, help-variable-def)
(help-face-def): Also respect `help-window-keep-selected' like the
other commands.
This commit is contained in:
Lars Ingebrigtsen 2022-05-03 12:23:25 +02:00
parent cf0d289e38
commit 0e8fc556b6
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/help-mode.el
View file

@ -296,7 +296,10 @@ The format is (FUNCTION ARGS...).")
(setq file (locate-library file t))
(if (and file (file-readable-p file))
(progn
(pop-to-buffer (find-file-noselect file))
(if help-window-keep-selected
(pop-to-buffer-same-window
(find-file-noselect file))
(pop-to-buffer (find-file-noselect file)))
(widen)
(goto-char (point-min))
(if (re-search-forward
@ -315,7 +318,9 @@ The format is (FUNCTION ARGS...).")
(setq file (help-C-file-name var 'var)))
(let* ((location (find-variable-noselect var file))
(position (cdr location)))
(pop-to-buffer (car location))
(if help-window-keep-selected
(pop-to-buffer-same-window (car location))
(pop-to-buffer (car location)))
(run-hooks 'find-function-after-hook)
(if position
(progn
@ -336,7 +341,9 @@ The format is (FUNCTION ARGS...).")
(let* ((location
(find-function-search-for-symbol fun 'defface file))
(position (cdr location)))
(pop-to-buffer (car location))
(if help-window-keep-selected
(pop-to-buffer-same-window (car location))
(pop-to-buffer (car location)))
(if position
(progn
;; Widen the buffer if necessary to go to this position.
@ -378,7 +385,9 @@ The format is (FUNCTION ARGS...).")
:supertype 'help-xref
'help-function
(lambda (file pos)
(view-buffer-other-window (find-file-noselect file))
(if help-window-keep-selected
(view-buffer (find-file-noselect file))
(view-buffer-other-window (find-file-noselect file)))
(goto-char pos))
'help-echo (purecopy "mouse-2, RET: show corresponding NEWS announcement"))