Function: vhdl-speedbar-expand-dirs

vhdl-speedbar-expand-dirs is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-speedbar-expand-dirs DIRECTORY)

Documentation

Expand subdirectories in DIRECTORY according to speedbar-shown-directories.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-speedbar-expand-dirs (_directory)
  "Expand subdirectories in DIRECTORY according to `speedbar-shown-directories'."
  ;; (nicked from `speedbar-default-directory-list')
  (let ((sf (cdr (reverse speedbar-shown-directories)))
	(vhdl-speedbar-update-current-unit nil))
    (setq speedbar-shown-directories
	  (list (expand-file-name default-directory)))
    (while sf
      (when (speedbar-goto-this-file (car sf))
	(beginning-of-line)
	(when (looking-at "[0-9]+:\\s-*<")
	  (goto-char (match-end 0))
	  (speedbar-do-function-pointer)))
      (setq sf (cdr sf))))
  (vhdl-speedbar-update-current-unit nil t))