# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1079183529 0
# Node ID a3ca89cf37e667ae17bccbc433a558bdd85d2488
# Parent  6cce35d999fbe376e68cf17e1e7c3c5075a31f9d
(info-lookup): Reuse an existing Info window.

diff -r 6cce35d999fb -r a3ca89cf37e6 lisp/info-look.el
--- a/lisp/info-look.el	Sat Mar 13 13:06:48 2004 +0000
+++ b/lisp/info-look.el	Sat Mar 13 13:12:09 2004 +0000
@@ -338,7 +338,8 @@
 	       (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)