mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Eric M. Ludlam 1998-08-03 17:54:35 +00:00
parent 0e5961010e
commit 5fdc799747
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/info.el
View File

@ -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