Function: vhdl-add-source-files-menu

vhdl-add-source-files-menu is an interactive and byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-add-source-files-menu)

Documentation

Scan directory for all VHDL source files and generate menu.

The directory of the current source file is scanned.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-add-source-files-menu ()
  "Scan directory for all VHDL source files and generate menu.
The directory of the current source file is scanned."
  (interactive)
  (message "Scanning directory for source files ...")
  (let ((newmap (current-local-map))
	(file-list (vhdl-get-source-files))
	menu-list found)
    ;; Create list for menu
    (setq found nil)
    (while file-list
      (setq found t)
      (push (vector (car file-list) (list 'find-file (car file-list)) t)
	    menu-list)
      (setq file-list (cdr file-list)))
    (setq menu-list (vhdl-menu-split menu-list "Sources"))
    (when found (push "--" menu-list))
    (push ["*Rescan*" vhdl-add-source-files-menu t] menu-list)
    (push "Sources" menu-list)
    ;; Create menu
    (when (featurep 'xemacs)
      (easy-menu-add menu-list))
    (easy-menu-define vhdl-sources-menu newmap
		      "VHDL source files menu" menu-list))
  (message ""))