Function: vhdl-speedbar-select-mra

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

Signature

(vhdl-speedbar-select-mra)

Documentation

Select the architecture under the cursor as MRA.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-speedbar-select-mra ()
  "Select the architecture under the cursor as MRA."
  (interactive)
  (if (not (vhdl-speedbar-check-unit 'architecture))
      (error "ERROR:  No architecture under cursor")
    (let* ((arch-key (downcase (vhdl-speedbar-line-text)))
	   (ent-key (downcase (vhdl-speedbar-higher-text)))
	   (ent-alist (vhdl-aget
		       vhdl-entity-alist
		       (or (vhdl-project-p)
			   (abbreviate-file-name default-directory))))
	   (ent-entry (vhdl-aget ent-alist ent-key)))
      (setcar (cddr (cddr ent-entry)) arch-key) ; (nth 4 ent-entry)
      (speedbar-refresh))))