Lines Matching +defs:def +defs:pos
303 (let* ((parts (list nil)) (tail parts) pos in-paren)
306 (goto-char (setq pos (match-beginning 0)))
308 (if (= (point) pos)
313 (setq in-paren (= (car (parse-partial-sexp from pos 1)) 1)
314 pos (point))))
316 (if (and (> pos from)
320 (goto-char (1- pos))
323 (setcdr tail (list (buffer-substring-no-properties from pos)
326 (setcdr tail (list (buffer-substring-no-properties from pos)))
330 (when (= (car (parse-partial-sexp pos to -1)) -1)
344 (let ((pos (- (point-max) (point)))
374 (if (> (- (point-max) pos) (point))
375 (goto-char (- (point-max) pos))))))
424 (defsubst c-put-c-type-property (pos value)
426 (c-put-char-property pos 'c-type value))
497 '(setq stack (cons (cons state saved-pos)
501 saved-pos (cdr (car stack))
508 saved-pos (cdr (car stack))
511 (defmacro c-bos-save-pos ()
512 '(setq saved-pos (vector pos tok ptok pptok)))
513 (defmacro c-bos-restore-pos ()
514 '(unless (eq (elt saved-pos 0) start)
515 (setq pos (elt saved-pos 0)
516 tok (elt saved-pos 1)
517 ptok (elt saved-pos 2)
518 pptok (elt saved-pos 3))
519 (goto-char pos)
522 `(setq saved-pos (vector pos ,missing ,got)))
527 (elt saved-pos 1)
528 (elt saved-pos 2)
530 (c-point 'bol (elt saved-pos 0))))))))
604 ;; saved-pos: A vector of either saved positions (tok ptok pptok, etc.) or
607 ;; consists of a saved value of state and saved-pos. An entry is
668 pos
670 boundary-pos
675 after-labels-pos
676 ;; Like `after-labels-pos', but the first such position inside
679 last-label-pos
686 label-good-pos
693 saved-pos
694 ;; Stack of conses (state . saved-pos).
715 (setq pos (point))
734 pos saved)
736 ;; Begin at start and not pos to detect macros if we stand
765 (setq pos (point)
767 (setq pos saved
778 (when (and (< pos start) (null stack))
815 (not after-labels-pos))
816 (progn (c-bos-save-pos)
824 (c-bos-restore-pos) ; the position of the while
849 (if (>= pos start)
884 (setq after-labels-pos nil
885 last-label-pos nil
900 (let ((before-sws-pos (point))
903 sexp-loop-continue-pos
906 (sexp-loop-end-pos pos))
923 boundary-pos
932 (setq sexp-loop-continue-pos (point)))))
940 (point) sexp-loop-end-pos))
953 before-sws-pos)))
958 (point) sexp-loop-end-pos))
965 (point) sexp-loop-end-pos)
970 (setq sexp-loop-continue-pos (point)))
975 tok boundary-pos
980 sexp-loop-continue-pos) ; End of "go back a sexp" loop.
981 (goto-char sexp-loop-continue-pos)
982 (setq sexp-loop-end-pos sexp-loop-continue-pos
983 sexp-loop-continue-pos nil))))
985 ;; ObjC method def?
987 (setq saved (c-in-method-def-p)))
988 (setq pos saved
1004 (if after-labels-pos ; Have we already encountered a label?
1005 (if (not last-label-pos)
1006 (setq last-label-pos (or tok start)))
1007 (setq after-labels-pos (or tok start)))
1009 label-good-pos nil))
1012 (when (and (not label-good-pos) ; i.e. no invalid "label"'s yet
1018 (setq label-good-pos (or tok start))))
1025 pos tok))) ; Not nil (for the while loop).
1029 (if (and (vectorp saved-pos) (eq (length saved-pos) 3))
1031 (setq saved-pos (cdr (car stack))
1041 (cond ((> start saved) (setq pos saved))
1047 after-labels-pos
1048 (or (not label-good-pos)
1049 (<= label-good-pos pos)
1051 (goto-char (if (and last-label-pos
1052 (< last-label-pos start))
1053 last-label-pos
1054 pos))
1058 (if (< after-labels-pos start)
1059 (setq pos after-labels-pos)
1061 (if (and last-label-pos (< last-label-pos start))
1063 (setq pos last-label-pos)))))
1066 (goto-char pos)
1072 (setq pos (point)))
1073 (goto-char pos)
1510 (let (;; `rung-pos' is set to a position as early as possible in the
1512 (rung-pos (point)) next-rung-pos rung-end-pos last-put-in-sws-pos
1528 (setq rung-end-pos (min (1+ (point)) (point-max)))
1529 (if (setq rung-is-marked (text-property-any rung-pos rung-end-pos
1535 (setq rung-pos (1- (next-single-property-change
1536 rung-is-marked 'c-is-sws nil rung-end-pos)))
1538 ;; inside a line comment or cpp directive we must set `rung-pos' as
1540 (setq rung-pos (point)))
1562 rung-pos (point) (point-max))
1564 (setq rung-pos (point))
1575 (1+ rung-pos) (1+ (point)) (point-max))
1581 (c-put-is-sws (1+ rung-pos)
1583 (c-put-in-sws rung-pos
1584 (setq rung-pos (point)
1585 last-put-in-sws-pos rung-pos)))
1616 (setq next-rung-pos (point))
1618 (setq rung-end-pos (min (1+ (point)) (point-max)))
1633 (text-property-any next-rung-pos rung-end-pos
1640 rung-pos (1+ simple-ws-end) next-rung-pos rung-end-pos
1646 (c-remove-is-sws (1+ simple-ws-end) next-rung-pos)
1647 (unless (and rung-is-marked (= rung-pos simple-ws-end))
1648 (c-put-is-sws rung-pos
1651 (c-put-in-sws rung-pos
1652 (setq rung-pos (point)
1653 last-put-in-sws-pos rung-pos))
1654 (unless (get-text-property (1- rung-end-pos) 'c-is-sws)
1658 (c-remove-in-sws (1- rung-end-pos) rung-end-pos))
1659 (c-put-is-sws next-rung-pos
1660 rung-end-pos))
1664 rung-pos (1+ simple-ws-end) next-rung-pos rung-end-pos
1667 ;; Set `rung-pos' for the next rung. It's the same thing here as
1672 (setq rung-pos (1- (next-single-property-change
1673 rung-is-marked 'c-is-sws nil rung-end-pos)))
1674 (setq rung-pos next-rung-pos))
1680 (when (eq last-put-in-sws-pos (point))
1681 (cond ((< last-put-in-sws-pos (point-max))
1684 last-put-in-sws-pos)
1685 (c-remove-in-sws last-put-in-sws-pos
1686 (1+ last-put-in-sws-pos)))
1694 (1- last-put-in-sws-pos))
1695 (c-remove-is-and-in-sws (1- last-put-in-sws-pos)
1696 last-put-in-sws-pos))))
1704 (let (;; `rung-pos' is set to a position as late as possible in the unmarked
1706 (rung-pos (point)) next-rung-pos last-put-in-sws-pos
1707 rung-is-marked simple-ws-beg cmt-skip-pos)
1726 (point) (min (1+ rung-pos) (point-max))
1728 ;; `rung-pos' will be the earliest marked position, which means that
1732 (goto-char (setq rung-pos rung-is-marked))
1754 (point) rung-pos (point-min))
1756 (setq rung-pos (point))
1763 (text-property-any (point) rung-pos
1776 rung-is-marked rung-pos (point-min))
1777 (unless (get-text-property (1- rung-pos) 'c-is-sws)
1781 (c-remove-in-sws (1- rung-pos) rung-pos))
1783 rung-pos)
1785 (1- rung-pos))
1786 (setq rung-pos rung-is-marked
1787 last-put-in-sws-pos rung-pos))
1790 (setq cmt-skip-pos (point))
1794 (/= cmt-skip-pos simple-ws-beg)
1804 (while (and (> (point) cmt-skip-pos)
1809 (if (< (point) cmt-skip-pos)
1813 (progn (goto-char cmt-skip-pos)
1837 (setq next-rung-pos (point)))
1844 (goto-char next-rung-pos)
1849 (setq next-rung-pos (point))
1861 (text-property-any (point) (min (1+ next-rung-pos) (point-max))
1867 (point) (1+ next-rung-pos)
1868 simple-ws-beg (min (1+ rung-pos) (point-max))
1874 (c-remove-is-sws (1+ next-rung-pos) simple-ws-beg)
1875 (unless (and rung-is-marked (= simple-ws-beg rung-pos))
1876 (let ((rung-end-pos (min (1+ rung-pos) (point-max))))
1877 (unless (get-text-property (1- rung-end-pos) 'c-is-sws)
1881 (c-remove-in-sws (1- rung-end-pos) rung-end-pos))
1883 rung-end-pos)
1886 last-put-in-sws-pos simple-ws-beg)
1887 rung-pos)
1888 (c-put-is-sws (setq rung-pos simple-ws-beg)
1889 (1+ next-rung-pos)))
1893 (point) (1+ next-rung-pos)
1894 simple-ws-beg (min (1+ rung-pos) (point-max))
1896 (setq rung-pos next-rung-pos
1903 (when (eq last-put-in-sws-pos (point))
1904 (cond ((< (point-min) last-put-in-sws-pos)
1907 (1- last-put-in-sws-pos))
1908 (c-remove-in-sws (1- last-put-in-sws-pos)
1909 last-put-in-sws-pos))
1917 last-put-in-sws-pos)
1918 (c-remove-is-and-in-sws last-put-in-sws-pos
1919 (1+ last-put-in-sws-pos)))))
1964 (defvar c-state-cache-good-pos 1)
1965 (make-variable-buffer-local 'c-state-cache-good-pos)
1978 (defsubst c-invalidate-state-cache (pos)
1985 (when (< pos c-state-cache-good-pos)
1986 (setq c-state-cache-good-pos 1)
1990 (or (< pos (cdr elem))
1991 (when (< pos c-state-cache-good-pos)
1992 (setq c-state-cache-good-pos (cdr elem))
1994 (or (<= pos elem)
1995 (when (< pos c-state-cache-good-pos)
1996 (setq c-state-cache-good-pos (1+ elem))
2000 (defun c-get-fallback-start-pos (here)
2049 old-state last-pos brace-pair-open brace-pair-close
2050 pos save-pos)
2067 c-state-cache-good-pos 1)
2073 c-state-cache-good-pos 1))
2078 (setq last-pos (and c-state-cache
2082 (if (or (not last-pos)
2083 (< last-pos c-state-cache-good-pos))
2084 (setq last-pos c-state-cache-good-pos)
2087 (if (< last-pos here-bol)
2088 (setq c-state-cache-good-pos last-pos)))
2090 ;; Check if `last-pos' is in a macro. If it is, and we're not
2094 (goto-char last-pos)
2098 ;; Set `last-pos' again just like above except that there's
2099 ;; no use looking at `c-state-cache-good-pos' here.
2100 (setq last-pos (if c-state-cache
2108 ;; might spend a lot of time searching from `last-pos' down to
2110 (when (< last-pos (- here 20000))
2114 (setq pos (c-get-fallback-start-pos here))
2115 (if (<= pos last-pos)
2116 (setq pos nil)
2117 (setq last-pos nil
2119 c-state-cache-good-pos 1)))
2125 (unless pos
2135 (c-up-list-forward last-pos)))
2136 (setq last-pos placeholder)
2149 (setq c-state-cache (cons (cons pair-beg last-pos)
2168 (setq c-state-cache-good-pos
2177 (setq pos last-pos)))
2180 (unless pos
2181 (setq pos (c-get-fallback-start-pos here)
2183 c-state-cache-good-pos 1))
2187 (while pos
2188 (setq save-pos pos
2194 (let (set-good-pos set-brace-pair)
2196 (setq last-pos nil
2197 last-pos (scan-lists pos 1 -1)) ; Might signal.
2198 (setq pos (scan-lists last-pos 1 1) ; Might signal.
2199 set-good-pos (< pos here-bol)
2200 set-brace-pair (eq (char-before last-pos) ?{))
2207 (when (and (or set-good-pos set-brace-pair)
2208 (or (>= pos in-macro-start)
2210 (goto-char pos)
2212 (if set-good-pos
2213 (setq c-state-cache-good-pos pos))
2215 (setq brace-pair-open last-pos
2216 brace-pair-close pos))))))
2229 (if last-pos
2235 (setq pos last-pos)
2236 (when (and (or (>= last-pos in-macro-start)
2238 (goto-char last-pos)
2244 (memq (char-before last-pos) '(?{ ?\( ?\[)))
2245 (if (< last-pos here-bol)
2246 (setq c-state-cache-good-pos last-pos))
2247 (setq c-state-cache (cons (1- last-pos) c-state-cache))))
2249 (if (setq last-pos (c-up-list-forward pos))
2254 (setq pos (c-up-list-backward pos)
2256 c-state-cache-good-pos c-state-cache-start)
2257 (when (or (not pos)
2263 (>= pos save-pos))
2264 (setq pos last-pos
2268 (c-point 'bol last-pos)))))))
2269 (setq pos nil))))
2271 ;;(message "c-parse-state: %S end: %S" c-state-cache c-state-cache-good-pos)
2283 (c-state-cache-good-pos 1))
2372 (let (pos elem)
2377 (setq pos elem)))
2378 pos))
2418 (pos (catch 'done
2435 (if (> pos (- (point) 4000))
2436 (goto-char pos)
2442 (if (< (point) pos)
2443 (goto-char pos)))))
2473 (let ((pos (point)))
2477 (goto-char pos)
2480 (>= (match-end 0) pos)
2511 (let ((pos (point)))
2515 (>= (match-end 0) pos))
2517 (goto-char pos)
2532 (while (let ((pos (or (and (looking-at c-nonsymbol-token-regexp)
2540 (if (<= pos start)
2541 (goto-char pos))))))
2802 search-pos
2808 (state-pos (point))
2810 ;; there. This is separate from `state-pos' since we might
2812 check-pos check-state
2814 (last-token-end-pos (point-min))
2822 (setq search-pos (point))
2827 state-pos (match-beginning 0) paren-level nil state)
2828 state-pos (point))
2829 (if (setq check-pos (and lookbehind-submatch
2834 state-pos check-pos paren-level nil state))
2835 (setq check-pos state-pos
2843 ;; (i.e. `state-pos' here) before continuing the
2860 (eq (char-before check-pos) ?/)
2861 (not (c-get-char-property (1- check-pos) 'syntax-table))
2862 (memq (char-after check-pos) '(?/ ?*)))
2865 (if (= (char-after check-pos) ?/)
2887 (progn (goto-char state-pos) t)
2889 (setq state (parse-partial-sexp state-pos bound 0 nil state)
2890 state-pos (point)))
2909 (progn (goto-char state-pos) t)
2915 state-pos (point) nil nil state)
2916 state-pos (point))
2931 (or (< check-pos last-token-end-pos)
2932 (< check-pos
2934 (goto-char check-pos)
2936 (c-end-of-current-token last-token-end-pos))
2937 (setq last-token-end-pos (point))))))
2941 (goto-char state-pos)
2942 (goto-char (min last-token-end-pos bound))))
2951 (or (/= search-pos (point))
2999 safe-pos-list
3000 ;; The position at the beginning of `safe-pos-list'.
3001 safe-pos
3008 (paren-level-pos (point)))
3017 (let ((pos (point)) state-2 pps-end-pos)
3023 (while (and safe-pos-list
3024 (> (car safe-pos-list) (point)))
3025 (setq safe-pos-list (cdr safe-pos-list)))
3026 (unless (setq safe-pos (car-safe safe-pos-list))
3027 (setq safe-pos (max (or (c-safe-position
3032 safe-pos-list (list safe-pos)))
3040 ;; safe-pos is in a nested list. That's both uncommon
3044 safe-pos pos 0))
3045 (< (point) pos))
3046 (setq safe-pos (point)
3047 safe-pos-list (cons safe-pos safe-pos-list)))
3059 pos paren-level-pos -1)
3060 pps-end-pos (point))
3071 pps-end-pos paren-level-pos
3080 (goto-char (scan-lists pos -1
3082 (setq paren-level-pos (point))
3083 (if (and limit (>= limit paren-level-pos))
3110 (goto-char pos)
3119 (setq safe-pos (1+ (elt state 1))
3120 safe-pos-list (cons safe-pos safe-pos-list))))
3187 ;; (while (let ((last-pos (point))
3188 ;; (stop-pos (progn
3195 ;; (goto-char last-pos)
3201 ;; stop-pos 'move)
3225 ;; (let ((pos (point)))
3227 ;; (if (= pos (point))
3231 ;; (> (point) stop-pos))))
3233 ;; ;; Now the point is either at `stop-pos' or at some
3234 ;; ;; position further back if `stop-pos' was at a
3242 ;; (< (point) stop-pos))))
3270 (let* ((pos (point))
3274 (state (parse-partial-sexp lim pos)))
3343 (let* ((pos (point))
3347 (state (parse-partial-sexp lim pos)))
3367 (goto-char pos)
3478 ;; `c-find-decl-syntactic-pos' is a syntactically relevant position in
3482 ;; `c-find-decl-match-pos' is the match position if
3484 ;; at `c-find-decl-syntactic-pos', or nil if there's no such match.
3485 (defvar c-find-decl-syntactic-pos nil)
3486 (make-variable-buffer-local 'c-find-decl-syntactic-pos)
3487 (defvar c-find-decl-match-pos nil)
3488 (make-variable-buffer-local 'c-find-decl-match-pos)
3490 (defsubst c-invalidate-find-decl-cache (change-min-pos)
3491 (and c-find-decl-syntactic-pos
3492 (< change-min-pos c-find-decl-syntactic-pos)
3493 (setq c-find-decl-syntactic-pos nil)))
3503 (defmacro c-debug-put-decl-spot-faces (match-pos decl-pos)
3505 `(c-save-buffer-state ((match-pos ,match-pos) (decl-pos ,decl-pos))
3506 (c-debug-add-face (max match-pos (point-min)) decl-pos
3508 (c-debug-add-face decl-pos (min (1+ decl-pos) (point-max))
3519 ;; inside `c-find-decl-spots'. The point is left at `cfd-match-pos'
3571 ;; preceding syntactic ws to set `cfd-match-pos' and to catch
3579 (setq cfd-match-pos cfd-re-match
3581 (setq cfd-match-pos cfd-prop-match
3584 (goto-char cfd-match-pos)
3586 (when (< cfd-match-pos cfd-limit)
3593 (setq cfd-continue-pos (if cfd-prop-match
3648 (let ((cfd-start-pos (point))
3655 ;; match. If this is greater than `cfd-continue-pos', the
3667 (cfd-match-pos cfd-limit)
3669 cfd-continue-pos
3671 ;; This can be greater than `cfd-continue-pos' when we get
3674 (cfd-token-pos 0)
3682 (let (start-in-literal start-in-macro syntactic-pos)
3726 (<= cfd-limit (c-point 'bonl cfd-start-pos))
3728 (goto-char cfd-start-pos)
3737 ;; (< cfd-continue-pos cfd-start-pos) case below and it'll
3739 (setq cfd-continue-pos start-in-literal))
3750 ;; (< cfd-continue-pos cfd-start-pos) case below to make it
3752 (setq cfd-continue-pos (1- cfd-start-pos)
3764 (c-invalidate-find-decl-cache cfd-start-pos)
3766 (setq syntactic-pos (point))
3767 (unless (eq syntactic-pos c-find-decl-syntactic-pos)
3772 (c-backward-syntactic-ws c-find-decl-syntactic-pos))
3774 ;; If we hit `c-find-decl-syntactic-pos' and
3775 ;; `c-find-decl-match-pos' is set then we install the cached
3776 ;; values. If we hit `c-find-decl-syntactic-pos' and
3777 ;; `c-find-decl-match-pos' is nil then we know there's no decl
3778 ;; prefix in the whitespace before `c-find-decl-syntactic-pos'
3780 ;; didn't hit `c-find-decl-syntactic-pos' then we're now in
3782 (if (and (eq (point) c-find-decl-syntactic-pos)
3783 c-find-decl-match-pos)
3784 (setq cfd-match-pos c-find-decl-match-pos
3785 cfd-continue-pos syntactic-pos)
3787 (setq c-find-decl-syntactic-pos syntactic-pos)
3803 (setq c-find-decl-match-pos (and (< cfd-match-pos cfd-start-pos)
3804 cfd-match-pos)))))
3806 ;; Advance `cfd-continue-pos' if it's before the start position.
3811 (when (and cfd-continue-pos (< cfd-continue-pos cfd-start-pos))
3820 (goto-char (or start-in-literal cfd-start-pos))
3840 (goto-char cfd-start-pos)
3860 ;; `cfd-match-pos' so we can continue at the start position.
3863 (goto-char cfd-start-pos)))
3868 (setq cfd-continue-pos (point))
3869 (when (and cfd-re-match (< cfd-re-match cfd-continue-pos))
3871 (when (and cfd-prop-match (< cfd-prop-match cfd-continue-pos))
3874 (if syntactic-pos
3878 ;; `cfd-token-pos'. The loop below will later go back using
3879 ;; `cfd-continue-pos' to fix declarations inside the
3881 (when (and cfd-match-pos (< cfd-match-pos syntactic-pos))
3882 (goto-char syntactic-pos)
3884 (and cfd-continue-pos
3885 (< cfd-continue-pos (point))
3886 (setq cfd-token-pos (point))))
3889 ;; within a literal or macro. `cfd-continue-pos' is set to a
3897 (< cfd-match-pos cfd-limit)
3903 (and (eq (char-before cfd-match-pos) ?<)
3904 (not (c-get-char-property (1- cfd-match-pos)
3907 ;; If `cfd-continue-pos' is less or equal to
3908 ;; `cfd-token-pos', we've got a hit inside a macro
3913 (= cfd-continue-pos cfd-token-pos)
3916 ;; If `cfd-continue-pos' is less than `cfd-token-pos'
3922 (when (> cfd-continue-pos cfd-token-pos)
3924 (setq cfd-token-pos (point)))
3933 (goto-char cfd-continue-pos)
3942 (>= (point) cfd-start-pos)
3948 (when (> cfd-match-pos cfd-macro-end)
3951 (goto-char cfd-match-pos)
3954 (< (point) cfd-match-pos)))
3969 (c-debug-put-decl-spot-faces cfd-match-pos (point))
3970 (if (funcall cfd-fun cfd-match-pos (/= cfd-macro-end 0))
3977 (goto-char cfd-continue-pos)
3978 (if (= cfd-continue-pos cfd-limit)
3979 (setq cfd-match-pos cfd-limit)
4255 (defmacro c-forward-id-comma-list (type update-safe-pos)
4262 ,(when update-safe-pos
4263 `(setq safe-pos (point)))
4294 (let ((kwd-sym (c-keyword-sym (match-string match))) safe-pos pos
4305 (setq safe-pos (point))
4323 (when (and (setq pos (c-up-list-forward))
4324 (eq (char-before pos) ?\)))
4329 (while (c-syntactic-re-search-forward c-symbol-start pos t)
4335 (goto-char pos)
4337 (setq safe-pos (point))))
4343 (setq safe-pos (point)))
4349 (setq safe-pos (point))))
4368 (goto-char safe-pos)
4378 (goto-char safe-pos)
4426 (let ((start (point)) res pos tmp
4434 arg-start-pos)
4488 (setq pos (point))
4530 (while arg-start-pos
4531 (c-put-c-type-property (1- (car arg-start-pos))
4533 (setq arg-start-pos (cdr arg-start-pos)))
4542 (setq pos (point))
4546 (setq tmp pos)
4597 (setq arg-start-pos (cons (point) arg-start-pos)))
4654 (let ((beg-pos (point)))
4658 (goto-char beg-pos)
4668 (goto-char beg-pos)
4694 (let ((pos (point)) (start (point)) res id-start id-end
4736 (setq pos (point)
4742 (setq pos (point)
4763 (setq pos (point))
4773 (setq pos (point)
4787 (setq pos (point)
4791 (goto-char pos)
4813 (c-add-type start (1+ pos))
4815 (setq pos (point)
4836 (goto-char pos)
4860 (let ((start (point)) pos res name-res id-start id-end id-range)
4876 (setq pos (point))
4882 (c-add-type pos (point))
4892 (setq pos nil)
4910 (setq pos (point))))
4927 (let (safe-pos)
4930 (setq safe-pos (point))
4944 (goto-char safe-pos)
4947 (if pos
4948 (goto-char pos)
5002 (setq pos (point))
5048 (goto-char pos))))
5087 (setq type-start start-pos
5088 id-start start-pos))
5172 (let (;; `start-pos' is used below to point to the start of the
5176 (start-pos (point))
5285 (setq start-pos kwd-clause-end))
5291 start-pos kwd-clause-end)
5340 (setq id-start start-pos))
5377 (let ((start (point)) (paren-depth 0) pos
5484 (setq pos (c-up-list-forward (point)))
5485 (eq (char-before pos) ?\)))
5487 (goto-char pos)
5812 (let (pos)
5818 (setq pos (match-end 0))
5837 (<= (match-end 0) pos))))
6232 (defun c-in-method-def-p ()
6598 (let ((fallback-pos (point)) knr-argdecl-start)
6613 (cons (if (eq (char-after fallback-pos) ?{)
6617 (goto-char fallback-pos))))
6745 (let ((open-brace (point)) kwd-start first-specifier-pos)
6771 (goto-char (setq first-specifier-pos (match-beginning 0)))
6819 ;; by going forward from `first-specifier-pos', which is the
6823 (goto-char first-specifier-pos)
6841 ;; before `kwd-start'. That means `first-specifier-pos'
6845 (goto-char (setq first-specifier-pos (match-beginning 0)))
6847 (setq first-specifier-pos kwd-start))))
6849 (goto-char first-specifier-pos))
6862 (let ((open-paren-pos (c-most-enclosing-brace paren-state)))
6863 (when open-paren-pos
6865 (goto-char open-paren-pos)
6868 (c-safe-position open-paren-pos paren-state)
6871 (vector (point) open-paren-pos))))))
6876 ;; CONTAINING-SEXP is the buffer pos of the innermost containing
6980 (pos< (progn
6985 pos< here))
7299 (let ((old-pos (point))
7305 (cond ((= (point) old-pos)
7314 (goto-char old-pos)
7321 (/= old-pos old-boi)
7327 (goto-char old-pos)
7364 (let ((paren-pos (point))
7372 (when (/= paren-pos boi)
7379 (goto-char (1+ paren-pos))
7383 ;; syntactic element won't get an anchor pos.
7387 (c-add-syntax 'arglist-cont-nonempty nil paren-pos)))
7400 (/= paren-pos (point)))
7402 (goto-char paren-pos)
7413 (if (= paren-pos boi)
7417 (goto-char paren-pos)
7598 step-type tmpsymbol keyword injava-inher special-brace-list tmp-pos
7621 ;; an anchor pos. It's stored in syntactic-relpos.
8026 (setq tmp-pos (point))))
8030 ((eq (char-after tmp-pos) ?:)
8031 (if (or (> tmp-pos indent-point)
8032 (= (c-point 'bosws) (1+ tmp-pos)))
8041 (goto-char (1+ tmp-pos))
8960 (if (integerp (c-langelem-pos (car p)))
8962 (setq syntactic-relpos (c-langelem-pos (car p)))
9031 (c-langelem-pos langelem)))
9145 (if (c-langelem-pos langelem)
9147 (c-langelem-pos langelem)))
9182 (setq anchor (c-langelem-pos (car langelems)))))