Lines Matching +defs:last +defs:sexp
16 "VHDL Mode time stamp for last update.")
646 \(alphabetically) last loaded setup of the first `vhdl-project-file-name'
1105 (sexp :tag "Key binding" x)
1796 else if last command was a `TAB' or `RET' then dedent one step,
2472 (last-frame (selected-frame)))
2484 (select-frame last-frame)))))
2684 (define-key vhdl-mode-map "\M-\C-f" 'vhdl-forward-sexp)
2685 (define-key vhdl-mode-map "\M-\C-b" 'vhdl-backward-sexp)
2691 (define-key vhdl-mode-map "\M-\C-q" 'vhdl-indent-sexp)
3424 ["Forward Expression" vhdl-forward-sexp t]
3425 ["Backward Expression" vhdl-backward-sexp t]
4708 (set (make-local-variable 'parse-sexp-ignore-comments) t)
5158 eoi -- last whitespace on line
5256 ;; initial contents tries to be the last element
5373 (let ((state (parse-partial-sexp (vhdl-point 'bol) (point))))
5546 (defun vhdl-last-word (point)
5551 (save-excursion (or (eq (progn (forward-sexp) (point))
5564 (forward-sexp)
5568 (backward-sexp)
5571 (forward-sexp)
5584 (backward-sexp)
5625 ;; Skip backward over first sexp (needed to skip over a
5630 (backward-sexp)
5659 (backward-sexp)
5665 (backward-sexp)
5675 (backward-sexp)
5707 (and (vhdl-last-word (point))
5716 (and (vhdl-last-word (point))
5737 (and (vhdl-last-word (point))
5785 (forward-sexp)
5856 (forward-sexp)
5859 (forward-sexp 2)
5860 (forward-sexp))
5865 (forward-sexp 2)
5870 (forward-sexp 2)
5873 (forward-sexp)
5903 (forward-sexp 2)
5908 (backward-sexp)
5915 (backward-sexp)
5973 (defun vhdl-forward-sexp (&optional count lim)
5974 "Move forward across one balanced expression (sexp).
5991 "ERROR: Containing expression ends prematurely in vhdl-forward-sexp"))
6021 ;; of the following sexp and the closing brace of the
6022 ;; previous sexp.
6028 (error "ERROR: Unbalanced keywords in vhdl-forward-sexp"))
6031 ;; perform the normal forward-sexp.
6032 (forward-sexp)
6040 (defun vhdl-backward-sexp (&optional count lim)
6041 "Move backward across one balanced expression (sexp).
6050 ;; Perform the normal backward-sexp, unless we are looking at
6052 ;; of the following sexp and the closing brace of the previous sexp.
6057 (backward-sexp)
6062 (error "ERROR: Containing expression ends prematurely in vhdl-backward-sexp")))
6077 (last-backward (point)) last-forward
6112 (setq last-forward (point))
6118 last-backward t)
6126 (min (vhdl-point 'eol) last-backward))
6141 (error "ERROR: Unbalanced keywords in vhdl-backward-sexp"))
6171 (vhdl-forward-sexp)))
6182 (vhdl-forward-sexp)
6194 (let ((last-forward (point))
6195 (last-backward
6211 (setq last-forward (point))
6213 (re-search-forward "\\bis\\b[^_]" last-backward t)
6220 (min (vhdl-point 'eol) last-backward))
6225 (goto-char last-forward)))
6241 (last-forward (point))
6245 (goto-char last-forward)
6246 (let ((last-backward
6265 (setq last-forward (point))
6267 (search-forward begin-string last-backward t))
6274 (min (vhdl-point 'eol) last-backward))
6280 (goto-char last-forward)) ; end search for begin keyword
6307 (setq state (parse-partial-sexp (point) here nil nil)))
6342 (if (not (vhdl-safe (progn (backward-sexp) t)))
6365 (backward-sexp)
6432 (vhdl-safe (vhdl-forward-sexp 1 bod))
6443 (forward-sexp)
6455 keyword sexp-start sexp-mid sexp-end
6456 preceding-sexp containing-sexp
6467 (not containing-sexp))
6472 (setq sexp-start (point))
6473 (setq sexp-mid (vhdl-corresponding-mid lim))
6474 (setq sexp-end (vhdl-safe
6476 (vhdl-forward-sexp 1 lim) (point))))
6477 (if (and sexp-end (<= sexp-end here))
6478 ;; we want to record this sexp, but we only want to
6479 ;; record the last-most of any of them before here
6480 (or preceding-sexp
6481 (setq preceding-sexp sexp-start))
6482 ;; we're contained in this sexp so put sexp-start on
6484 (setq containing-sexp sexp-start)
6485 (setq containing-mid sexp-mid)
6489 (forward-sexp)
6490 (setq sexp-end (point))
6491 (setq sexp-mid nil)
6492 (setq sexp-start
6493 (or (vhdl-safe (vhdl-backward-sexp 1 lim) (point))
6494 (progn (backward-sexp) (point))))
6495 ;; we want to record this sexp, but we only want to
6496 ;; record the last-most of any of them before here
6497 (or preceding-sexp
6498 (setq preceding-sexp sexp-start)))
6500 ;; Check if the containing-paren should be the containing-sexp
6502 (or (null containing-sexp)
6503 (< containing-sexp containing-paren)))
6504 (setq containing-sexp containing-paren
6505 preceding-sexp nil
6508 (vector containing-sexp preceding-sexp containing-begin containing-mid)
6533 (backward-sexp)
6534 (vhdl-forward-sexp))
6552 (backward-sexp)
6576 vec literal containing-sexp preceding-sexp
6603 (setq containing-sexp (aref vec 0))
6604 (setq preceding-sexp (aref vec 1))
6610 (setq lim (if containing-sexp
6612 (goto-char containing-sexp)
6644 ((null containing-sexp)
6647 (if (null preceding-sexp)
6649 ;; no preceding-sexp -> use the preceding statement
6652 ;; if there is a preceding-sexp then indent relative to it
6653 (goto-char preceding-sexp)
6691 (vhdl-backward-syntactic-ws containing-sexp)
6695 (goto-char containing-sexp)
6700 (goto-char containing-sexp)
6707 (goto-char (1+ containing-sexp))
6712 (vhdl-beginning-of-statement-1 containing-sexp)
6714 (<= (point) containing-sexp)))
6715 (goto-char containing-sexp)
6719 (t (vhdl-beginning-of-statement-1 containing-sexp)
6726 (goto-char containing-sexp)
6730 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6735 (goto-char containing-sexp)
6739 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6749 (vhdl-backward-skip-label containing-sexp)))))
6756 (vhdl-beginning-of-statement-1 containing-sexp)
6759 ;; statement. Note that a containing sexp here is
6761 ;; have no effect if we hit the containing-sexp.
6765 (/= placeholder containing-sexp)
6789 (vhdl-case-alternative-p containing-sexp))
6793 (goto-char containing-sexp)
6796 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6804 (goto-char containing-sexp)
6805 ;; Note that a containing sexp here is always a keyword,
6807 (forward-sexp))
6841 (goto-char containing-sexp)
6844 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6868 (let* ((containing-sexp
6871 ;; to boi of containing-sexp paren. This
6889 (backward-sexp)
6893 (goto-char containing-sexp)
6997 else if last command was a tab or return then dedent one step or if a comment
7022 (or (eq last-command 'vhdl-electric-tab)
7023 (eq last-command 'vhdl-electric-return)))
7034 (or (eq last-command 'vhdl-electric-tab)
7035 (eq last-command 'vhdl-electric-return)))
7116 (defun vhdl-indent-sexp (&optional endpos)
7123 (end (progn (vhdl-forward-sexp nil endpos) (point))))
7234 (forward-char) (backward-sexp)
7260 ;; search for last line with same indent
7387 ;; align last group
7416 (if (setq cur-beg (nth 1 (save-excursion (parse-partial-sexp
7420 (forward-sexp)
7432 (nth 0 (parse-partial-sexp
7583 ;; align last group
7829 (progn (backward-char) (forward-sexp)
7830 (while (looking-at "(") (forward-sexp)) (point)))))
7840 (forward-sexp)
7855 (vhdl-forward-sexp)
7930 (backward-char) (forward-sexp) (point)))
7951 (when (= 0 (nth 0 (parse-partial-sexp beg (point))))
7970 (vhdl-backward-sexp)
7977 (when (= 0 (nth 0 (parse-partial-sexp beg (point))))
8025 (condition-case () (forward-sexp)
8110 (goto-char last-abbrev-location)
8154 (if (= (preceding-char) last-input-char)
8162 (cond ((= (preceding-char) last-input-char)
8168 (eq last-command 'vhdl-electric-colon) (= (preceding-char) ? ))
8176 (cond ((= (preceding-char) last-input-char)
8186 (cond ((= (preceding-char) last-input-char)
8196 (cond ((= (preceding-char) last-input-char)
10524 (forward-sexp))
10607 (let ((invoke-char last-command-char)
10868 "Variable to hold last port map parsed.")
11025 (point) (progn (forward-sexp) (point)))
11044 (point) (progn (forward-sexp) (point)))
11097 (point) (progn (forward-sexp) (point)))
11716 "Variable to hold last subprogram interface parsed.")
11768 (forward-sexp)
11802 (point) (progn (forward-sexp) (point)))
11821 (point) (progn (forward-sexp) (point)))
12091 (last-update 0))
12104 (- (nth 1 (current-time)) last-update)))
12108 (setq last-update (nth 1 (current-time)))))
12467 (defun vhdl-hs-forward-sexp-func (count)
12477 (forward-sexp))
12490 (forward-sexp)
12496 (forward-sexp)
12504 (forward-sexp))
12511 (vhdl-forward-sexp)))
12517 (vhdl-hs-forward-sexp-func count)))
12524 (vhdl-forward-sexp))
12543 'vhdl-hs-forward-sexp-func nil)
12746 (while (= (preceding-char) ?\)) (backward-sexp))
13727 (cdar (last (nth 3 ent-entry)))))
14104 (defvar vhdl-speedbar-last-selected-project nil
14105 "Name of last selected project.")
14120 (setq speedbar-last-selected-file nil)
14139 (setq speedbar-last-selected-file nil)
14140 (setq vhdl-speedbar-last-selected-project nil)
14679 (not (equal vhdl-speedbar-last-selected-project vhdl-project))
14682 (let ((last-frame (selected-frame))
14700 (select-frame last-frame)
14701 (setq vhdl-speedbar-last-selected-project vhdl-project)))
14707 (let ((last-frame (selected-frame))
14716 (or always (not (equal file-name speedbar-last-selected-file))))
14729 ;; unhighlight last units
14730 (let* ((file-entry (aget file-alist speedbar-last-selected-file t)))
14733 speedbar-last-selected-file 'vhdl-speedbar-entity-face)
14736 speedbar-last-selected-file 'vhdl-speedbar-architecture-face)
14739 speedbar-last-selected-file 'vhdl-speedbar-configuration-face)
14742 speedbar-last-selected-file 'vhdl-speedbar-package-face)
14745 speedbar-last-selected-file 'vhdl-speedbar-package-face)
14748 speedbar-last-selected-file 'vhdl-speedbar-instantiation-face))
14775 (setq speedbar-last-selected-file file-name))
14776 (select-frame last-frame)
15719 (forward-sexp) (end-of-line)
15737 (forward-sexp) (end-of-line)