Function: vhdl-create-mode-menu
vhdl-create-mode-menu is a byte-compiled function defined in
vhdl-mode.el.gz.
Signature
(vhdl-create-mode-menu)
Documentation
Create VHDL Mode menu.
Source Code
;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-create-mode-menu ()
"Create VHDL Mode menu."
`("VHDL"
,(append
'("Project"
["None" (vhdl-set-project "")
:style radio :selected (null vhdl-project)]
"--")
;; add menu entries for defined projects
(let ((project-alist vhdl-project-alist) menu-list name)
(while project-alist
(setq name (caar project-alist))
(setq menu-list
(cons `[,name (vhdl-set-project ,name)
:style radio :selected (equal ,name vhdl-project)]
menu-list))
(setq project-alist (cdr project-alist)))
(setq menu-list
(if vhdl-project-sort
(sort menu-list
(lambda (a b) (string< (elt a 0) (elt b 0))))
(nreverse menu-list)))
(vhdl-menu-split menu-list "Project"))
'("--" "--"
["Select Project..." vhdl-set-project t]
["Set As Default Project" vhdl-set-default-project t]
"--"
["Duplicate Project" vhdl-duplicate-project vhdl-project]
["Import Project..." vhdl-import-project
:keys "C-c C-p C-m" :active t]
["Export Project" vhdl-export-project vhdl-project]
"--"
["Customize Project..." (customize-option 'vhdl-project-alist) t]))
"--"
("Compile"
["Compile Buffer" vhdl-compile t]
["Stop Compilation" kill-compilation t]
"--"
["Make" vhdl-make t]
["Generate Makefile" vhdl-generate-makefile t]
"--"
["Next Error" next-error t]
["Previous Error" previous-error t]
["First Error" first-error t]
"--"
,(append
'("Compiler")
;; add menu entries for defined compilers
(let ((comp-alist vhdl-compiler-alist) menu-list name)
(while comp-alist
(setq name (caar comp-alist))
(setq menu-list
(cons `[,name (setq vhdl-compiler ,name)
:style radio :selected (equal ,name vhdl-compiler)]
menu-list))
(setq comp-alist (cdr comp-alist)))
(setq menu-list (nreverse menu-list))
(vhdl-menu-split menu-list "Compiler"))
'("--" "--"
["Select Compiler..." vhdl-set-compiler t]
"--"
["Customize Compiler..."
(customize-option 'vhdl-compiler-alist) t])))
"--"
,(append
'("Template"
("VHDL Construct 1"
["Alias" vhdl-template-alias t]
["Architecture" vhdl-template-architecture t]
["Assert" vhdl-template-assert t]
["Attribute (Decl)" vhdl-template-attribute-decl t]
["Attribute (Spec)" vhdl-template-attribute-spec t]
["Block" vhdl-template-block t]
["Case" vhdl-template-case-is t]
["Component (Decl)" vhdl-template-component-decl t]
["(Component) Instance" vhdl-template-component-inst t]
["Conditional (Signal Asst)" vhdl-template-conditional-signal-asst t]
["Configuration (Block)" vhdl-template-block-configuration t]
["Configuration (Comp)" vhdl-template-component-conf t]
["Configuration (Decl)" vhdl-template-configuration-decl t]
["Configuration (Spec)" vhdl-template-configuration-spec t]
["Constant" vhdl-template-constant t]
["Context" vhdl-template-context t]
["Disconnect" vhdl-template-disconnect t]
["Else" vhdl-template-else t]
["Elsif" vhdl-template-elsif t]
["Entity" vhdl-template-entity t]
["Exit" vhdl-template-exit t]
["File" vhdl-template-file t]
["For (Generate)" vhdl-template-for-generate t]
["For (Loop)" vhdl-template-for-loop t]
["Function (Body)" vhdl-template-function-body t]
["Function (Decl)" vhdl-template-function-decl t]
["Generic" vhdl-template-generic t]
["Group (Decl)" vhdl-template-group-decl t]
["Group (Template)" vhdl-template-group-template t])
("VHDL Construct 2"
["If (Generate)" vhdl-template-if-generate t]
["If (Then)" vhdl-template-if-then t]
["Library" vhdl-template-library t]
["Loop" vhdl-template-bare-loop t]
["Map" vhdl-template-map t]
["Next" vhdl-template-next t]
["Others (Aggregate)" vhdl-template-others t]
["Package (Decl)" vhdl-template-package-decl t]
["Package (Body)" vhdl-template-package-body t]
["Port" vhdl-template-port t]
["Procedure (Body)" vhdl-template-procedure-body t]
["Procedure (Decl)" vhdl-template-procedure-decl t]
["Process (Comb)" vhdl-template-process-comb t]
["Process (Seq)" vhdl-template-process-seq t]
["Report" vhdl-template-report t]
["Return" vhdl-template-return t]
["Select" vhdl-template-selected-signal-asst t]
["Signal" vhdl-template-signal t]
["Subtype" vhdl-template-subtype t]
["Type" vhdl-template-type t]
["Use" vhdl-template-use t]
["Variable" vhdl-template-variable t]
["Wait" vhdl-template-wait t]
["(Clocked Wait)" vhdl-template-clocked-wait t]
["When" vhdl-template-when t]
["While (Loop)" vhdl-template-while-loop t]
["With" vhdl-template-with t]))
(when (vhdl-standard-p 'ams)
'(("VHDL-AMS Construct"
["Break" vhdl-template-break t]
["Case (Use)" vhdl-template-case-use t]
["If (Use)" vhdl-template-if-use t]
["Limit" vhdl-template-limit t]
["Nature" vhdl-template-nature t]
["Procedural" vhdl-template-procedural t]
["Quantity (Free)" vhdl-template-quantity-free t]
["Quantity (Branch)" vhdl-template-quantity-branch t]
["Quantity (Source)" vhdl-template-quantity-source t]
["Subnature" vhdl-template-subnature t]
["Terminal" vhdl-template-terminal t])))
'(["Insert Construct..." vhdl-template-insert-construct
:keys "C-c C-i C-t"]
"--")
(list
(append
'("Package")
'(["numeric_bit" vhdl-template-package-numeric-bit t]
["numeric_std" vhdl-template-package-numeric-std t]
["std_logic_1164" vhdl-template-package-std-logic-1164 t]
["textio" vhdl-template-package-textio t]
"--"
["std_logic_arith" vhdl-template-package-std-logic-arith t]
["std_logic_signed" vhdl-template-package-std-logic-signed t]
["std_logic_unsigned" vhdl-template-package-std-logic-unsigned t]
["std_logic_misc" vhdl-template-package-std-logic-misc t]
["std_logic_textio" vhdl-template-package-std-logic-textio t]
"--")
(when (vhdl-standard-p 'ams)
'(["fundamental_constants" vhdl-template-package-fundamental-constants t]
["material_constants" vhdl-template-package-material-constants t]
["energy_systems" vhdl-template-package-energy-systems t]
["electrical_systems" vhdl-template-package-electrical-systems t]
["mechanical_systems" vhdl-template-package-mechanical-systems t]
["radiant_systems" vhdl-template-package-radiant-systems t]
["thermal_systems" vhdl-template-package-thermal-systems t]
["fluidic_systems" vhdl-template-package-fluidic-systems t]
"--"))
(when (vhdl-standard-p 'math)
'(["math_complex" vhdl-template-package-math-complex t]
["math_real" vhdl-template-package-math-real t]
"--"))
'(["Insert Package..." vhdl-template-insert-package
:keys "C-c C-i C-p"])))
'(("Directive"
["translate_on" vhdl-template-directive-translate-on t]
["translate_off" vhdl-template-directive-translate-off t]
["synthesis_on" vhdl-template-directive-synthesis-on t]
["synthesis_off" vhdl-template-directive-synthesis-off t]
"--"
["Insert Directive..." vhdl-template-insert-directive
:keys "C-c C-i C-d"])
"--"
["Insert Header" vhdl-template-header :keys "C-c C-t C-h"]
["Insert Footer" vhdl-template-footer t]
["Insert Date" vhdl-template-insert-date t]
["Modify Date" vhdl-template-modify :keys "C-c C-t C-m"]
"--"
["Query Next Prompt" vhdl-template-search-prompt t]))
,(append
'("Model")
;; add menu entries for defined models
(let ((model-alist vhdl-model-alist) menu-list model)
(while model-alist
(setq model (car model-alist))
(setq menu-list
(cons
(vector
(nth 0 model)
(vhdl-function-name "vhdl-model" (nth 0 model))
:keys (concat "C-c C-m " (key-description (nth 2 model))))
menu-list))
(setq model-alist (cdr model-alist)))
(setq menu-list (nreverse menu-list))
(vhdl-menu-split menu-list "Model"))
'("--" "--"
["Insert Model..." vhdl-model-insert :keys "C-c C-i C-m"]
["Customize Model..." (customize-option 'vhdl-model-alist) t]))
("Port"
["Copy" vhdl-port-copy t]
"--"
["Paste As Entity" vhdl-port-paste-entity vhdl-port-list]
["Paste As Component" vhdl-port-paste-component vhdl-port-list]
["Paste As Instance" vhdl-port-paste-instance
:keys "C-c C-p C-i" :active vhdl-port-list]
["Paste As Signals" vhdl-port-paste-signals vhdl-port-list]
["Paste As Constants" vhdl-port-paste-constants vhdl-port-list]
["Paste As Generic Map" vhdl-port-paste-generic-map vhdl-port-list]
["Paste As Initializations" vhdl-port-paste-initializations vhdl-port-list]
"--"
["Paste As Testbench" vhdl-port-paste-testbench vhdl-port-list]
"--"
["Flatten" vhdl-port-flatten
:style toggle :selected vhdl-port-flattened :active vhdl-port-list]
["Reverse Direction" vhdl-port-reverse-direction
:style toggle :selected vhdl-port-reversed-direction :active vhdl-port-list])
("Compose"
["New Component" vhdl-compose-new-component t]
["Copy Component" vhdl-port-copy t]
["Place Component" vhdl-compose-place-component vhdl-port-list]
["Wire Components" vhdl-compose-wire-components t]
"--"
["Generate Configuration" vhdl-compose-configuration t]
["Generate Components Package" vhdl-compose-components-package t])
("Subprogram"
["Copy" vhdl-subprog-copy t]
"--"
["Paste As Declaration" vhdl-subprog-paste-declaration vhdl-subprog-list]
["Paste As Body" vhdl-subprog-paste-body vhdl-subprog-list]
["Paste As Call" vhdl-subprog-paste-call vhdl-subprog-list]
"--"
["Flatten" vhdl-subprog-flatten
:style toggle :selected vhdl-subprog-flattened :active vhdl-subprog-list])
"--"
("Comment"
["(Un)Comment Out Region" vhdl-comment-uncomment-region (mark)]
"--"
["Insert Inline Comment" vhdl-comment-append-inline t]
["Insert Horizontal Line" vhdl-comment-display-line t]
["Insert Display Comment" vhdl-comment-display t]
"--"
["Fill Comment" fill-paragraph t]
["Fill Comment Region" fill-region (mark)]
["Kill Comment Region" vhdl-comment-kill-region (mark)]
["Kill Inline Comment Region" vhdl-comment-kill-inline-region (mark)])
("Line"
["Kill" vhdl-line-kill t]
["Copy" vhdl-line-copy t]
["Yank" vhdl-line-yank t]
["Expand" vhdl-line-expand t]
"--"
["Transpose Next" vhdl-line-transpose-next t]
["Transpose Prev" vhdl-line-transpose-previous t]
["Open" vhdl-line-open t]
["Join" vhdl-delete-indentation t]
"--"
["Goto" goto-line t]
["(Un)Comment Out" vhdl-comment-uncomment-line t])
("Move"
["Forward Statement" vhdl-end-of-statement t]
["Backward Statement" vhdl-beginning-of-statement t]
["Forward Expression" vhdl-forward-sexp t]
["Backward Expression" vhdl-backward-sexp t]
["Forward Same Indent" vhdl-forward-same-indent t]
["Backward Same Indent" vhdl-backward-same-indent t]
["Forward Function" vhdl-end-of-defun t]
["Backward Function" vhdl-beginning-of-defun t]
["Mark Function" vhdl-mark-defun t])
"--"
("Indent"
["Line" indent-according-to-mode :keys "C-c C-i C-l"]
["Group" vhdl-indent-group :keys "C-c C-i C-g"]
["Region" indent-region (mark)]
["Buffer" vhdl-indent-buffer :keys "C-c C-i C-b"])
("Align"
["Group" vhdl-align-group t]
["Same Indent" vhdl-align-same-indent :keys "C-c C-a C-i"]
["List" vhdl-align-list t]
["Declarations" vhdl-align-declarations t]
["Region" vhdl-align-region (mark)]
["Buffer" vhdl-align-buffer t]
"--"
["Inline Comment Group" vhdl-align-inline-comment-group t]
["Inline Comment Region" vhdl-align-inline-comment-region (mark)]
["Inline Comment Buffer" vhdl-align-inline-comment-buffer t])
("Fill"
["List" vhdl-fill-list t]
["Group" vhdl-fill-group t]
["Same Indent" vhdl-fill-same-indent :keys "C-c C-f C-i"]
["Region" vhdl-fill-region (mark)])
("Beautify"
["Region" vhdl-beautify-region (mark)]
["Buffer" vhdl-beautify-buffer t])
("Fix"
["Generic/Port Clause" vhdl-fix-clause t]
["Generic/Port Clause Buffer" vhdl-fix-clause t]
"--"
["Case Region" vhdl-fix-case-region (mark)]
["Case Buffer" vhdl-fix-case-buffer t]
"--"
["Whitespace Region" vhdl-fixup-whitespace-region (mark)]
["Whitespace Buffer" vhdl-fixup-whitespace-buffer t]
"--"
["Statement Region" vhdl-fix-statement-region (mark)]
["Statement Buffer" vhdl-fix-statement-buffer t]
"--"
["Trailing Spaces Buffer" vhdl-remove-trailing-spaces t])
("Update"
["Sensitivity List" vhdl-update-sensitivity-list-process t]
["Sensitivity List Buffer" vhdl-update-sensitivity-list-buffer t])
"--"
["Fontify Buffer" vhdl-fontify-buffer t]
["Statistics Buffer" vhdl-statistics-buffer t]
["Show Messages" vhdl-show-messages t]
["Syntactic Info" vhdl-show-syntactic-information t]
"--"
["Speedbar" vhdl-speedbar t]
["Hide/Show" vhdl-hs-minor-mode t]
"--"
("Documentation"
["VHDL Mode" vhdl-doc-mode :keys "C-c C-h"]
["Release Notes" (vhdl-doc-variable 'vhdl-doc-release-notes) t]
["Reserved Words" (vhdl-doc-variable 'vhdl-doc-keywords) t]
["Coding Style" (vhdl-doc-variable 'vhdl-doc-coding-style) t])
["Version" vhdl-version t]
["Bug Report..." vhdl-submit-bug-report t]
"--"
("Options"
("Mode"
["Electric Mode"
(progn (customize-set-variable 'vhdl-electric-mode
(not vhdl-electric-mode))
(vhdl-mode-line-update))
:style toggle :selected vhdl-electric-mode :keys "C-c C-m C-e"]
["Stutter Mode"
(progn (customize-set-variable 'vhdl-stutter-mode
(not vhdl-stutter-mode))
(vhdl-mode-line-update))
:style toggle :selected vhdl-stutter-mode :keys "C-c C-m C-s"]
["Indent Tabs Mode"
(progn (customize-set-variable 'vhdl-indent-tabs-mode
(not vhdl-indent-tabs-mode))
(setq indent-tabs-mode vhdl-indent-tabs-mode))
:style toggle :selected vhdl-indent-tabs-mode]
"--"
["Customize Group..." (customize-group 'vhdl-mode) t])
("Project"
["Project Setup..." (customize-option 'vhdl-project-alist) t]
,(append
'("Selected Project at Startup"
["None" (progn (customize-set-variable 'vhdl-project nil)
(vhdl-set-project ""))
:style radio :selected (null vhdl-project)]
"--")
;; add menu entries for defined projects
(let ((project-alist vhdl-project-alist) menu-list name)
(while project-alist
(setq name (caar project-alist))
(setq menu-list
(cons `[,name (progn (customize-set-variable
'vhdl-project ,name)
(vhdl-set-project ,name))
:style radio :selected (equal ,name vhdl-project)]
menu-list))
(setq project-alist (cdr project-alist)))
(setq menu-list (nreverse menu-list))
(vhdl-menu-split menu-list "Project")))
["Setup File Name..." (customize-option 'vhdl-project-file-name) t]
("Auto Load Setup File"
["At Startup"
(customize-set-variable 'vhdl-project-autoload
(if (memq 'startup vhdl-project-autoload)
(delq 'startup vhdl-project-autoload)
(cons 'startup vhdl-project-autoload)))
:style toggle :selected (memq 'startup vhdl-project-autoload)])
["Sort Projects"
(customize-set-variable 'vhdl-project-sort (not vhdl-project-sort))
:style toggle :selected vhdl-project-sort]
"--"
["Customize Group..." (customize-group 'vhdl-project) t])
("Compiler"
["Compiler Setup..." (customize-option 'vhdl-compiler-alist) t]
,(append
'("Selected Compiler at Startup")
;; add menu entries for defined compilers
(let ((comp-alist vhdl-compiler-alist) menu-list name)
(while comp-alist
(setq name (caar comp-alist))
(setq menu-list
(cons `[,name (customize-set-variable 'vhdl-compiler ,name)
:style radio :selected (equal ,name vhdl-compiler)]
menu-list))
(setq comp-alist (cdr comp-alist)))
(setq menu-list (nreverse menu-list))
(vhdl-menu-split menu-list "Compiler")))
["Use Local Error Regexp"
(customize-set-variable 'vhdl-compile-use-local-error-regexp
(not vhdl-compile-use-local-error-regexp))
:style toggle :selected vhdl-compile-use-local-error-regexp]
["Makefile Default Targets..."
(customize-option 'vhdl-makefile-default-targets) t]
["Makefile Generation Hook..."
(customize-option 'vhdl-makefile-generation-hook) t]
["Default Library Name" (customize-option 'vhdl-default-library) t]
"--"
["Customize Group..." (customize-group 'vhdl-compiler) t])
("Style"
("VHDL Standard"
["VHDL'87"
(progn (customize-set-variable 'vhdl-standard
(list '87 (cadr vhdl-standard)))
(vhdl-activate-customizations))
:style radio :selected (eq '87 (car vhdl-standard))]
["VHDL'93/02"
(progn (customize-set-variable 'vhdl-standard
(list '93 (cadr vhdl-standard)))
(vhdl-activate-customizations))
:style radio :selected (eq '93 (car vhdl-standard))]
["VHDL'08"
(progn (customize-set-variable 'vhdl-standard
(list '08 (cadr vhdl-standard)))
(vhdl-activate-customizations))
:style radio :selected (eq '08 (car vhdl-standard))]
"--"
["VHDL-AMS"
(progn (customize-set-variable
'vhdl-standard (list (car vhdl-standard)
(if (memq 'ams (cadr vhdl-standard))
(delq 'ams (cadr vhdl-standard))
(cons 'ams (cadr vhdl-standard)))))
(vhdl-activate-customizations))
:style toggle :selected (memq 'ams (cadr vhdl-standard))]
["Math Packages"
(progn (customize-set-variable
'vhdl-standard (list (car vhdl-standard)
(if (memq 'math (cadr vhdl-standard))
(delq 'math (cadr vhdl-standard))
(cons 'math (cadr vhdl-standard)))))
(vhdl-activate-customizations))
:style toggle :selected (memq 'math (cadr vhdl-standard))])
["Indentation Offset..." (customize-option 'vhdl-basic-offset) t]
["Upper Case Keywords"
(customize-set-variable 'vhdl-upper-case-keywords
(not vhdl-upper-case-keywords))
:style toggle :selected vhdl-upper-case-keywords]
["Upper Case Types"
(customize-set-variable 'vhdl-upper-case-types
(not vhdl-upper-case-types))
:style toggle :selected vhdl-upper-case-types]
["Upper Case Attributes"
(customize-set-variable 'vhdl-upper-case-attributes
(not vhdl-upper-case-attributes))
:style toggle :selected vhdl-upper-case-attributes]
["Upper Case Enumeration Values"
(customize-set-variable 'vhdl-upper-case-enum-values
(not vhdl-upper-case-enum-values))
:style toggle :selected vhdl-upper-case-enum-values]
["Upper Case Constants"
(customize-set-variable 'vhdl-upper-case-constants
(not vhdl-upper-case-constants))
:style toggle :selected vhdl-upper-case-constants]
("Use Direct Instantiation"
["Never"
(customize-set-variable 'vhdl-use-direct-instantiation 'never)
:style radio :selected (eq 'never vhdl-use-direct-instantiation)]
["Standard"
(customize-set-variable 'vhdl-use-direct-instantiation 'standard)
:style radio :selected (eq 'standard vhdl-use-direct-instantiation)]
["Always"
(customize-set-variable 'vhdl-use-direct-instantiation 'always)
:style radio :selected (eq 'always vhdl-use-direct-instantiation)])
["Include Array Index and Record Field in Sensitivity List"
(customize-set-variable 'vhdl-array-index-record-field-in-sensitivity-list
(not vhdl-array-index-record-field-in-sensitivity-list))
:style toggle :selected vhdl-array-index-record-field-in-sensitivity-list]
"--"
["Customize Group..." (customize-group 'vhdl-style) t])
("Naming"
["Entity File Name..." (customize-option 'vhdl-entity-file-name) t]
["Architecture File Name..."
(customize-option 'vhdl-architecture-file-name) t]
["Configuration File Name..."
(customize-option 'vhdl-configuration-file-name) t]
["Package File Name..." (customize-option 'vhdl-package-file-name) t]
("File Name Case"
["As Is"
(customize-set-variable 'vhdl-file-name-case 'identity)
:style radio :selected (eq 'identity vhdl-file-name-case)]
["Lower Case"
(customize-set-variable 'vhdl-file-name-case 'downcase)
:style radio :selected (eq 'downcase vhdl-file-name-case)]
["Upper Case"
(customize-set-variable 'vhdl-file-name-case 'upcase)
:style radio :selected (eq 'upcase vhdl-file-name-case)]
["Capitalize"
(customize-set-variable 'vhdl-file-name-case 'capitalize)
:style radio :selected (eq 'capitalize vhdl-file-name-case)])
"--"
["Customize Group..." (customize-group 'vhdl-naming) t])
("Template"
("Electric Keywords"
["VHDL Keywords"
(customize-set-variable 'vhdl-electric-keywords
(if (memq 'vhdl vhdl-electric-keywords)
(delq 'vhdl vhdl-electric-keywords)
(cons 'vhdl vhdl-electric-keywords)))
:style toggle :selected (memq 'vhdl vhdl-electric-keywords)]
["User Model Keywords"
(customize-set-variable 'vhdl-electric-keywords
(if (memq 'user vhdl-electric-keywords)
(delq 'user vhdl-electric-keywords)
(cons 'user vhdl-electric-keywords)))
:style toggle :selected (memq 'user vhdl-electric-keywords)])
("Insert Optional Labels"
["None"
(customize-set-variable 'vhdl-optional-labels 'none)
:style radio :selected (eq 'none vhdl-optional-labels)]
["Processes Only"
(customize-set-variable 'vhdl-optional-labels 'process)
:style radio :selected (eq 'process vhdl-optional-labels)]
["All Constructs"
(customize-set-variable 'vhdl-optional-labels 'all)
:style radio :selected (eq 'all vhdl-optional-labels)])
("Insert Empty Lines"
["None"
(customize-set-variable 'vhdl-insert-empty-lines 'none)
:style radio :selected (eq 'none vhdl-insert-empty-lines)]
["Design Units Only"
(customize-set-variable 'vhdl-insert-empty-lines 'unit)
:style radio :selected (eq 'unit vhdl-insert-empty-lines)]
["All Constructs"
(customize-set-variable 'vhdl-insert-empty-lines 'all)
:style radio :selected (eq 'all vhdl-insert-empty-lines)])
["Argument List Indent"
(customize-set-variable 'vhdl-argument-list-indent
(not vhdl-argument-list-indent))
:style toggle :selected vhdl-argument-list-indent]
["Association List with Formals"
(customize-set-variable 'vhdl-association-list-with-formals
(not vhdl-association-list-with-formals))
:style toggle :selected vhdl-association-list-with-formals]
["Conditions in Parenthesis"
(customize-set-variable 'vhdl-conditions-in-parenthesis
(not vhdl-conditions-in-parenthesis))
:style toggle :selected vhdl-conditions-in-parenthesis]
["Sensitivity List uses 'all'"
(customize-set-variable 'vhdl-sensitivity-list-all
(not vhdl-sensitivity-list-all))
:style toggle :selected vhdl-sensitivity-list-all]
["Zero String..." (customize-option 'vhdl-zero-string) t]
["One String..." (customize-option 'vhdl-one-string) t]
("File Header"
["Header String..." (customize-option 'vhdl-file-header) t]
["Footer String..." (customize-option 'vhdl-file-footer) t]
["Company Name..." (customize-option 'vhdl-company-name) t]
["Copyright String..." (customize-option 'vhdl-copyright-string) t]
["Platform Specification..." (customize-option 'vhdl-platform-spec) t]
["Date Format..." (customize-option 'vhdl-date-format) t]
["Modify Date Prefix String..."
(customize-option 'vhdl-modify-date-prefix-string) t]
["Modify Date on Saving"
(progn (customize-set-variable 'vhdl-modify-date-on-saving
(not vhdl-modify-date-on-saving))
(vhdl-activate-customizations))
:style toggle :selected vhdl-modify-date-on-saving])
("Sequential Process"
("Kind of Reset"
["None"
(customize-set-variable 'vhdl-reset-kind 'none)
:style radio :selected (eq 'none vhdl-reset-kind)]
["Synchronous"
(customize-set-variable 'vhdl-reset-kind 'sync)
:style radio :selected (eq 'sync vhdl-reset-kind)]
["Asynchronous"
(customize-set-variable 'vhdl-reset-kind 'async)
:style radio :selected (eq 'async vhdl-reset-kind)]
["Query"
(customize-set-variable 'vhdl-reset-kind 'query)
:style radio :selected (eq 'query vhdl-reset-kind)])
["Reset is Active High"
(customize-set-variable 'vhdl-reset-active-high
(not vhdl-reset-active-high))
:style toggle :selected vhdl-reset-active-high]
["Use Rising Clock Edge"
(customize-set-variable 'vhdl-clock-rising-edge
(not vhdl-clock-rising-edge))
:style toggle :selected vhdl-clock-rising-edge]
("Clock Edge Condition"
["Standard"
(customize-set-variable 'vhdl-clock-edge-condition 'standard)
:style radio :selected (eq 'standard vhdl-clock-edge-condition)]
["Function \"rising_edge\""
(customize-set-variable 'vhdl-clock-edge-condition 'function)
:style radio :selected (eq 'function vhdl-clock-edge-condition)])
["Clock Name..." (customize-option 'vhdl-clock-name) t]
["Reset Name..." (customize-option 'vhdl-reset-name) t])
"--"
["Customize Group..." (customize-group 'vhdl-template) t])
("Model"
["Model Definition..." (customize-option 'vhdl-model-alist) t])
("Port"
["Include Port Comments"
(customize-set-variable 'vhdl-include-port-comments
(not vhdl-include-port-comments))
:style toggle :selected vhdl-include-port-comments]
["Include Direction Comments"
(customize-set-variable 'vhdl-include-direction-comments
(not vhdl-include-direction-comments))
:style toggle :selected vhdl-include-direction-comments]
["Include Type Comments"
(customize-set-variable 'vhdl-include-type-comments
(not vhdl-include-type-comments))
:style toggle :selected vhdl-include-type-comments]
("Include Group Comments"
["Never"
(customize-set-variable 'vhdl-include-group-comments 'never)
:style radio :selected (eq 'never vhdl-include-group-comments)]
["Declarations"
(customize-set-variable 'vhdl-include-group-comments 'decl)
:style radio :selected (eq 'decl vhdl-include-group-comments)]
["Always"
(customize-set-variable 'vhdl-include-group-comments 'always)
:style radio :selected (eq 'always vhdl-include-group-comments)])
["Actual Generic Name..." (customize-option 'vhdl-actual-generic-name) t]
["Actual Port Name..." (customize-option 'vhdl-actual-port-name) t]
["Instance Name..." (customize-option 'vhdl-instance-name) t]
("Testbench"
["Entity Name..." (customize-option 'vhdl-testbench-entity-name) t]
["Architecture Name..."
(customize-option 'vhdl-testbench-architecture-name) t]
["Configuration Name..."
(customize-option 'vhdl-testbench-configuration-name) t]
["DUT Name..." (customize-option 'vhdl-testbench-dut-name) t]
["Include Header"
(customize-set-variable 'vhdl-testbench-include-header
(not vhdl-testbench-include-header))
:style toggle :selected vhdl-testbench-include-header]
["Declarations..." (customize-option 'vhdl-testbench-declarations) t]
["Statements..." (customize-option 'vhdl-testbench-statements) t]
["Initialize Signals"
(customize-set-variable 'vhdl-testbench-initialize-signals
(not vhdl-testbench-initialize-signals))
:style toggle :selected vhdl-testbench-initialize-signals]
["Include Library Clause"
(customize-set-variable 'vhdl-testbench-include-library
(not vhdl-testbench-include-library))
:style toggle :selected vhdl-testbench-include-library]
["Include Configuration"
(customize-set-variable 'vhdl-testbench-include-configuration
(not vhdl-testbench-include-configuration))
:style toggle :selected vhdl-testbench-include-configuration]
("Create Files"
["None"
(customize-set-variable 'vhdl-testbench-create-files 'none)
:style radio :selected (eq 'none vhdl-testbench-create-files)]
["Single"
(customize-set-variable 'vhdl-testbench-create-files 'single)
:style radio :selected (eq 'single vhdl-testbench-create-files)]
["Separate"
(customize-set-variable 'vhdl-testbench-create-files 'separate)
:style radio :selected (eq 'separate vhdl-testbench-create-files)])
["Testbench Entity File Name..."
(customize-option 'vhdl-testbench-entity-file-name) t]
["Testbench Architecture File Name..."
(customize-option 'vhdl-testbench-architecture-file-name) t])
"--"
["Customize Group..." (customize-group 'vhdl-port) t])
("Compose"
["Architecture Name..."
(customize-option 'vhdl-compose-architecture-name) t]
["Configuration Name..."
(customize-option 'vhdl-compose-configuration-name) t]
["Components Package Name..."
(customize-option 'vhdl-components-package-name) t]
["Use Components Package"
(customize-set-variable 'vhdl-use-components-package
(not vhdl-use-components-package))
:style toggle :selected vhdl-use-components-package]
["Include Header"
(customize-set-variable 'vhdl-compose-include-header
(not vhdl-compose-include-header))
:style toggle :selected vhdl-compose-include-header]
("Create Entity/Architecture Files"
["None"
(customize-set-variable 'vhdl-compose-create-files 'none)
:style radio :selected (eq 'none vhdl-compose-create-files)]
["Single"
(customize-set-variable 'vhdl-compose-create-files 'single)
:style radio :selected (eq 'single vhdl-compose-create-files)]
["Separate"
(customize-set-variable 'vhdl-compose-create-files 'separate)
:style radio :selected (eq 'separate vhdl-compose-create-files)])
["Create Configuration File"
(customize-set-variable 'vhdl-compose-configuration-create-file
(not vhdl-compose-configuration-create-file))
:style toggle :selected vhdl-compose-configuration-create-file]
["Hierarchical Configuration"
(customize-set-variable 'vhdl-compose-configuration-hierarchical
(not vhdl-compose-configuration-hierarchical))
:style toggle :selected vhdl-compose-configuration-hierarchical]
["Use Subconfiguration"
(customize-set-variable 'vhdl-compose-configuration-use-subconfiguration
(not vhdl-compose-configuration-use-subconfiguration))
:style toggle :selected vhdl-compose-configuration-use-subconfiguration]
"--"
["Customize Group..." (customize-group 'vhdl-compose) t])
("Comment"
["Self Insert Comments"
(customize-set-variable 'vhdl-self-insert-comments
(not vhdl-self-insert-comments))
:style toggle :selected vhdl-self-insert-comments]
["Prompt for Comments"
(customize-set-variable 'vhdl-prompt-for-comments
(not vhdl-prompt-for-comments))
:style toggle :selected vhdl-prompt-for-comments]
["Inline Comment Column..."
(customize-option 'vhdl-inline-comment-column) t]
["End Comment Column..." (customize-option 'vhdl-end-comment-column) t]
"--"
["Customize Group..." (customize-group 'vhdl-comment) t])
("Beautify"
["Auto Align Templates"
(customize-set-variable 'vhdl-auto-align (not vhdl-auto-align))
:style toggle :selected vhdl-auto-align]
["Align Line Groups"
(customize-set-variable 'vhdl-align-groups (not vhdl-align-groups))
:style toggle :selected vhdl-align-groups]
["Group Separation String..."
(customize-option 'vhdl-align-group-separate) t]
["Align Lines with Same Indent"
(customize-set-variable 'vhdl-align-same-indent
(not vhdl-align-same-indent))
:style toggle :selected vhdl-align-same-indent]
["Beautify Options..." (customize-option 'vhdl-beautify-options) t]
"--"
["Customize Group..." (customize-group 'vhdl-beautify) t])
("Highlight"
["Highlighting On/Off..."
(customize-option
(if (fboundp 'global-font-lock-mode)
'global-font-lock-mode 'font-lock-auto-fontify)) t]
["Highlight Keywords"
(progn (customize-set-variable 'vhdl-highlight-keywords
(not vhdl-highlight-keywords))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-keywords]
["Highlight Names"
(progn (customize-set-variable 'vhdl-highlight-names
(not vhdl-highlight-names))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-names]
["Highlight Special Words"
(progn (customize-set-variable 'vhdl-highlight-special-words
(not vhdl-highlight-special-words))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-special-words]
["Highlight Forbidden Words"
(progn (customize-set-variable 'vhdl-highlight-forbidden-words
(not vhdl-highlight-forbidden-words))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-forbidden-words]
["Highlight Verilog Keywords"
(progn (customize-set-variable 'vhdl-highlight-verilog-keywords
(not vhdl-highlight-verilog-keywords))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-verilog-keywords]
["Highlight \"translate_off\""
(progn (customize-set-variable 'vhdl-highlight-translate-off
(not vhdl-highlight-translate-off))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-translate-off]
["Case Sensitive Highlighting"
(progn (customize-set-variable 'vhdl-highlight-case-sensitive
(not vhdl-highlight-case-sensitive))
(vhdl-fontify-buffer))
:style toggle :selected vhdl-highlight-case-sensitive]
["Special Syntax Definition..."
(customize-option 'vhdl-special-syntax-alist) t]
["Forbidden Words..." (customize-option 'vhdl-forbidden-words) t]
["Forbidden Syntax..." (customize-option 'vhdl-forbidden-syntax) t]
["Directive Keywords..." (customize-option 'vhdl-directive-keywords) t]
["Colors..." (customize-group 'vhdl-highlight-faces) t]
"--"
["Customize Group..." (customize-group 'vhdl-highlight) t])
("Speedbar"
["Auto Open at Startup"
(customize-set-variable 'vhdl-speedbar-auto-open
(not vhdl-speedbar-auto-open))
:style toggle :selected vhdl-speedbar-auto-open]
("Default Displaying Mode"
["Files"
(customize-set-variable 'vhdl-speedbar-display-mode 'files)
:style radio :selected (eq 'files vhdl-speedbar-display-mode)]
["Directory Hierarchy"
(customize-set-variable 'vhdl-speedbar-display-mode 'directory)
:style radio :selected (eq 'directory vhdl-speedbar-display-mode)]
["Project Hierarchy"
(customize-set-variable 'vhdl-speedbar-display-mode 'project)
:style radio :selected (eq 'project vhdl-speedbar-display-mode)])
["Indentation Offset..."
(customize-option 'speedbar-indentation-width) t]
["Scan Size Limits..." (customize-option 'vhdl-speedbar-scan-limit) t]
["Jump to Unit when Opening"
(customize-set-variable 'vhdl-speedbar-jump-to-unit
(not vhdl-speedbar-jump-to-unit))
:style toggle :selected vhdl-speedbar-jump-to-unit]
["Update Hierarchy on File Saving"
(customize-set-variable 'vhdl-speedbar-update-on-saving
(not vhdl-speedbar-update-on-saving))
:style toggle :selected vhdl-speedbar-update-on-saving]
("Save in Cache File"
["Hierarchy Information"
(customize-set-variable 'vhdl-speedbar-save-cache
(if (memq 'hierarchy vhdl-speedbar-save-cache)
(delq 'hierarchy vhdl-speedbar-save-cache)
(cons 'hierarchy vhdl-speedbar-save-cache)))
:style toggle :selected (memq 'hierarchy vhdl-speedbar-save-cache)]
["Displaying Status"
(customize-set-variable 'vhdl-speedbar-save-cache
(if (memq 'display vhdl-speedbar-save-cache)
(delq 'display vhdl-speedbar-save-cache)
(cons 'display vhdl-speedbar-save-cache)))
:style toggle :selected (memq 'display vhdl-speedbar-save-cache)])
["Cache File Name..."
(customize-option 'vhdl-speedbar-cache-file-name) t]
"--"
["Customize Group..." (customize-group 'vhdl-speedbar) t])
("Menu"
["Add Index Menu when Loading File"
(progn (customize-set-variable 'vhdl-index-menu (not vhdl-index-menu))
(vhdl-index-menu-init))
:style toggle :selected vhdl-index-menu]
["Add Source File Menu when Loading File"
(progn (customize-set-variable 'vhdl-source-file-menu
(not vhdl-source-file-menu))
(vhdl-add-source-files-menu))
:style toggle :selected vhdl-source-file-menu]
["Add Hideshow Menu at Startup"
(progn (customize-set-variable 'vhdl-hideshow-menu
(not vhdl-hideshow-menu))
(vhdl-activate-customizations))
:style toggle :selected vhdl-hideshow-menu]
["Hide Everything Initially"
(customize-set-variable 'vhdl-hide-all-init (not vhdl-hide-all-init))
:style toggle :selected vhdl-hide-all-init]
"--"
["Customize Group..." (customize-group 'vhdl-menu) t])
("Print"
["In Two Column Format"
(progn (customize-set-variable 'vhdl-print-two-column
(not vhdl-print-two-column))
(message "Activate new setting by saving options and restarting Emacs"))
:style toggle :selected vhdl-print-two-column]
["Use Customized Faces"
(progn (customize-set-variable 'vhdl-print-customize-faces
(not vhdl-print-customize-faces))
(message "Activate new setting by saving options and restarting Emacs"))
:style toggle :selected vhdl-print-customize-faces]
"--"
["Customize Group..." (customize-group 'vhdl-print) t])
("Miscellaneous"
["Use Intelligent Tab"
(progn (customize-set-variable 'vhdl-intelligent-tab
(not vhdl-intelligent-tab))
(vhdl-activate-customizations))
:style toggle :selected vhdl-intelligent-tab]
["Indent Syntax-Based"
(customize-set-variable 'vhdl-indent-syntax-based
(not vhdl-indent-syntax-based))
:style toggle :selected vhdl-indent-syntax-based]
["Indent Comments Like Next Code Line"
(customize-set-variable 'vhdl-indent-comment-like-next-code-line
(not vhdl-indent-comment-like-next-code-line))
:style toggle :selected vhdl-indent-comment-like-next-code-line]
["Word Completion is Case Sensitive"
(customize-set-variable 'vhdl-word-completion-case-sensitive
(not vhdl-word-completion-case-sensitive))
:style toggle :selected vhdl-word-completion-case-sensitive]
["Word Completion in Minibuffer"
(progn (customize-set-variable 'vhdl-word-completion-in-minibuffer
(not vhdl-word-completion-in-minibuffer))
(message "Activate new setting by saving options and restarting Emacs"))
:style toggle :selected vhdl-word-completion-in-minibuffer]
["Underscore is Part of Word"
(progn (customize-set-variable 'vhdl-underscore-is-part-of-word
(not vhdl-underscore-is-part-of-word))
(vhdl-activate-customizations))
:style toggle :selected vhdl-underscore-is-part-of-word]
"--"
["Customize Group..." (customize-group 'vhdl-misc) t])
["Related..." (customize-browse 'vhdl-related) t]
"--"
["Save Options" customize-save-customized t]
["Activate Options" vhdl-activate-customizations t]
["Browse Options..." vhdl-customize t])))