Lines Matching +defs:copy +defs:marker
30 ;; You should have received a copy of the GNU General Public License
1907 (defvar vhdl-offsets-alist (copy-alist vhdl-offsets-alist-default)
2089 (newstr (if inplace string (copy-sequence string))))
2497 (defun vhdl-max-marker (marker1 marker2)
2498 "Return larger marker."
2501 (defun vhdl-goto-marker (marker)
2502 "Goto marker in appropriate buffer."
2503 (when (markerp marker)
2504 (set-buffer (marker-buffer marker)))
2505 (goto-char marker))
2709 (define-key vhdl-mode-map "\C-c\C-p\C-w" 'vhdl-port-copy)
2710 (define-key vhdl-mode-map "\C-c\C-p\M-w" 'vhdl-port-copy)
2723 (define-key vhdl-mode-map "\C-c\C-s\C-w" 'vhdl-subprog-copy)
2724 (define-key vhdl-mode-map "\C-c\C-s\M-w" 'vhdl-subprog-copy)
2756 (define-key vhdl-mode-map "\C-c\C-l\M-w" 'vhdl-line-copy)
2878 (setq vhdl-mode-ext-syntax-table (copy-syntax-table vhdl-mode-syntax-table))
3362 ["Copy" vhdl-port-copy t]
3381 ["Copy Component" vhdl-port-copy t]
3388 ["Copy" vhdl-subprog-copy t]
3410 ["Copy" vhdl-line-copy t]
5310 (setq vhdl-offsets-alist (copy-alist vhdl-offsets-alist-default))
7108 (point-marker)
7109 (point-min-marker))))
7112 (point-marker)
7113 (point-max-marker)))))
7284 (setq end (point-marker))
7290 (let ((copy (copy-alist alignment-list)))
7292 (while copy
7297 (setq element (nth 0 copy))
7305 (setq copy (cdr copy))))))))
7362 (setq orig (point-marker))
7365 (setq end (point-marker))
7381 (setq pos (point-marker))
7412 (setq end (point-marker))
7566 (setq orig (point-marker))
7569 (setq end (point-marker))
7579 (setq pos (point-marker))
7597 (point-marker) (point-max)))
7625 (setq end (point-marker))
7684 (setq end (save-excursion (goto-char end) (point-marker)))
7708 (setq end (point-marker))
8011 (setq end (point-marker))
8021 (setq end (point-marker))
8793 (setq position (point-marker))
8934 (setq position (point-marker))
9124 (setq mid-pos (point-marker))
9134 (setq end-pos (point-marker))
9316 (setq final-pos (point-marker))
9608 (setq mid-pos (point-marker))
9619 (setq end-pos (point-marker))
9917 (setq pos (point-marker)))
9919 (point-min-marker) pos file-title))))
9928 (setq pos (point-marker))
9932 (vhdl-template-replace-header-keywords pos (point-max-marker)))))
10104 ; (setq position (point-marker))
10114 (let ((final-pos (point-marker)))
10137 (setq end (point-marker))
10159 (setq end (point-marker))
10172 (setq end (point-marker))
10788 (let ((start (point-marker))
10798 (setq end (point-marker))
10912 (let ((pos (point-marker)))
10982 (defun vhdl-port-copy ()
11396 ;; flatten local copy of port list (must be flat for port mapping)
11446 ;; flatten local copy of port list (must be flat for constant initial.)
11537 ;; flatten local copy of port list (must be flat for signal initial.)
11749 (defun vhdl-subprog-copy ()
11977 ;; flatten local copy of interface list (must be flat for parameter mapping)
12095 (setq end (point-marker))
12172 (defun vhdl-line-copy (&optional arg)
12179 (copy-region-as-kill position (point)))))
13717 ;; (inst-key inst-file-marker comp-ent-key comp-ent-file-marker
13718 ;; comp-arch-key comp-arch-file-marker comp-conf-key comp-conf-file-marker
14009 (define-key vhdl-speedbar-key-map "C" 'vhdl-speedbar-port-copy)
14049 ["Copy Port/Subprogram" vhdl-speedbar-port-copy
14152 (vhdl-sort-alist (copy-alist vhdl-project-alist))
14788 (setq pos (or pos (point-marker)))
14793 (defun vhdl-speedbar-make-inst-line (inst-name inst-file-marker
14794 ent-name ent-file-marker
14795 arch-name arch-file-marker
14796 conf-name conf-file-marker
14821 'vhdl-speedbar-find-file inst-file-marker))
14828 'vhdl-speedbar-find-file ent-file-marker)
14835 'vhdl-speedbar-find-file arch-file-marker)
14843 'vhdl-speedbar-find-file conf-file-marker)
14853 (defun vhdl-speedbar-make-pack-line (pack-key pack-name pack-file-marker
14854 body-file-marker depth)
14874 'vhdl-speedbar-find-file pack-file-marker)
14875 (unless (car pack-file-marker)
14877 (when (car body-file-marker)
14883 'vhdl-speedbar-find-file body-file-marker)
14888 (defun vhdl-speedbar-make-subpack-line (pack-name lib-name pack-file-marker
14889 pack-body-file-marker depth)
14907 'vhdl-speedbar-find-file pack-file-marker)
14908 (when (car pack-body-file-marker)
14914 'vhdl-speedbar-find-file pack-body-file-marker)
14923 (defun vhdl-speedbar-make-subprogram-line (func-name func-file-marker
14924 func-body-file-marker
14943 'vhdl-speedbar-find-file func-file-marker)
14944 (when (car func-body-file-marker)
14950 'vhdl-speedbar-find-file func-body-file-marker)
15175 (defun vhdl-speedbar-port-copy ()
15190 (vhdl-port-copy)
15191 (vhdl-subprog-copy)))))
15201 (vhdl-speedbar-port-copy)
15571 (arch-decl-pos (point-marker))
15609 (vhdl-port-copy)))
15620 (vhdl-port-copy))))
15695 (vhdl-goto-marker arch-decl-pos)
15698 (setq signal-pos (point-marker))
15718 (setq generic-pos (point-marker))
15726 (setq generic-beg-pos (point-marker) generic-pos (point-marker)
15727 generic-inst-pos (point-marker) generic-end-pos (point-marker))
15736 (setq port-in-pos (point-marker))
15744 (setq port-beg-pos (point-marker) port-in-pos (point-marker)
15745 port-out-pos (point-marker) port-inst-pos (point-marker)
15746 port-end-pos (point-marker))
15763 (vhdl-goto-marker generic-pos)
15765 (vhdl-max-marker
15768 (setq generic-pos (point-marker))
15771 (vhdl-goto-marker
15772 (vhdl-max-marker generic-inst-pos generic-pos))
15775 (setq generic-inst-pos (point-marker))
15779 (vhdl-goto-marker (vhdl-max-marker constant-temp-pos generic-pos))
15782 (vhdl-goto-marker generic-inst-pos))
15790 (vhdl-goto-marker port-in-pos)
15792 (vhdl-max-marker
15794 (setq port-in-pos (point-marker))
15797 (vhdl-goto-marker (vhdl-max-marker port-out-pos port-in-pos))
15799 (vhdl-max-marker
15801 (setq port-out-pos (point-marker))
15805 (vhdl-goto-marker
15806 (vhdl-max-marker
15808 (vhdl-max-marker port-out-pos port-in-pos)))
15810 (setq port-inst-pos (point-marker))
15813 (vhdl-goto-marker signal-pos)
15815 (setq signal-pos (point-marker))
15819 (vhdl-goto-marker
15820 (vhdl-max-marker port-temp-pos
15821 (vhdl-max-marker port-in-pos port-out-pos)))
15824 (vhdl-goto-marker port-inst-pos))
15826 (vhdl-goto-marker signal-temp-pos)
15829 (vhdl-goto-marker signal-pos))
15832 (vhdl-goto-marker generic-end-pos) (backward-char)
15837 (vhdl-goto-marker port-end-pos) (backward-char)
15844 (vhdl-goto-marker generic-beg-pos)
15847 (vhdl-goto-marker signal-beg-pos)
15849 (switch-to-buffer (marker-buffer signal-beg-pos))
15860 (setq pos (point-marker))
15871 (setq pos (point-marker))
15916 (insert "\n") (setq clause-pos (point-marker))
15925 (setq component-pos (point-marker))
15938 (vhdl-port-copy)))
15942 (setq component-pos (point-marker))
15945 (setq clause-pos (point-marker))