Function: vhdl-speedbar-expand-all

vhdl-speedbar-expand-all is an interactive and byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-speedbar-expand-all)

Documentation

Expand all design units in current directory/project.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-speedbar-expand-all ()
  "Expand all design units in current directory/project."
  (interactive)
  (let* ((key (vhdl-speedbar-line-key))
	 (ent-alist (vhdl-aget vhdl-entity-alist key))
	 (conf-alist (vhdl-aget vhdl-config-alist key))
	 (pack-alist (vhdl-aget vhdl-package-alist key))
	 arch-alist unit-alist subunit-alist)
    (add-to-list 'vhdl-speedbar-shown-project-list key)
    (while ent-alist
      (setq arch-alist (nth 4 (car ent-alist)))
      (setq subunit-alist nil)
      (while arch-alist
	(push (caar arch-alist) subunit-alist)
	(setq arch-alist (cdr arch-alist)))
      (push (list (caar ent-alist) subunit-alist) unit-alist)
      (setq ent-alist (cdr ent-alist)))
    (while conf-alist
      (push (list (caar conf-alist)) unit-alist)
      (setq conf-alist (cdr conf-alist)))
    (while pack-alist
      (push (list (caar pack-alist)) unit-alist)
      (setq pack-alist (cdr pack-alist)))
    (vhdl-aput 'vhdl-speedbar-shown-unit-alist key unit-alist)
    (vhdl-speedbar-refresh)
    (when (memq 'display vhdl-speedbar-save-cache)
      (add-to-list 'vhdl-updated-project-list key))))