# HG changeset patch
# User Eric M. Ludlam <zappo@gnu.org>
# Date 902166875 0
# Node ID 186b2098dcd8cd3768df71b0c37ade7c2822be0c
# Parent  322179a8fd20ea49fb96a6021a1be796ff46e0ed
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.

diff -r 322179a8fd20 -r 186b2098dcd8 lisp/info.el
--- a/lisp/info.el	Mon Aug 03 17:47:39 1998 +0000
+++ b/lisp/info.el	Mon Aug 03 17:54:35 1998 +0000
@@ -2193,9 +2193,13 @@
     ;; being known at creation time.
     (if (not node)
 	(speedbar-with-writable (insert "Info Nodes:\n")))
-    (let ((completions nil))
-      (setq completions
-	    (Info-speedbar-fetch-file-nodes (or node '"(dir)top")))
+    (let ((completions nil)
+	  (cf (selected-frame)))
+      (select-frame speedbar-attached-frame)
+      (save-window-excursion
+	(setq completions
+	      (Info-speedbar-fetch-file-nodes (or node '"(dir)top"))))
+      (select-frame cf)
       (if completions
 	  (speedbar-with-writable
 	   (while completions