Lines Matching defs:subprogram
111 ;;; `which-function-mode': Display the name of the subprogram the cursor is
115 ;;; code corresponding to a subprogram
365 "*Non-nil means `ada-move-to-start' moves to the subprogram declaration, not to 'begin'."
601 ;; "with" needs to be included in the regexp, to match generic subprogram parameters
607 ;; subprogram name: operator ("[+/=*]")
611 ;; subprogram name: name
615 "Regexp matching Ada subprogram start.
683 "Regexp for the start of a subprogram.")
728 (defconst ada-imenu-subprogram-menu-re
737 (list nil ada-imenu-subprogram-menu-re 2)
1175 ;; is right after a multi-line subprogram declaration (the comments are
1841 ;; subprogram declarations. This is done in two steps:
2574 ;; or a access to subprogram declaration
2694 ;; previous subprogram/package
2834 ;; After an affectation (default parameter value in subprogram
3027 "Calculate the indentation when point is just before a subprogram.
3105 ;; subprogram declaration (in that case, we are at this point inside
3661 ;; either the end of subprogram parameters or (<>)
4181 ;; subprogram definition: procedure .... (
4466 ;; on first line of subprogram body
4599 (define-key ada-mode-map "\C-c\C-n" 'ada-make-subprogram-body)
4646 (define-key map "p" 'ada-subprogram-body)
4776 ["Make body for subprogram" ada-make-subprogram-body t]
4778 ["Narrow to subprogram" ada-narrow-to-defun t])
4787 ["Proc/func Body" ada-subprogram-body t]
5074 "Last subprogram name returned by `ada-which-function'.")
5117 ;; No look for the closest subprogram body that has not ended yet.
5120 ;; the subprogram. The goal is to be as efficient as possible.
5123 (re-search-backward ada-imenu-subprogram-menu-re nil t))
5324 "Make text outside current subprogram invisible.
5325 The subprogram visible is the one that contains or follow point.
5348 ;; The Ada mode has a set of function to automatically generate a subprogram
5459 (defun ada-make-subprogram-body ()
5460 "Create a dummy subprogram body in package body file from spec surrounding point."
5494 (error "Not in subprogram spec"))))
5566 (autoload 'ada-subprogram-body "ada-stmt" nil t)