Mercurial > emacs
changeset 22894:186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
author | Eric M. Ludlam <zappo@gnu.org> |
---|---|
date | Mon, 03 Aug 1998 17:54:35 +0000 |
parents | 322179a8fd20 |
children | 9f800ebc6091 |
files | lisp/info.el |
diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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