From 5fdc799747e1d5da93fc50d5ce45a84fe456155b Mon Sep 17 00:00:00 2001 From: "Eric M. Ludlam" Date: Mon, 3 Aug 1998 17:54:35 +0000 Subject: [PATCH] (Info-speedbar-hierarchy-buttons): Improved the speedbar frame management. --- lisp/info.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 72bd7815fa0..8fede618112 100644 --- 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 -- 2.39.2