Function: vhdl-mode-map-init

vhdl-mode-map-init is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-mode-map-init)

Documentation

Initialize vhdl-mode-map.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-mode-map-init ()
  "Initialize `vhdl-mode-map'."
  (setq vhdl-mode-map (make-sparse-keymap))
  ;; template key bindings
  (define-key vhdl-mode-map "\C-c\C-t"	   vhdl-template-map)
  ;; model key bindings
  (define-key vhdl-mode-map "\C-c\C-m"	   vhdl-model-map)
  ;; standard key bindings
  (define-key vhdl-mode-map "\M-a"	   #'vhdl-beginning-of-statement)
  (define-key vhdl-mode-map "\M-e"	   #'vhdl-end-of-statement)
  (define-key vhdl-mode-map "\M-\C-f"	   #'vhdl-forward-sexp)
  (define-key vhdl-mode-map "\M-\C-b"	   #'vhdl-backward-sexp)
  (define-key vhdl-mode-map "\M-\C-u"	   #'vhdl-backward-up-list)
  (define-key vhdl-mode-map "\M-\C-a"	   #'vhdl-backward-same-indent)
  (define-key vhdl-mode-map "\M-\C-e"	   #'vhdl-forward-same-indent)
  (unless (featurep 'xemacs) ; would override `M-backspace' in XEmacs
    (define-key vhdl-mode-map "\M-\C-h"	   #'vhdl-mark-defun))
  (define-key vhdl-mode-map "\M-\C-q"	   #'vhdl-indent-sexp)
  (define-key vhdl-mode-map "\M-^"	   #'vhdl-delete-indentation)
  ;; mode specific key bindings
  (define-key vhdl-mode-map "\C-c\C-m\C-e" #'vhdl-electric-mode)
  (define-key vhdl-mode-map "\C-c\C-m\C-s" #'vhdl-stutter-mode)
  (define-key vhdl-mode-map "\C-c\C-s\C-p" #'vhdl-set-project)
  (define-key vhdl-mode-map "\C-c\C-p\C-d" #'vhdl-duplicate-project)
  (define-key vhdl-mode-map "\C-c\C-p\C-m" #'vhdl-import-project)
  (define-key vhdl-mode-map "\C-c\C-p\C-x" #'vhdl-export-project)
  (define-key vhdl-mode-map "\C-c\C-s\C-k" #'vhdl-set-compiler)
  (define-key vhdl-mode-map "\C-c\C-k"	   #'vhdl-compile)
  (define-key vhdl-mode-map "\C-c\M-\C-k"  #'vhdl-make)
  (define-key vhdl-mode-map "\C-c\M-k"	   #'vhdl-generate-makefile)
  (define-key vhdl-mode-map "\C-c\C-p\C-w" #'vhdl-port-copy)
  (define-key vhdl-mode-map "\C-c\C-p\M-w" #'vhdl-port-copy)
  (define-key vhdl-mode-map "\C-c\C-p\C-e" #'vhdl-port-paste-entity)
  (define-key vhdl-mode-map "\C-c\C-p\C-c" #'vhdl-port-paste-component)
  (define-key vhdl-mode-map "\C-c\C-p\C-i" #'vhdl-port-paste-instance)
  (define-key vhdl-mode-map "\C-c\C-p\C-s" #'vhdl-port-paste-signals)
  (define-key vhdl-mode-map "\C-c\C-p\M-c" #'vhdl-port-paste-constants)
  (define-key vhdl-mode-map
    ;; `... C-g' not allowed in XEmacs.
    (if (featurep 'xemacs) "\C-c\C-p\M-g" "\C-c\C-p\C-g")
    #'vhdl-port-paste-generic-map)
  (define-key vhdl-mode-map "\C-c\C-p\C-z" #'vhdl-port-paste-initializations)
  (define-key vhdl-mode-map "\C-c\C-p\C-t" #'vhdl-port-paste-testbench)
  (define-key vhdl-mode-map "\C-c\C-p\C-f" #'vhdl-port-flatten)
  (define-key vhdl-mode-map "\C-c\C-p\C-r" #'vhdl-port-reverse-direction)
  (define-key vhdl-mode-map "\C-c\C-s\C-w" #'vhdl-subprog-copy)
  (define-key vhdl-mode-map "\C-c\C-s\M-w" #'vhdl-subprog-copy)
  (define-key vhdl-mode-map "\C-c\C-s\C-d" #'vhdl-subprog-paste-declaration)
  (define-key vhdl-mode-map "\C-c\C-s\C-b" #'vhdl-subprog-paste-body)
  (define-key vhdl-mode-map "\C-c\C-s\C-c" #'vhdl-subprog-paste-call)
  (define-key vhdl-mode-map "\C-c\C-s\C-f" #'vhdl-subprog-flatten)
  (define-key vhdl-mode-map "\C-c\C-m\C-n" #'vhdl-compose-new-component)
  (define-key vhdl-mode-map "\C-c\C-m\C-p" #'vhdl-compose-place-component)
  (define-key vhdl-mode-map "\C-c\C-m\C-w" #'vhdl-compose-wire-components)
  (define-key vhdl-mode-map "\C-c\C-m\C-f" #'vhdl-compose-configuration)
  (define-key vhdl-mode-map "\C-c\C-m\C-k" #'vhdl-compose-components-package)
  (define-key vhdl-mode-map "\C-c\C-c"	   #'vhdl-comment-uncomment-region)
  (define-key vhdl-mode-map "\C-c-"	   #'vhdl-comment-append-inline)
  (define-key vhdl-mode-map "\C-c\M--"	   #'vhdl-comment-display-line)
  (define-key vhdl-mode-map "\C-c\C-i\C-l" #'indent-according-to-mode)
  (define-key vhdl-mode-map "\C-c\C-i\C-g" #'vhdl-indent-group)
  (define-key vhdl-mode-map "\M-\C-\\"	   #'indent-region)
  (define-key vhdl-mode-map "\C-c\C-i\C-b" #'vhdl-indent-buffer)
  (define-key vhdl-mode-map "\C-c\C-a\C-g" #'vhdl-align-group)
  (define-key vhdl-mode-map "\C-c\C-a\C-a" #'vhdl-align-group)
  (define-key vhdl-mode-map "\C-c\C-a\C-i" #'vhdl-align-same-indent)
  (define-key vhdl-mode-map "\C-c\C-a\C-l" #'vhdl-align-list)
  (define-key vhdl-mode-map "\C-c\C-a\C-d" #'vhdl-align-declarations)
  (define-key vhdl-mode-map "\C-c\C-a\M-a" #'vhdl-align-region)
  (define-key vhdl-mode-map "\C-c\C-a\C-b" #'vhdl-align-buffer)
  (define-key vhdl-mode-map "\C-c\C-a\C-c" #'vhdl-align-inline-comment-group)
  (define-key vhdl-mode-map "\C-c\C-a\M-c" #'vhdl-align-inline-comment-region)
  (define-key vhdl-mode-map "\C-c\C-f\C-l" #'vhdl-fill-list)
  (define-key vhdl-mode-map "\C-c\C-f\C-f" #'vhdl-fill-list)
  (define-key vhdl-mode-map "\C-c\C-f\C-g" #'vhdl-fill-group)
  (define-key vhdl-mode-map "\C-c\C-f\C-i" #'vhdl-fill-same-indent)
  (define-key vhdl-mode-map "\C-c\C-f\M-f" #'vhdl-fill-region)
  (define-key vhdl-mode-map "\C-c\C-l\C-w" #'vhdl-line-kill)
  (define-key vhdl-mode-map "\C-c\C-l\M-w" #'vhdl-line-copy)
  (define-key vhdl-mode-map "\C-c\C-l\C-y" #'vhdl-line-yank)
  (define-key vhdl-mode-map "\C-c\C-l\t"   #'vhdl-line-expand)
  (define-key vhdl-mode-map "\C-c\C-l\C-n" #'vhdl-line-transpose-next)
  (define-key vhdl-mode-map "\C-c\C-l\C-p" #'vhdl-line-transpose-previous)
  (define-key vhdl-mode-map "\C-c\C-l\C-o" #'vhdl-line-open)
  (define-key vhdl-mode-map "\C-c\C-l\C-g" #'goto-line)
  (define-key vhdl-mode-map "\C-c\C-l\C-c" #'vhdl-comment-uncomment-line)
  (define-key vhdl-mode-map "\C-c\C-x\C-s" #'vhdl-fix-statement-region)
  (define-key vhdl-mode-map "\C-c\C-x\M-s" #'vhdl-fix-statement-buffer)
  (define-key vhdl-mode-map "\C-c\C-x\C-p" #'vhdl-fix-clause)
  (define-key vhdl-mode-map "\C-c\C-x\M-c" #'vhdl-fix-case-region)
  (define-key vhdl-mode-map "\C-c\C-x\C-c" #'vhdl-fix-case-buffer)
  (define-key vhdl-mode-map "\C-c\C-x\M-w" #'vhdl-fixup-whitespace-region)
  (define-key vhdl-mode-map "\C-c\C-x\C-w" #'vhdl-fixup-whitespace-buffer)
  (define-key vhdl-mode-map "\C-c\M-b"	   #'vhdl-beautify-region)
  (define-key vhdl-mode-map "\C-c\C-b"	   #'vhdl-beautify-buffer)
  (define-key vhdl-mode-map "\C-c\C-u\C-s" #'vhdl-update-sensitivity-list-process)
  (define-key vhdl-mode-map "\C-c\C-u\M-s" #'vhdl-update-sensitivity-list-buffer)
  (define-key vhdl-mode-map "\C-c\C-i\C-f" #'vhdl-fontify-buffer)
  (define-key vhdl-mode-map "\C-c\C-i\C-s" #'vhdl-statistics-buffer)
  (define-key vhdl-mode-map "\C-c\M-m"	   #'vhdl-show-messages)
  (define-key vhdl-mode-map "\C-c\C-h"	   #'vhdl-doc-mode)
  (define-key vhdl-mode-map "\C-c\C-v"	   #'vhdl-version)
  (define-key vhdl-mode-map "\M-\t"	   #'insert-tab)
  ;; insert commands bindings
  (define-key vhdl-mode-map "\C-c\C-i\C-t" #'vhdl-template-insert-construct)
  (define-key vhdl-mode-map "\C-c\C-i\C-p" #'vhdl-template-insert-package)
  (define-key vhdl-mode-map "\C-c\C-i\C-d" #'vhdl-template-insert-directive)
  (define-key vhdl-mode-map "\C-c\C-i\C-m" #'vhdl-model-insert)
  ;; electric key bindings
  (define-key vhdl-mode-map " "		   #'vhdl-electric-space)
  (when vhdl-intelligent-tab
    (define-key vhdl-mode-map "\t"	   #'vhdl-electric-tab))
  (define-key vhdl-mode-map "\r"	   #'vhdl-electric-return)
  (define-key vhdl-mode-map "-"		   #'vhdl-electric-dash)
  (define-key vhdl-mode-map "["		   #'vhdl-electric-open-bracket)
  (define-key vhdl-mode-map "]"		   #'vhdl-electric-close-bracket)
  (define-key vhdl-mode-map "'"		   #'vhdl-electric-quote)
  (define-key vhdl-mode-map ";"		   #'vhdl-electric-semicolon)
  (define-key vhdl-mode-map ","		   #'vhdl-electric-comma)
  (define-key vhdl-mode-map "."		   #'vhdl-electric-period)
  (when (vhdl-standard-p 'ams)
    (define-key vhdl-mode-map "="	   #'vhdl-electric-equal)))