diff options
| author | Eric M. Ludlam | 1998-08-03 17:54:35 +0000 |
|---|---|---|
| committer | Eric M. Ludlam | 1998-08-03 17:54:35 +0000 |
| commit | 5fdc799747e1d5da93fc50d5ce45a84fe456155b (patch) | |
| tree | fdbd187f343edefe3d40a18b1e683f044606ffbb /lisp | |
| parent | 0e5961010ee7a5faad65765cf06b2ab6c7d3c4ec (diff) | |
| download | emacs-5fdc799747e1d5da93fc50d5ce45a84fe456155b.tar.gz emacs-5fdc799747e1d5da93fc50d5ce45a84fe456155b.zip | |
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 10 |
1 files 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." | |||
| 2193 | ;; being known at creation time. | 2193 | ;; being known at creation time. |
| 2194 | (if (not node) | 2194 | (if (not node) |
| 2195 | (speedbar-with-writable (insert "Info Nodes:\n"))) | 2195 | (speedbar-with-writable (insert "Info Nodes:\n"))) |
| 2196 | (let ((completions nil)) | 2196 | (let ((completions nil) |
| 2197 | (setq completions | 2197 | (cf (selected-frame))) |
| 2198 | (Info-speedbar-fetch-file-nodes (or node '"(dir)top"))) | 2198 | (select-frame speedbar-attached-frame) |
| 2199 | (save-window-excursion | ||
| 2200 | (setq completions | ||
| 2201 | (Info-speedbar-fetch-file-nodes (or node '"(dir)top")))) | ||
| 2202 | (select-frame cf) | ||
| 2199 | (if completions | 2203 | (if completions |
| 2200 | (speedbar-with-writable | 2204 | (speedbar-with-writable |
| 2201 | (while completions | 2205 | (while completions |