Lines Matching +defs:indent +defs:string
141 (let ((xemacs-running (or (string-match "Lucid" emacs-version)
142 (string-match "XEmacs" emacs-version))))
152 (let ((version-string "3.7"))
154 (message version-string)
155 version-string)))
174 (defcustom ada-broken-decl-indent 0
175 "*Number of columns to indent a broken declaration.
183 (defcustom ada-broken-indent 2
184 "*Number of columns to indent the continuation of a broken line.
191 (defcustom ada-continuation-indent ada-broken-indent
192 "*Number of columns to indent the continuation of broken lines in parenthesis.
251 (defcustom ada-indent 3
260 (defcustom ada-indent-after-return t
261 "*Non-nil means automatically indent after RET or LFD."
264 (defcustom ada-indent-align-comments t
267 Note that indentation is calculated only if `ada-indent-comment-as-code' is t.
271 -- aligned if ada-indent-align-comments is t"
274 (defcustom ada-indent-comment-as-code t
275 "*Non-nil means indent comment lines as code.
276 A nil value means do not auto-indent comments."
279 (defcustom ada-indent-handle-comment-special nil
284 a comment and `ada-indent-handle-comment-special' is t.
291 ( -- `ada-indent-handle-comment-special' is nil
296 ( -- `ada-indent-handle-comment-special' is non-nil
301 (defcustom ada-indent-is-separate t
302 "*Non-nil means indent 'is separate' or 'is abstract' if on a single line."
305 (defcustom ada-indent-record-rel-type 3
313 (defcustom ada-indent-renames ada-broken-indent
315 If `ada-indent-return' is null or negative, the indentation is done relative to
316 the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used).
324 (defcustom ada-indent-return 0
326 If `ada-indent-return' is null or negative, the indentation is done relative to
327 the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used).
334 (defcustom ada-indent-to-open-paren t
335 "*Non-nil means indent according to the innermost open parenthesis."
342 :type 'string :group 'ada)
347 :type 'string :group 'ada)
349 (defcustom ada-label-indent -4
350 "*Number of columns to indent a label.
376 (split-string (or (getenv "ADA_INCLUDE_PATH") "") ":")
393 (defcustom ada-stmt-end-indent 0
394 "*Number of columns to indent the end of a statement on a separate line.
401 (defcustom ada-tab-policy 'indent-auto
404 `indent-rigidly' : always adds `ada-indent' blanks at the beginning of the line.
405 `indent-auto' : use indentation functions in this file.
406 `always-tab' : do `indent-relative'."
407 :type '(choice (const indent-auto)
408 (const indent-rigidly)
412 (defcustom ada-use-indent ada-broken-indent
420 (defcustom ada-when-indent 3
428 (defcustom ada-with-indent ada-broken-indent
477 (defconst ada-83-string-keywords
489 (defconst ada-95-string-keywords
494 (defconst ada-2005-string-keywords
573 (concat "\\<" (regexp-opt ada-83-string-keywords t) "\\>"))
580 ada-95-string-keywords
581 ada-83-string-keywords) t) "\\>"))
588 ada-2005-string-keywords
589 ada-83-string-keywords
590 ada-95-string-keywords) t) "\\>"))
616 The actual start is at (match-beginning 4). The name is in (match-string 5).")
625 The package name is in (match-string 4).")
793 (let ((line (if (match-beginning 2) (match-string 2) (match-string 1)))
794 (file (if (match-beginning 2) (match-string 1)
797 (match-string 1))))
803 (compilation-find-file (point-marker) (match-string 1) "./")
807 (goto-line (string-to-number line)))
831 ;; - " starts a string, but not if inside a constant character.
834 ;; the standard Emacs functions for sexp (see `ada-in-string-p')
861 ;; define string brackets (`%' is alternative string bracket, but
925 (match-string 1))
931 (length (match-string 1))
932 (match-string 1))
934 (replace-match (make-string (length (match-string 1)) ?@))))
999 (defsubst ada-in-string-p (&optional parse-result)
1000 "Return t if point is inside a string.
1006 (defsubst ada-in-string-or-comment-p (&optional parse-result)
1007 "Return t if inside a comment or string.
1012 (or (ada-in-string-p parse-result) (ada-in-comment-p parse-result)))
1052 (not (ada-in-string-or-comment-p))
1118 Indent line, insert newline and indent the new line. '\\[newline-and-indent]'
1121 Indent all lines in region '\\[ada-indent-region]'
1135 Start a comment '\\[indent-for-comment]'
1138 Continue comment on next line '\\[indent-new-comment-line]'
1169 ;; used by autofill and indent-new-comment-line
1179 (indent-new-comment-line soft))))
1181 (set (make-local-variable 'indent-line-function)
1182 'ada-indent-current-function)
1259 (ada-make-filename-from-adaname (match-string 3))
1267 (ada-make-filename-from-adaname (match-string 1))
1275 (ada-make-filename-from-adaname (match-string 1))
1291 (add-to-list 'align-dq-string-modes 'ada-mode)
1346 ;; Support for indent-new-comment-line (Especially for XEmacs)
1368 (min ada-indent (current-column))))))
1431 ;; For backward compatibility, this variable can also be a string.
1441 (lambda(a b) (string< (car a) (car b)))))
1444 (lambda(a b) (string< (car a) (car b)))))
1481 (assoc-string word ada-case-exception t))
1482 (setcar (assoc-string word ada-case-exception t) word)
1525 (modify-syntax-entry ?_ (make-string 1 underscore-syntax)
1534 (assoc-string word ada-case-exception-substring t))
1535 (setcar (assoc-string word ada-case-exception-substring t) word)
1560 (if (char-equal (string-to-char word) ?*)
1563 (unless (assoc-string word ada-case-exception-substring t)
1565 (unless (assoc-string word ada-case-exception t)
1613 (modify-syntax-entry ?_ (make-string 1 underscore-syntax) (syntax-table)))
1633 (if (setq match (assoc-string (buffer-substring start end)
1665 ;; if in a string or a comment
1666 (not (ada-in-string-or-comment-p))
1744 (char-to-string key)
1809 ;; do nothing if it is a string or comment
1810 (ada-in-string-or-comment-p)
1840 ;; Some special algorithms are provided to indent the parameter lists in
1871 (ada-search-ignore-string-comment
1923 (ada-search-ignore-string-comment "[ \t\n]*;" nil end t))
1933 (setq param (list (match-string 1)))
1934 (ada-search-ignore-string-comment ":" nil epos t 'search-forward)
1942 (ada-search-ignore-string-comment
1951 (ada-search-ignore-string-comment
1960 (ada-search-ignore-string-comment
1976 (list (match-string 0))))
1984 (ada-search-ignore-string-comment
2034 ;; yes => re-indent it
2036 (ada-indent-current)
2052 (ada-indent-current)
2064 (indent-to (+ column parlen 1))
2096 (indent-to (+ column typlen 1))
2102 ;; no => insert ';' and newline and indent
2105 (indent-to firstcol))
2109 ;; put it in a new line and indent it
2111 (ada-indent-newline-indent))
2119 ;; All indentations are indicated as a two-element string:
2121 ;; - offset to indent from this position (can also be a symbol or a list
2134 ;; - `ada-indent-region': Re-indent a region of text
2135 ;; - `ada-justified-indent-current': Re-indent the current line and shows the
2137 ;; - `ada-indent-current': Re-indent the current line
2138 ;; - `ada-get-current-indent': Calculate the indentation for the current line,
2140 ;; - `ada-get-indent-*': Calculate the indentation in a specific context.
2145 (defun ada-indent-region (beg end)
2162 (ada-indent-current))
2167 (defun ada-indent-newline-indent ()
2168 "Indent the current line, insert a newline and then indent the new line."
2170 (ada-indent-current)
2172 (ada-indent-current))
2174 (defun ada-indent-newline-indent-conditional ()
2175 "Insert a newline and indent it.
2176 The original line is indented first if `ada-indent-after-return' is non-nil."
2178 (if ada-indent-after-return (ada-indent-current))
2180 (ada-indent-current))
2182 (defun ada-justified-indent-current ()
2186 (let ((cur-indent (ada-indent-current)))
2189 (goto-char (car cur-indent))
2192 (if (equal (cdr cur-indent) '(0))
2193 (message (concat "same indentation as line " (number-to-string line)))
2199 (number-to-string x))
2203 (cdr cur-indent)
2206 (goto-char (car cur-indent))
2210 "Re-indent and re-case all the files found on the command line.
2219 (ada-indent-region (point-min) (point-max))
2231 (defun ada-indent-current ()
2238 cur-indent tmp-indent
2239 prev-indent)
2251 (setq cur-indent
2257 (ada-get-current-indent))
2262 ;; Evaluate the list to get the column to indent to
2263 ;; prev-indent contains the column to indent to
2264 (if cur-indent
2265 (setq prev-indent (save-excursion (goto-char (car cur-indent))
2267 tmp-indent (cdr cur-indent))
2268 (setq prev-indent 0 tmp-indent '()))
2270 (while (not (null tmp-indent))
2272 ((numberp (car tmp-indent))
2273 (setq prev-indent (+ prev-indent (car tmp-indent))))
2275 (setq prev-indent (+ prev-indent (eval (car tmp-indent)))))
2277 (setq tmp-indent (cdr tmp-indent)))
2279 ;; only re-indent if indentation is different then the current
2280 (if (= (save-excursion (back-to-indentation) (current-column)) prev-indent)
2284 (indent-to prev-indent))
2298 cur-indent
2301 (defun ada-get-current-indent ()
2320 ((and ada-indent-to-open-paren
2340 (list column 'ada-broken-indent)
2349 ;; and then C) -- indented by ada-broken-indent
2359 (list column 'ada-continuation-indent)
2367 (ada-indent-on-previous-lines nil orgpoint orgpoint))
2394 (setq limit (car (ada-search-ignore-string-comment ";" t))))
2398 (ada-search-ignore-string-comment ada-loop-start-re t limit))
2405 (setq label (- ada-label-indent))))))))
2409 ;; after limited, we indent on it, otherwise we indent on the
2420 (car (ada-search-ignore-string-comment "\\<type\\>" t)))
2438 (ada-indent-on-previous-lines nil orgpoint orgpoint)
2461 'ada-when-indent)))
2471 (ada-indent-on-previous-lines nil orgpoint orgpoint)
2474 (ada-search-ignore-string-comment
2477 'ada-stmt-end-indent))))
2490 (ada-indent-on-previous-lines nil orgpoint orgpoint)
2492 (ada-search-ignore-string-comment ada-loop-start-re
2495 (ada-indent-on-previous-lines nil orgpoint orgpoint)
2496 (list (progn (back-to-indentation) (point)) 'ada-stmt-end-indent)))))
2508 (ada-search-ignore-string-comment
2511 (ada-search-ignore-string-comment "for" t nil nil
2514 'ada-indent-record-rel-type)))
2525 (ada-indent-on-previous-lines nil orgpoint orgpoint))))
2534 (if (and ada-indent-is-separate
2542 (list (progn (back-to-indentation) (point)) 'ada-indent))
2547 (list (progn (back-to-indentation) (point)) 'ada-indent)))))
2557 (let ((var 'ada-indent-return))
2562 (set 'pos (ada-search-ignore-string-comment ";\\|return\\>" t)))
2566 (set 'var 'ada-indent-renames)))
2586 ;; The indentation depends of the value of ada-indent-return
2593 ;; Only do something special if the user want to indent
2601 (ada-indent-on-previous-lines nil orgpoint orgpoint)))))))
2626 (list (progn (back-to-indentation) (point)) 'ada-stmt-end-indent)))
2633 (if ada-indent-comment-as-code
2640 (if (and ada-indent-align-comments
2649 (unless (ada-in-string-p)
2655 (ada-indent-on-previous-lines nil orgpoint orgpoint)))
2684 (ada-indent-on-previous-lines nil orgpoint orgpoint))
2697 (ada-search-ignore-string-comment
2707 (ada-indent-on-previous-lines nil orgpoint orgpoint))))
2715 (ada-indent-on-previous-lines nil orgpoint orgpoint)
2716 (append (ada-indent-on-previous-lines nil orgpoint orgpoint)
2717 '(ada-label-indent))))
2724 (or result (ada-indent-on-previous-lines nil orgpoint orgpoint))))
2726 (defun ada-indent-on-previous-lines (&optional nomove orgpoint initial-pos)
2737 (ada-get-indent-paramlist)
2746 (ada-get-indent-nochange)
2751 ada-indent-to-open-paren
2753 (ada-get-indent-open-paren))
2756 (ada-get-indent-end orgpoint))
2759 (ada-get-indent-loop orgpoint))
2762 (ada-get-indent-subprog orgpoint))
2765 (ada-get-indent-block-start orgpoint))
2768 (ada-get-indent-type orgpoint))
2774 (ada-get-indent-if orgpoint))
2777 (ada-get-indent-case orgpoint))
2780 (ada-get-indent-when orgpoint))
2783 (ada-get-indent-label orgpoint))
2786 (ada-get-indent-nochange))
2791 (- ada-label-indent))))
2800 'ada-with-indent
2801 'ada-use-indent))))
2804 (ada-get-indent-noindent orgpoint)))))
2807 (defun ada-get-indent-open-paren ()
2811 (defun ada-get-indent-nochange ()
2818 (defun ada-get-indent-paramlist ()
2821 (ada-search-ignore-string-comment "[^ \t\n]" t nil t)
2830 (goto-char (cdr (ada-search-ignore-string-comment "(\\|;" t nil t)))
2838 (list (point) 'ada-broken-indent))
2842 (goto-char (cdr (ada-search-ignore-string-comment "(\\|;" t nil t)))
2846 (defun ada-get-indent-end (orgpoint)
2850 (indent nil))
2854 (ada-search-ignore-string-comment ";" nil orgpoint nil
2863 (save-excursion (ada-check-matching-start (match-string 0)))
2871 (ada-check-matching-start (match-string 0))
2877 (ada-search-ignore-string-comment "\\<type\\>" t))
2883 (setq defun-name (match-string 0))
2896 (setq indent (list (point) 0))
2899 indent))
2907 'ada-broken-indent))))
2910 'ada-broken-indent))))
2912 (defun ada-get-indent-case (orgpoint)
2924 (ada-search-ignore-string-comment
2926 (ada-search-ignore-string-comment
2930 (unless (ada-search-ignore-string-comment "when" t opos)
2932 (list (save-excursion (back-to-indentation) (point)) 'ada-indent)))
2937 (setq match-cons (ada-search-ignore-string-comment
2940 (list (save-excursion (back-to-indentation) (point)) 'ada-broken-indent))
2945 (setq match-cons (ada-search-ignore-string-comment
2947 (list (save-excursion (back-to-indentation) (point)) 'ada-when-indent))
2953 'ada-broken-indent)))))
2955 (defun ada-get-indent-when (orgpoint)
2958 (let ((cur-indent (save-excursion (back-to-indentation) (point))))
2959 (if (ada-search-ignore-string-comment "[ \t\n]*=>" nil orgpoint)
2960 (list cur-indent 'ada-indent)
2961 (list cur-indent 'ada-broken-indent))))
2963 (defun ada-get-indent-if (orgpoint)
2966 (let ((cur-indent (save-excursion (back-to-indentation) (point)))
2971 (while (and (setq match-cons (ada-search-ignore-string-comment
2980 ;; => indent according to 'then',
2981 ;; => else indent according to 'if'
2986 (setq cur-indent (save-excursion (back-to-indentation) (point))))
2989 (list cur-indent 'ada-indent))
2991 (list cur-indent 'ada-broken-indent))))
2993 (defun ada-get-indent-block-start (orgpoint)
3003 (ada-indent-on-previous-lines t orgpoint)))
3011 ;; If record is at the beginning of the line, indent from there
3015 (list (save-excursion (back-to-indentation) (point)) 'ada-indent)
3017 ;; else indent relative to the type command
3019 (car (ada-search-ignore-string-comment "\\<type\\>" t)))
3020 'ada-indent)))
3024 (list (save-excursion (back-to-indentation) (point)) 'ada-indent)))))
3026 (defun ada-get-indent-subprog (orgpoint)
3030 (cur-indent (save-excursion (back-to-indentation) (point)))
3037 (ada-search-ignore-string-comment
3059 (not (ada-search-ignore-string-comment
3061 (list cur-indent 'ada-indent))
3069 (ada-search-ignore-string-comment
3073 (ada-search-ignore-string-comment ada-subprog-start-re t)
3074 (ada-get-indent-noindent orgpoint))
3082 (ada-indent-on-previous-lines t orgpoint)))
3087 (ada-search-ignore-string-comment ";" nil orgpoint nil 'search-forward))
3088 (list cur-indent 0))
3093 (list cur-indent 'ada-broken-indent)))))
3095 (defun ada-get-indent-noindent (orgpoint)
3115 'ada-broken-decl-indent))
3121 (setq label (- ada-label-indent))
3127 (and (ada-search-ignore-string-comment "\\<private\\>" nil orgpoint)
3133 (and (ada-search-ignore-string-comment "\\<record\\>" nil orgpoint)
3143 (ada-search-ignore-string-comment ";" nil orgpoint nil
3147 'ada-broken-indent)))))))
3149 (defun ada-get-indent-label (orgpoint)
3153 (cur-indent (save-excursion (back-to-indentation) (point))))
3154 (ada-search-ignore-string-comment ":" nil)
3158 (setq match-cons (ada-search-ignore-string-comment
3161 (ada-get-indent-loop orgpoint))
3165 (setq match-cons (ada-search-ignore-string-comment
3168 (list (save-excursion (back-to-indentation) (point)) 'ada-indent))
3173 (ada-search-ignore-string-comment ";" nil orgpoint))
3174 (list cur-indent 0)
3175 (list cur-indent 'ada-broken-indent)))
3179 (list cur-indent '(- ada-label-indent))))))
3181 (defun ada-get-indent-loop (orgpoint)
3191 (- ada-label-indent)
3200 (ada-search-ignore-string-comment ";" nil orgpoint nil
3207 (setq pos (ada-get-indent-block-start orgpoint))
3232 (setq match-cons (ada-search-ignore-string-comment
3238 (list (save-excursion (back-to-indentation) (point)) 'ada-indent))
3239 (list (save-excursion (back-to-indentation) (point)) 'ada-broken-indent))
3246 (setq match-cons (ada-search-ignore-string-comment
3250 ;; indent according to 'loop', if it's first in the line;
3258 'ada-indent))
3264 'ada-broken-indent))))
3274 (setq match-cons (ada-search-ignore-string-comment
3280 ;; indent according to 'loop', if it's first in the line;
3288 'ada-indent))
3291 'ada-broken-indent))))))
3293 (defun ada-get-indent-type (orgpoint)
3303 (setq match-dat (ada-search-ignore-string-comment
3316 (setq match-dat (ada-search-ignore-string-comment
3319 (list (save-excursion (back-to-indentation) (point)) 'ada-indent))
3324 (ada-search-ignore-string-comment ";" nil orgpoint nil
3332 (ada-search-ignore-string-comment "is" nil orgpoint nil
3335 (list (save-excursion (back-to-indentation) (point)) 'ada-broken-indent))
3341 'ada-broken-indent)))))
3406 (setq match-dat (ada-search-ignore-string-comment
3454 Do not call this function from within a string."
3461 (ada-in-string-p)))
3473 (if (ada-search-ignore-string-comment ada-end-stmt-re nil limit)
3484 (old-syntax (char-to-string (char-syntax ?_))))
3490 (ada-search-ignore-string-comment "\\w" t nil t)
3491 (ada-search-ignore-string-comment "\\w" nil nil t)))
3584 (ada-search-ignore-string-comment
3592 (ada-search-ignore-string-comment ada-matching-decl-start-re t))
3619 (ada-search-ignore-string-comment
3715 (ada-search-ignore-string-comment ada-subprog-start-re t)
3742 (ada-search-ignore-string-comment ada-matching-start-re t))
3788 (pos (ada-search-ignore-string-comment
3795 (number-to-string (count-lines 1 (1+ current)))))))
3829 (ada-search-ignore-string-comment ")" nil))
3830 (let ((tmp (ada-search-ignore-string-comment
3861 (let ((pos (ada-search-ignore-string-comment
3874 (let ((pos (ada-search-ignore-string-comment
3909 (ada-search-ignore-string-comment "then" nil nil nil
3919 (unless (ada-search-ignore-string-comment
3961 (ada-search-ignore-string-comment regex nil))
3988 (ada-search-ignore-string-comment "is\\|;")
4011 (ada-search-ignore-string-comment "is" nil nil nil
4037 (defun ada-search-ignore-string-comment
4045 in case we are searching for a constant string.
4076 ;; If inside a string, skip it (and the following comments)
4078 ((ada-in-string-p parse-result)
4175 (ada-search-ignore-string-comment "(\\|)" t nil t)
4199 (not (ada-in-string-or-comment-p))
4216 (while (and (setq result (ada-search-ignore-string-comment regexp backwardp))
4244 (if (or (not ada-indent-handle-comment-special)
4261 (cond ((eq ada-tab-policy 'indent-rigidly) (ada-tab-hard))
4262 ((eq ada-tab-policy 'indent-auto)
4264 (ada-indent-region (region-beginning) (region-end))
4265 (ada-indent-current)))
4273 (cond ((eq ada-tab-policy 'indent-rigidly) (ada-untab-hard))
4274 ((eq ada-tab-policy 'indent-auto) (error "Not implemented"))
4278 (defun ada-indent-current-function ()
4279 "Ada mode version of the `indent-line-function'."
4294 (insert-char ? ada-indent))
4296 (forward-char ada-indent)))
4303 (indent-rigidly bol eol (- 0 ada-indent))))
4340 (if (not (ada-in-string-or-comment-p))
4345 (if (not (ada-in-string-or-comment-p))
4349 (if (not (ada-in-string-or-comment-p))
4353 (if (not (ada-in-string-or-comment-p))
4357 (if (not (ada-in-string-or-comment-p))
4367 (ada-in-string-or-comment-p)))
4377 (ada-in-string-or-comment-p))
4382 ((string= (match-string 1) "/=")
4384 ((string= (match-string 1) "..")
4386 ((string= (match-string 1) "**")
4388 ((string= (match-string 1) ":=")
4413 ;; do nothing if in string or comment or not on 'end ...;'
4417 (ada-in-string-or-comment-p)
4473 (ada-search-ignore-string-comment "is\\|;")
4486 (ada-search-ignore-string-comment "begin" nil nil nil
4564 (define-key ada-mode-map "\C-j" 'ada-indent-newline-indent-conditional)
4565 (define-key ada-mode-map "\C-m" 'ada-indent-newline-indent-conditional)
4567 (define-key ada-mode-map "\C-c\t" 'ada-justified-indent-current)
4568 (define-key ada-mode-map "\C-c\C-l" 'ada-indent-region)
4686 (setq ada-indent-after-return (not ada-indent-after-return))
4687 :style toggle :selected ada-indent-after-return]
4703 :included (string-match "gvd" ada-prj-default-debugger)])
4753 ["Indent Line" ada-indent-current-function t]
4754 ["Justify Current Indentation" ada-justified-indent-current t]
4755 ["Indent Lines in Selection" ada-indent-region t]
4757 (ada-indent-region (point-min) (point-max)) t]
4844 (string= mode-name "Ada"))
4865 (ada-indent-region beg end)))
4891 (let* (indent from to
4930 (setq indent (current-column))
4944 (set-left-margin from to indent)
4994 (while (string-match "\\." adaname)
5014 (if (string-match (concat "\\(.*\\)" (car suffixes) "$") name)
5016 name (match-string 1 name)))
5024 (if (string-match (concat "\\(.*\\)" (car suffixes) "$") name)
5026 name (match-string 1 name)))
5065 (setq ff-function-name (match-string 5)))
5067 (setq ff-function-name (match-string 4))))
5088 func-name indent
5127 (setq func-name (match-string-no-properties 2))
5134 (setq indent (current-column))
5135 (if (ada-search-ignore-string-comment
5137 (make-string indent ? ) "end;"))
5158 (unless (ada-search-ignore-string-comment
5178 (if (string-equal (car suffixes) (substring spec-name end))
5200 ;; overloaded as a string quote and type/instance delimiter. By default, a
5202 ;; So, for Font Lock mode purposes, we mark single quotes as having string
5210 ;; Mark single quotes as having string quote syntax in 'c' instances.
5213 ;; a string
5214 ;; This sets the properties of the characters, so that ada-in-string-p
5391 (ada-indent-newline-indent)
5393 (ada-indent-newline-indent)
5397 (ada-indent-newline-indent)))
5399 (ada-indent-newline-indent)
5403 (ada-indent-newline-indent)
5405 (ada-indent-newline-indent)
5437 (ada-search-ignore-string-comment ada-package-start-regexp nil))
5449 (ada-search-ignore-string-comment
5471 (ada-search-ignore-string-comment ")" nil)
5472 (ada-search-ignore-string-comment ";" nil)))