From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 13 Mar 2004 13:12:09 +0000 (+0000)
Subject: (info-lookup): Reuse an existing Info window.
X-Git-Tag: ttn-vms-21-2-B4~7254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3792a773ca5c84cbc3d5f7d7e32ed80b6e9fb785;p=emacs.git

(info-lookup): Reuse an existing Info window.
---

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 8242932c3af..35138121838 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -338,7 +338,8 @@ If optional argument QUERY is non-nil, query for the help mode."
 	       (info-frame (and window (window-frame window))))
 	  (if (and info-frame
 		   (display-multi-frame-p)
-		   (memq info-frame (frames-on-display-list)))
+		   (memq info-frame (frames-on-display-list))
+		   (not (eq info-frame (selected-frame))))
 	    (select-frame info-frame)
 	  (switch-to-buffer-other-window "*info*")))))
     (while (and (not found) modes)