;; with the selected frame.
(list 'parent (selected-frame)))
speedbar-frame-parameters)
;; with the selected frame.
(list 'parent (selected-frame)))
speedbar-frame-parameters)
(if (not v)
(setq speedbar-special-mode-expansion-list t)
;; If it is autoloaded, we need to load it now so that
(if (not v)
(setq speedbar-special-mode-expansion-list t)
;; If it is autoloaded, we need to load it now so that
;; If the shown files variable has extra directories, then
;; it is our responsibility to redraw them all
;; Luckily, the nature of inserting items into this list means
;; If the shown files variable has extra directories, then
;; it is our responsibility to redraw them all
;; Luckily, the nature of inserting items into this list means
(let ((sf (cdr (reverse speedbar-shown-directories))))
(setq speedbar-shown-directories
(list (expand-file-name default-directory)))
(let ((sf (cdr (reverse speedbar-shown-directories))))
(setq speedbar-shown-directories
(list (expand-file-name default-directory)))