mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(info-lookup): If *info* is shown in another frame

Browse Source 
on the same display, select that frame, instead of switching to
the Info buffer in another window of the selected frame.
This commit is contained in:
Gerd Moellmann 2000-07-20 20:35:27 +00:00
parent bd7acc8d7c
commit f457975a0c
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/info-look.el
View File

@ -332,8 +332,18 @@ If optional argument QUERY is non-nil, query for the help mode."
(if (or (not info-lookup-other-window-flag)
(eq (current-buffer) (get-buffer "*info*")))
(info)
(save-window-excursion (info))
(switch-to-buffer-other-window "*info*"))
(progn
(save-window-excursion (info))
;; Determine whether or not the Info buffer is visible in
;; another frame on the same display. If it is, simply raise
;; that frame. Otherwise, display it in another window.
(let* ((window (get-buffer-window "*info*" t))
(info-frame (and window (window-frame window))))
(if (and info-frame
(display-multi-frame-p)
(memq info-frame (frames-on-display-list)))
(select-frame info-frame)
(switch-to-buffer-other-window "*info*")))))
(while (and (not found) modes)
(setq doc-spec (info-lookup->doc-spec topic (car modes)))
(while (and (not found) doc-spec)