(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.

diff --git a/lisp/info.el b/lisp/info.el
index 72bd7815fa0d13ea24a3694ccf7c35adaa7c98b8..8fede6181127d8ea323c51adb205a5332a4517c5 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2193,9 +2193,13 @@ specific node to expand."
     ;; 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