Lines Matching +defs:backward +defs:word
475 \(re-search-backward \"^# Rule for compiling entire design\")
814 Capitalize: first letter of each word in name is capitalized"
945 <... string> : replaced by a queried string (\"...\" is the prompt word)
1590 Regexp : regular expression describing word syntax
1591 (e.g. \"\\\w+_c\" matches word with suffix \"_c\")
1793 "*Non-nil means `TAB' does indentation, word completion and tab insertion.
1794 That is, if preceeding character is part of a word then complete word,
1813 (defcustom vhdl-word-completion-case-sensitive nil
1814 "*Non-nil means word completion using `TAB' is case sensitive.
1820 (defcustom vhdl-word-completion-in-minibuffer t
1821 "*Non-nil enables word completion in minibuffer (for template prompts).
1827 (defcustom vhdl-underscore-is-part-of-word nil
1828 "*Non-nil means consider the underscore character `_' as part of word.
1829 An identifier containing underscores is then treated as a single word in
2481 (backward-char 2)
2685 (define-key vhdl-mode-map "\M-\C-b" 'vhdl-backward-sexp)
2686 (define-key vhdl-mode-map "\M-\C-u" 'vhdl-backward-up-list)
2687 (define-key vhdl-mode-map "\M-\C-a" 'vhdl-backward-same-indent)
2694 (define-key vhdl-mode-map [backspace] 'backward-delete-char-untabify)
2697 (define-key vhdl-mode-map [(meta delete)] 'kill-word))
2802 ;; define special minibuffer keymap for enabling word completion in minibuffer
2807 (when vhdl-word-completion-in-minibuffer
2863 (when vhdl-underscore-is-part-of-word
3425 ["Backward Expression" vhdl-backward-sexp t]
3427 ["Backward Same Indent" vhdl-backward-same-indent t]
4010 (customize-set-variable 'vhdl-word-completion-case-sensitive
4011 (not vhdl-word-completion-case-sensitive))
4012 :style toggle :selected vhdl-word-completion-case-sensitive]
4014 (progn (customize-set-variable 'vhdl-word-completion-in-minibuffer
4015 (not vhdl-word-completion-in-minibuffer))
4017 :style toggle :selected vhdl-word-completion-in-minibuffer]
4019 (progn (customize-set-variable 'vhdl-underscore-is-part-of-word
4020 (not vhdl-underscore-is-part-of-word))
4022 :style toggle :selected vhdl-underscore-is-part-of-word]
4181 the keyword (i.e. first word of menu entry not in parenthesis) and
4209 Typing `TAB' after a (not completed) word looks for a VHDL keyword or a
4210 word in the buffer that starts alike, inserts it and adjusts case.
4211 Re-typing `TAB' toggles through alternative word completions. This also
4220 Typing `TAB' after a non-word character indents the line if at the
5137 We cannot use just `word' syntax class since `_' cannot be in word
5138 class. Putting underscore in word class breaks forward word movement
5176 ((eq position 'eoi) '((end-of-line) (skip-chars-backward " \t")))
5387 (skip-chars-backward " \t\n")
5388 (while (re-search-backward "^[^\"-]*\\(\\(-?\"[^\"]*\"\\|-[^\"-]\\)[^\"-]*\\)*\\(--\\)" (vhdl-point 'bol) t)
5390 (skip-chars-backward " \t\n")))
5455 ;; used for backward skipping, (point-max) is used for forward
5503 (defun vhdl-backward-syntactic-ws (&optional lim)
5519 (skip-chars-backward " \t\n\r\f" lim)
5523 (skip-chars-backward "^-" lim)
5524 (skip-chars-backward "-" lim)
5528 (skip-chars-backward "^-" lim)
5529 (skip-chars-backward "-" lim)))
5534 (fset 'vhdl-backward-syntactic-ws 'vhdl-win-bsws))
5538 (defun vhdl-first-word (point)
5546 (defun vhdl-last-word (point)
5568 (backward-sexp)
5584 (backward-sexp)
5591 "If the word at the current position corresponds to a \"defun\"
5611 "A regular expression for searching backward that matches all known
5625 ;; Skip backward over first sexp (needed to skip over a
5630 (backward-sexp)
5633 (re-search-backward
5638 (backward-char)
5651 (re-search-backward ";\\|\\bwhen\\b[^_]" lim 'move)
5659 (backward-sexp)
5665 (backward-sexp)
5669 (vhdl-backward-syntactic-ws lim)
5675 (backward-sexp)
5691 "If the word at the current position corresponds to a \"begin\"
5707 (and (vhdl-last-word (point))
5708 (or (vhdl-first-word (point))
5711 (vhdl-backward-skip-label lim)
5712 (vhdl-first-word (point)))))))
5716 (and (vhdl-last-word (point))
5717 (or (vhdl-first-word (point))
5720 (vhdl-backward-skip-label lim)
5721 (vhdl-first-word (point)))))))
5729 (or (vhdl-first-word (point))
5732 (vhdl-backward-skip-label lim)
5733 (vhdl-first-word (point))))))
5737 (and (vhdl-last-word (point))
5738 (or (vhdl-first-word (point))
5741 (vhdl-backward-skip-label lim)
5742 (vhdl-first-word (point)))))))
5759 (re-search-backward ";\\|\\bwhen\\b[^_]" lim 'move)
5765 "If the word at the current position corresponds to an \"end\"
5768 search backward for is aref 0. The column in which the keyword must
5782 (vector "if\\|elsif" (vhdl-first-word (point)) "then" nil)
5791 (vhdl-first-word pos)
5797 (vhdl-first-word pos)
5803 (vhdl-first-word pos)
5807 (vector "begin" (vhdl-first-word pos) nil nil))
5810 (vector "case" (vhdl-first-word pos) "is" nil))
5814 (vhdl-first-word pos)
5819 (vhdl-first-word pos)
5823 (vector "for" (vhdl-first-word pos) nil nil))
5827 (vhdl-first-word pos)
5889 "A regular expression for searching backward that matches all known
5908 (backward-sexp)
5915 (backward-sexp)
5935 (re-search-backward ";\\|<=" lim 'move))
5938 (backward-char)
5949 (defun vhdl-backward-to-block (&optional lim)
5950 "Move backward to the previous \"begin\" or \"end\" keyword."
5953 (re-search-backward vhdl-b-t-b-re lim 'move))
5956 (backward-char)
6040 (defun vhdl-backward-sexp (&optional count lim)
6041 "Move backward across one balanced expression (sexp).
6042 With COUNT, do it that many times. LIM bounds any required backward
6050 ;; Perform the normal backward-sexp, unless we are looking at
6057 (backward-sexp)
6062 (error "ERROR: Containing expression ends prematurely in vhdl-backward-sexp")))
6077 (last-backward (point)) last-forward
6081 (re-search-backward begin-re lim t)
6095 (backward-char)
6114 ;; (bounded by the backward search start
6118 last-backward t)
6126 (min (vhdl-point 'eol) last-backward))
6141 (error "ERROR: Unbalanced keywords in vhdl-backward-sexp"))
6149 (defun vhdl-backward-up-list (&optional count limit)
6150 "Move backward out of one level of blocks.
6159 (vhdl-backward-to-block limit)
6186 "Move backward to the beginning of a VHDL library unit.
6195 (last-backward
6200 (save-excursion (forward-word 1) (1+ (point))))
6204 (re-search-backward vhdl-libunit-re nil 'move))
6209 (backward-char)
6213 (re-search-forward "\\bis\\b[^_]" last-backward t)
6220 (min (vhdl-point 'eol) last-backward))
6229 "Move backward to the beginning of a VHDL defun.
6246 (let ((last-backward
6251 (save-excursion (forward-word 1) (1+ (point))))
6254 (re-search-backward vhdl-defun-re nil 'move))
6258 (backward-char)
6267 (search-forward begin-string last-backward t))
6274 (min (vhdl-point 'eol) last-backward))
6342 (if (not (vhdl-safe (progn (backward-sexp) t)))
6344 (backward-up-list 1)
6351 (re-search-backward vhdl-b-o-s-re lim 'move))
6354 (backward-char)
6365 (backward-sexp)
6391 ;; set stop point at word after leader
6393 (forward-word 1)
6415 ;; set stop point at word after case alternative keyleader
6421 (backward-char)))))
6468 (setq keyword (vhdl-backward-to-block lim))
6493 (or (vhdl-safe (vhdl-backward-sexp 1 lim) (point))
6494 (progn (backward-sexp) (point))))
6533 (backward-sexp)
6542 (defun vhdl-backward-skip-label (&optional lim)
6543 "Skip backward over a label, with optional maximal
6549 (vhdl-backward-syntactic-ws lim)
6552 (backward-sexp)
6633 (vhdl-backward-syntactic-ws lim)
6674 (vhdl-backward-syntactic-ws lim)
6691 (vhdl-backward-syntactic-ws containing-sexp)
6713 (skip-chars-backward " \t(")
6731 (vhdl-backward-skip-label (vhdl-point 'boi))
6740 (vhdl-backward-skip-label (vhdl-point 'boi))
6749 (vhdl-backward-skip-label containing-sexp)))))
6845 (vhdl-backward-skip-label (vhdl-point 'boi))
6878 (backward-up-list 1)
6889 (backward-sexp)
6914 (backward-up-list 1)
6995 "If preceeding character is part of a word or a paren then hippie-expand,
7003 ;; expand word
7005 (let ((case-fold-search (not vhdl-word-completion-case-sensitive))
7014 (let ((case-fold-search (not vhdl-word-completion-case-sensitive))
7036 (backward-delete-char-untabify vhdl-basic-offset nil))
7048 (vhdl-fix-case-word -1))
7067 (re-search-backward "^[^\n]" nil t)
7107 (if (re-search-backward vhdl-align-group-separate nil t)
7142 (when (search-backward " -- ((" (vhdl-point 'bol) t)
7163 (if (search-backward " -- ((" (vhdl-point 'bol) t)
7215 (if (re-search-backward vhdl-align-group-separate nil t)
7232 (setq beg (vhdl-re-search-backward "[()]" nil t))
7234 (forward-char) (backward-sexp)
7235 (setq beg (vhdl-re-search-backward "[()]" nil t)))
7465 (when (and (re-search-backward "^\\(architecture\\|begin\\|configuration\\|end\\|entity\\|package\\)\\>" nil t)
7599 (setq beg (if (re-search-backward vhdl-align-group-separate nil t)
7718 (backward-char)
7719 (when (re-search-backward "\\s-" beg t)
7766 (if (not (and (re-search-backward "^\\s-*\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(process\\|end\\s-+process\\)\\>" nil t)
7790 (proc-mid (re-search-backward "^\\s-*begin\\>" nil t))
7829 (progn (backward-char) (forward-sexp)
7852 (when (re-search-backward "\\('event\\|\\<\\(falling\\|rising\\)_edge\\)\\>" beg t)
7854 (backward-word 1)
7887 (insert " ()") (backward-char)))
7908 (unless (and (re-search-backward "^\\(architecture\\s-+\\w+\\s-+of\\s-+\\(\\w+\\)\\|end\\)\\>" nil t)
7930 (backward-char) (forward-sexp) (point)))
7944 (if (not (and (setq beg (re-search-backward "^\\(architecture\\s-+\\w+\\s-+of\\s-+\\(\\w+\\)\\|end\\)\\>" nil t))
7967 (while (and (progn (while (and (setq beg (re-search-backward "^\\s-*\\(\\w+\\s-*:\\s-*block\\|\\(end\\)\\s-+block\\)\\>" nil t))
7970 (vhdl-backward-sexp)
7971 (re-search-backward "^\\s-*\\w+\\s-*:\\s-*block\\>" nil t))
8003 (if (not (re-search-backward "^\\s-*\\(generic\\|port\\)[ \t\n]*(" nil t))
8020 (vhdl-backward-syntactic-ws)
8028 (delete-backward-char 1))
8155 (progn (delete-backward-char 1) (insert-char ?\" 1))
8210 (backward-char))
8222 (delete-backward-char 3))
8239 (vhdl-re-search-backward "\\<entity \\(\\w+\\) is\\>" nil t)))
8314 (forward-word 1)
8350 (progn (forward-word -1) (point)))
8382 (forward-word 1)
8528 (re-search-backward "^\\(architecture\\|end\\)\\>" nil t))
8532 (re-search-backward "^\\(configuration\\|end\\)\\>" nil t))
8586 (t (delete-backward-char 1) (insert ";") t))))))
8600 (setq entity-exists (vhdl-re-search-backward
8644 (backward-word 1)
8645 (vhdl-case-word 1)
8653 (backward-word 1)
8654 (vhdl-case-word 1)
8675 (if (and (save-excursion (vhdl-re-search-backward "\\(\\<when\\>\\|;\\)" nil t))
8753 (delete-backward-char 6)))
8773 (re-search-backward "^\\(configuration\\|end\\)\\>" nil t))
8780 (re-search-backward ; architecture declarative part
8814 (forward-word 1)
8877 (re-search-backward "^\\(entity\\|end\\)\\>" nil t))
8955 (forward-word 1)
9000 (backward-char 5)
9038 (forward-word 1)
9081 (delete-backward-char 1)
9121 (delete-region (point) (progn (forward-word -1) (point)))
9125 (delete-region (point) (progn (forward-word -1) (point)))
9179 (vhdl-re-search-backward "\\<package \\(\\w+\\) is\\>" nil t)))
9213 (re-search-backward "^\\(entity\\|end\\)\\>" nil t))
9238 (forward-word 1)
9294 (forward-word 1)
9318 (when (and (vhdl-re-search-backward "\\<begin\\>" nil t)
9319 (vhdl-re-search-backward "\\<process\\>" nil t))
9454 (delete-backward-char 2)
9482 (forward-word 1)
9602 (delete-backward-char 4)
9605 (delete-region (point) (progn (forward-word -1) (point)))
9609 (delete-region (point) (progn (forward-word -1) (point)))
9633 (backward-char 6)
9646 (and (vhdl-re-search-backward
9649 (not (progn (backward-word 1) (looking-at "\\<end\\>")))))
9650 (save-excursion (backward-word 1) (looking-at "\\<shared\\>")))
9706 (forward-word 1)
9722 (if (and (save-excursion (vhdl-re-search-backward "\\(\\<limit\\>\\|;\\)"))
9809 (re-search-backward
10024 (skip-chars-backward " \t")
10102 (while (= (preceding-char) ? ) (delete-backward-char 1))
10105 ; (re-search-backward "-- ")
10116 (when (and (re-search-backward "^\\s-*begin\\>" nil t)
10117 (re-search-backward "\\<\\(architecture\\|block\\|function\\|procedure\\|process\\|procedural\\)\\>" nil t))
10241 (delete-backward-char 2))))
10363 ;; 'american, 'european, 'scientific kept for backward compatibility
10379 (backward-char 1)
10380 (skip-chars-backward "^ \t\n")
10390 (or (expand-abbrev) (vhdl-fix-case-word -1)))
10452 (defun vhdl-case-word (num)
10454 (if vhdl-upper-case-keywords (upcase-word num) (downcase-word num)))
10457 "If preceeding character is part of a word or a paren then hippie-expand,
10458 else insert tab (used for word completion in VHDL minibuffer)."
10461 ;; expand word
10463 (let ((case-fold-search (not vhdl-word-completion-case-sensitive))
10472 (let ((case-fold-search (not vhdl-word-completion-case-sensitive))
10484 (re-search-backward
10514 ;; search backward for block beginning or end
10515 (while (or (while (and (setq pos (re-search-backward "^\\s-*\\(\\(end\\)\\|\\(\\(impure\\|pure\\)[ \t\n]+\\)?\\(function\\|procedure\\)\\|\\(for\\)\\|\\(architecture\\|component\\|configuration\\|entity\\|package\\|record\\|units\\)\\|\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(postponed[ \t\n]+\\)?\\(block\\|case\\|for\\|if\\|procedural\\|process\\|while\\)\\)\\>" nil t))
10521 (forward-word 1)
10569 (and (re-search-backward "^\\s-*begin\\>" nil t)
10594 (forward-word -1)
10604 (backward-word 1)
10605 (vhdl-case-word 1)
10995 (when (or (not (re-search-backward
11000 (forward-word 1)
11125 ; (re-search-backward "^\\s-*package\\s-+\\(\\w+\\)" nil t))
11149 (re-search-backward
11765 (unless (and (re-search-backward "^\\s-*\\(\\(procedure\\)\\|\\(\\(pure\\|impure\\)\\s-+\\)?function\\)\\s-+\\(\"?\\w+\"?\\)[ \t\n]*\\(\\((\\)\\|;\\|is\\>\\)" nil t)
11767 (save-excursion (backward-char)
12058 "Also looks at the word before `(' in order to better match parenthesized
12062 (progn (backward-up-list 1)
12063 (skip-syntax-backward "w_")) ; crashes in `viper-mode'
12087 (defun vhdl-fix-case-region-1 (beg end upper-case word-regexp &optional count)
12097 (while (re-search-forward word-regexp end t)
12100 (upcase-word -1)
12101 (downcase-word -1)))
12131 (defun vhdl-fix-case-word (&optional arg)
12132 "Convert word after cursor to upper case if necessary."
12135 (when arg (backward-word 1))
12139 (upcase-word 1))
12142 (upcase-word 1))
12145 (upcase-word 1))
12148 (upcase-word 1)))))
12241 (defun vhdl-backward-same-indent ()
12242 "Move backward to previous line with same indent."
12301 (defun vhdl-re-search-backward (regexp &optional bound noerror count)
12302 "Like `re-search-backward', but does not match within literals."
12305 (while (and (setq pos (re-search-backward regexp bound noerror count))
12476 (backward-char)
12489 (backward-char)
12495 (backward-char)
12510 (backward-word 1)
12523 (forward-word 4)
12564 (re-search-backward
12729 (skip-syntax-backward " ")
12730 (skip-syntax-backward "w_")
12731 (skip-syntax-backward " ")
12733 (backward-char 1)
12734 (skip-syntax-backward " ")
12735 (skip-syntax-backward "w_")
12736 (skip-syntax-backward " ")))
12737 ; (skip-chars-backward "^-(\n\";")
12745 (skip-syntax-backward " ")
12746 (while (= (preceding-char) ?\)) (backward-sexp))
12747 (skip-syntax-backward "w_")
12748 (skip-syntax-backward " ")
13106 (vhdl-backward-syntactic-ws)
13108 (re-search-backward "^[ \t]*end\\>" pos 1)
13124 (when (re-search-backward "^[ \t]*\\(architecture\\|configuration\\|entity\\|package\\)\\>" nil t)
13125 (while (and (re-search-backward "^[ \t]*\\(end\\|use\\)\\>" nil t)
14328 (re-search-backward
15079 (when (re-search-backward (format "^%d: *[[<{][-+?][]>}] \\([^ \n]+\\)" (1- depth)) nil t)
15099 (re-search-backward "^[0-9]+:\\s-*<[-+?]>\\s-+\\([^\n]+\\)$" nil t)
15512 (unless (or (re-search-backward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)
15530 (skip-chars-backward " \t\n")
15536 (skip-chars-backward " \t\n")
15549 (re-search-backward "^\\(library\\|use\\)\\|end\\>" nil t))
15554 (backward-char))
15564 (unless (or (re-search-backward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)
15716 (backward-char 4))
15717 (backward-char)
15734 (backward-char 4))
15735 (backward-char)
15832 (vhdl-goto-marker generic-end-pos) (backward-char)
15835 (insert ";") (backward-char))
15837 (vhdl-goto-marker port-end-pos) (backward-char)
15840 (insert ";") (backward-char))
16061 (unless (and (re-search-backward "^\\(architecture\\s-+\\(\\w+\\)\\s-+of\\s-+\\(\\w+\\)\\|end\\)\\>" nil t)
16870 'vhdl-word-completion-case-sensitive
16871 'vhdl-word-completion-in-minibuffer
16872 'vhdl-underscore-is-part-of-word