mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Make `info-display-manual' pop up the correct frame

Browse Source 
* lisp/info.el (info-display-manual): If the buffer is already in
a window, use that window (bug#20020).
This commit is contained in:
Lars Ingebrigtsen 2019-10-09 04:10:41 +02:00
parent cca2ba5532
commit 534783c526
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/info.el
View File

@ -5338,7 +5338,16 @@ completion alternatives to currently visited manuals."
(setq found buffer
blist nil))))
(if found
(switch-to-buffer found)
(let ((window (get-buffer-window found t)))
;; If the buffer is already displayed in a window somewhere,
;; then select that window (and pop its frame to the top).
(if window
(progn
(raise-frame (window-frame window))
(select-frame-set-input-focus (window-frame window))
(select-window window))
(switch-to-buffer found)))
;; The buffer doesn't exist; create it.
(info-initialize)
(info (Info-find-file manual)
(generate-new-buffer-name "*info*")))))