Lines Matching +defs:auto +defs:mode +defs:list
1 ;;; ada-mode.el --- major-mode for editing Ada sources
30 ;;; This mode is a major mode for editing Ada code. This is a major
31 ;;; rewrite of the file packaged with Emacs-20. The Ada mode is
32 ;;; composed of four Lisp files: ada-mode.el, ada-xref.el, ada-prj.el
33 ;;; and ada-stmt.el. Only this file (ada-mode.el) is completely
38 ;;; Note: this mode will not work with Emacs 19. If you are on a VMS
44 ;;; Emacs should enter Ada mode automatically when you load an Ada file.
46 ;;; If the ada-mode does not start automatically, then simply type the
48 ;;; M-x ada-mode
50 ;;; By default, ada-mode is configured to take full advantage of the GNAT
53 ;;; variable in your .emacs (Note: do not set this in the ada-mode-hook, it
57 ;;; This mode requires find-file.el to be present on your system.
60 ;;; The first Ada mode for GNU Emacs was written by V. Broman in
61 ;;; 1985. He based his work on the already existing Modula-2 mode.
64 ;;; Lynn Slater wrote an extensive Ada mode in 1989. It consisted of
67 ;;; (wuarchive.wustl.edu:/languages/ada) as ada-mode-1.06a.tar.Z.
69 ;;; The probably very first Ada mode (called electric-ada.el) was
75 ;;; Some ideas from the Ada mode mailing list have been
76 ;;; added. Some of the functionality of L. Slater's mode has not
77 ;;; (yet) been recoded in this new mode. Perhaps you prefer sticking
89 ;;; to the ada-mode
103 ;;; the customize mode. They are sorted in alphabetical order in this
108 ;;; should be loaded before the ada-mode, which will then setup some variables
110 ;;; Here is the list of these modes:
111 ;;; `which-function-mode': Display the name of the subprogram the cursor is
112 ;;; in in the mode line.
113 ;;; `outline-mode': Provides the capability to collapse or expand the code
116 ;;; `align': This mode is now provided with Emacs 21, but can also be
120 ;;; `imenu': Provides a menu with the list of entities defined in the current
123 ;;; file to see the list of entities defined in it and to jump to them
125 ;;; `abbrev-mode': Provides the capability to define abbreviations, which
133 (defvar compile-auto-highlight)
149 (defun ada-mode-version ()
150 "Return Ada mode version."
157 (defvar ada-mode-hook nil
158 "*List of functions to call when Ada mode is invoked.
159 This hook is automatically executed after the `ada-mode' is
164 "Major mode for editing and compiling Ada source in Emacs."
168 (defcustom ada-auto-case t
202 `ada-capitalize-word' or `ada-no-auto-case'."
207 (const ada-no-auto-case))
211 (list (convert-standard-filename' "~/.emacs_case_exceptions"))
233 (const ada-no-auto-case))
244 (const ada-no-auto-case))
276 A nil value means do not auto-indent comments."
340 Note: if you modify this variable, you will have to invoke `ada-mode'
379 "*Default list of directories to search for Ada files.
401 (defcustom ada-tab-policy 'indent-auto
405 `indent-auto' : use indentation functions in this file.
407 :type '(choice (const indent-auto)
438 This will determine what features are made available through the Ada mode.
460 (defvar ada-mode-menu (make-sparse-keymap "Ada")
461 "Menu for Ada mode.")
463 (defvar ada-mode-map (make-sparse-keymap)
464 "Local keymap used for Ada mode.")
466 (defvar ada-mode-abbrev-table nil
467 "Local abbrev table for Ada mode.")
469 (defvar ada-mode-syntax-table nil
472 (defvar ada-mode-symbol-syntax-table nil
518 (defvar ada-align-list
525 See `align-mode-alist' for more information.")
531 (modes . '(ada-mode)))
535 (modes . '(ada-mode)))
538 (modes . '(ada-mode)))
542 (modes . '(ada-mode)))
694 This is a list (point buffer).
736 (list
737 (list nil ada-imenu-subprogram-menu-re 2)
738 (list "*Specs*"
743 ada-imenu-comment-re "\\)";; parameter list or simple space
751 "Imenu generic expression for Ada mode.
838 ;; character. This is already done in `font-lock-mode' (in
840 ;; mechanism. If font-lock-mode is not activated, we do it by hand in
854 "Create the two syntax tables use in the Ada mode.
858 (setq ada-mode-syntax-table (make-syntax-table))
859 (set-syntax-table ada-mode-syntax-table)
864 (modify-syntax-entry ?% "$" ada-mode-syntax-table)
865 (modify-syntax-entry ?\" "\"" ada-mode-syntax-table)
867 (modify-syntax-entry ?: "." ada-mode-syntax-table)
868 (modify-syntax-entry ?\; "." ada-mode-syntax-table)
869 (modify-syntax-entry ?& "." ada-mode-syntax-table)
870 (modify-syntax-entry ?\| "." ada-mode-syntax-table)
871 (modify-syntax-entry ?+ "." ada-mode-syntax-table)
872 (modify-syntax-entry ?* "." ada-mode-syntax-table)
873 (modify-syntax-entry ?/ "." ada-mode-syntax-table)
874 (modify-syntax-entry ?= "." ada-mode-syntax-table)
875 (modify-syntax-entry ?< "." ada-mode-syntax-table)
876 (modify-syntax-entry ?> "." ada-mode-syntax-table)
877 (modify-syntax-entry ?$ "." ada-mode-syntax-table)
878 (modify-syntax-entry ?\[ "." ada-mode-syntax-table)
879 (modify-syntax-entry ?\] "." ada-mode-syntax-table)
880 (modify-syntax-entry ?\{ "." ada-mode-syntax-table)
881 (modify-syntax-entry ?\} "." ada-mode-syntax-table)
882 (modify-syntax-entry ?. "." ada-mode-syntax-table)
883 (modify-syntax-entry ?\\ "." ada-mode-syntax-table)
884 (modify-syntax-entry ?\' "." ada-mode-syntax-table)
887 (modify-syntax-entry ?- ". 12" ada-mode-syntax-table)
892 (modify-syntax-entry ?# "<" ada-mode-syntax-table)
893 (modify-syntax-entry ?# "$" ada-mode-syntax-table))
896 (modify-syntax-entry ?\f "> " ada-mode-syntax-table)
897 (modify-syntax-entry ?\n "> " ada-mode-syntax-table)
900 (modify-syntax-entry ?_ "_" ada-mode-syntax-table)
903 (modify-syntax-entry ?\( "()" ada-mode-syntax-table)
904 (modify-syntax-entry ?\) ")(" ada-mode-syntax-table)
906 (setq ada-mode-symbol-syntax-table (copy-syntax-table ada-mode-syntax-table))
907 (modify-syntax-entry ?_ "w" ada-mode-symbol-syntax-table)
923 (setq change (cons (list (match-beginning 1)
930 (setq change (cons (list (match-beginning 1)
944 "Deactivate Ada mode's properties handling.
966 ;; if the user activates or deactivates font-lock-mode,
1017 ;; The Ada mode comes with contextual menus, bound by default to the right
1030 (list (point) (current-buffer))))
1042 ;; transient-mark-mode.
1045 (list (point) (current-buffer)))
1082 (setcdr tmp (list (cons spec (cadr tmp))))
1083 (add-to-list 'ada-other-file-alist (list reg (list spec)))))
1088 (setcdr tmp (list (cons body (cadr tmp))))
1089 (add-to-list 'ada-other-file-alist (list reg (list body)))))
1091 (add-to-list 'auto-mode-alist
1092 (cons (concat (regexp-quote spec) "\\'") 'ada-mode))
1093 (add-to-list 'auto-mode-alist
1094 (cons (concat (regexp-quote body) "\\'") 'ada-mode))
1096 (add-to-list 'ada-spec-suffixes spec)
1097 (add-to-list 'ada-body-suffixes body)
1111 (defun ada-mode ()
1112 "Ada mode is the major mode for editing Ada code.
1115 \\{ada-mode-map}
1120 Re-format the parameter-list point is in '\\[ada-format-paramlist]'
1158 (set (make-local-variable 'require-final-newline) mode-require-final-newline)
1166 ;; this buffer had been in another mode before. RE
1210 (add-hook 'compilation-mode-hook
1212 (set (make-local-variable 'compile-auto-highlight) 40)
1214 (define-key compilation-minor-mode-map [mouse-2]
1216 (define-key compilation-minor-mode-map "\C-c\C-c"
1218 (define-key compilation-minor-mode-map "\C-m"
1227 (put 'ada-mode 'font-lock-defaults
1249 (mapc (lambda (pair) (add-to-list 'ff-special-constructs pair))
1250 (list
1279 ;; Support for outline-minor-mode
1291 (add-to-list 'align-dq-string-modes 'ada-mode)
1292 (add-to-list 'align-open-comment-modes 'ada-mode)
1296 (add-to-list 'align-exclude-rules-list
1299 (modes . '(ada-mode))))
1300 (add-to-list 'align-exclude-rules-list
1303 (modes . '(ada-mode))))
1307 (add-to-list 'ada-align-modes
1312 (modes . '(ada-mode))))
1313 (add-to-list 'ada-align-modes
1317 (modes . '(ada-mode))))
1318 (add-to-list 'ada-align-modes
1321 (modes . '(ada-mode))))
1322 (add-to-list 'ada-align-modes
1326 (modes . '(ada-mode))))
1327 (add-to-list 'ada-align-modes
1330 (modes . '(ada-mode))))
1332 (setq align-mode-rules-list ada-align-modes)
1336 (define-key ada-mode-map ada-popup-key 'ada-popup-menu))
1338 ;; Support for Abbreviations (the user still need to "M-x abbrev-mode"
1339 (define-abbrev-table 'ada-mode-abbrev-table ())
1340 (setq local-abbrev-table ada-mode-abbrev-table)
1342 ;; Support for which-function mode
1349 (setq major-mode 'ada-mode
1350 mode-name "Ada")
1352 (use-local-map ada-mode-map)
1354 (easy-menu-add ada-mode-menu ada-mode-map)
1356 (set-syntax-table ada-mode-syntax-table)
1371 (run-mode-hooks 'ada-mode-hook)
1381 ;; font-lock-mode
1386 (add-hook 'font-lock-mode-hook 'ada-deactivate-properties nil t)))
1388 ;; the following has to be done after running the ada-mode-hook
1399 (if ada-auto-case
1410 ;; transient-mark-mode and mark-active are not defined in XEmacs
1415 (symbol-value 'transient-mark-mode)
1421 ;; auto-casing
1422 ;; Since Ada is case-insensitive, the Ada mode provides an extensive set of
1423 ;; functions to auto-case identifiers, keywords, ...
1429 ;; these casing rules. This is done through a list of files, that contain
1467 (set-syntax-table ada-mode-symbol-syntax-table)
1478 ;; If the word is already in the list, even with a different casing
1483 (add-to-list 'ada-case-exception (cons word t))
1494 When auto-casing a word, this substring will be special-cased, unless the
1531 ;; If the word is already in the list, even with a different casing
1536 (add-to-list 'ada-case-exception-substring (cons word t))
1548 (set-syntax-table ada-mode-symbol-syntax-table)
1553 ;; If the item is already in the list, even with an other casing,
1564 (add-to-list 'ada-case-exception-substring (cons word t))))
1566 (add-to-list 'ada-case-exception (cons word t)))))
1577 ;; Reinitialize the casing exception list
1618 The auto-casing is done according to the value of `ada-case-identifier'
1688 (if ada-auto-case
1694 (set-syntax-table ada-mode-symbol-syntax-table)
1721 ;; Else, no auto-casing
1737 ;; be changed again when Ada mode is called more than once
1743 ada-mode-map
1765 (defun ada-no-auto-case (&optional arg)
1767 This function can be used for the auto-casing variables in Ada mode, to
1768 adapt to unusal auto-casing schemes. Since it does nothing, you can for
1770 auto-casing for identifiers, whereas keywords have to be lower-cased.
1771 See also `ada-auto-case' to disable auto casing altogether."
1796 (set-syntax-table ada-mode-symbol-syntax-table)
1842 ;; - First parses the parameter list. The returned list has the following
1847 ;; - Delete and recreate the parameter list in function
1850 ;; Note: Comments inside the parameter list are lost.
1855 "Reformat the parameter list point is in."
1864 (set-syntax-table ada-mode-symbol-syntax-table)
1866 ;; check if really inside parameter list
1868 (error "Not in parameter list"))
1870 ;; find start of current parameter-list
1873 (down-list 1)
1877 ;; find end of parameter-list
1887 ;; build a list of all elements of the parameter-list
1890 ;; delete the original parameter-list
1893 ;; insert the new parameter-list
1902 "Scan the parameter list found in between BEGIN and END.
1903 Return the equivalent internal parameter list."
1904 (let ((paramlist (list))
1905 (param (list))
1933 (setq param (list (match-string 1)))
1940 (list
1949 (list
1958 (list
1976 (list (match-string 0))))
1982 (list
1989 ;; add this parameter-declaration to the list
1990 (setq paramlist (append paramlist (list param)))
2121 ;; - offset to indent from this position (can also be a symbol or a list
2125 ;; This mechanism is used so that the Ada mode can "explain" how the
2213 emacs -batch -l ada-mode -f ada-batch-reformat file1 file2 ..."
2243 (set-syntax-table ada-mode-symbol-syntax-table)
2260 (list (point-min) 0))))
2262 ;; Evaluate the list to get the column to indent to
2317 ;; in open parenthesis, but not in parameter-list
2333 (list (1- (point)) 0))
2340 (list column 'ada-broken-indent)
2344 ;; parameter list, each new parameter should be indented at the
2358 (list column 0)
2359 (list column 'ada-continuation-indent)
2418 (list (save-excursion (back-to-indentation) (point)) 0)
2419 (list (save-excursion
2424 (list (+ (save-excursion (back-to-indentation) (point)) label) 0)))))
2431 (list (save-excursion (back-to-indentation) (point)) 0)))
2441 (list (progn (back-to-indentation) (point)) 0))))
2448 (list (progn (back-to-indentation) (point)) 0)))
2460 (list (save-excursion (back-to-indentation) (point))
2476 (list (progn (back-to-indentation) (point))
2496 (list (progn (back-to-indentation) (point)) 'ada-stmt-end-indent)))))
2513 (list (progn (back-to-indentation) (point))
2524 (list (progn (back-to-indentation) (point)) 0)
2542 (list (progn (back-to-indentation) (point)) 'ada-indent))
2546 (list (progn (back-to-indentation) (point)) 0)
2547 (list (progn (back-to-indentation) (point)) 'ada-indent)))))
2573 ;; If there is a parameter list, and we have a function declaration
2588 (list (point) (list '- var))
2589 (list (progn (backward-word num-back) (point))
2592 ;; Else there is no parameter list, but we have a function
2598 (list (progn (forward-word -1) (point)) var)
2616 (list (progn (back-to-indentation) (point)) 0)))
2626 (list (progn (back-to-indentation) (point)) 'ada-stmt-end-indent)))
2652 (list (- pos 2) 0)
2658 (list (save-excursion (back-to-indentation) (point)) 0)))
2667 (list (save-excursion (beginning-of-line) (point)) 0))
2670 ;; starting with ')' (end of a parameter list)
2677 (list (point) 0)))
2706 (list (progn (back-to-indentation) (point)) 0)
2728 The result list is based on the previous lines in the buffer.
2735 ;; Is inside a parameter-list ?
2790 (list (+ (save-excursion (back-to-indentation) (point))
2798 (list (progn (back-to-indentation) (point)) 0)
2799 (list (point) (if (looking-at "with")
2809 (list (ada-in-open-paren-p) 0))
2816 (list (point) 0)))
2819 "Calculate the indentation when point is inside a parameter list."
2826 (list (point) 0))
2832 (list (point) 0))
2838 (list (point) 'ada-broken-indent))
2844 (list (point) 0)))))
2864 (list (save-excursion (back-to-indentation) (point)) 0))
2878 (list (progn (back-to-indentation) (point)) 0)))
2887 (list (progn (back-to-indentation) (point)) 0))
2896 (setq indent (list (point) 0))
2898 (list (progn (back-to-indentation) (point)) 0)
2900 (list (progn (back-to-indentation) (point)) 0)
2906 (list (save-excursion (back-to-indentation) (point))
2909 (list (save-excursion (back-to-indentation) (point))
2932 (list (save-excursion (back-to-indentation) (point)) 'ada-indent)))
2940 (list (save-excursion (back-to-indentation) (point)) 'ada-broken-indent))
2947 (list (save-excursion (back-to-indentation) (point)) 'ada-when-indent))
2952 (list (save-excursion (back-to-indentation) (point))
2960 (list cur-indent 'ada-indent)
2961 (list cur-indent 'ada-broken-indent))))
2989 (list cur-indent 'ada-indent))
2991 (list cur-indent 'ada-broken-indent))))
3015 (list (save-excursion (back-to-indentation) (point)) 'ada-indent)
3018 (list (save-excursion
3024 (list (save-excursion (back-to-indentation) (point)) 'ada-indent)))))
3061 (list cur-indent 'ada-indent))
3088 (list cur-indent 0))
3093 (list cur-indent 'ada-broken-indent)))))
3106 ;; the parameter declaration list)
3109 (list (save-excursion (back-to-indentation) (point)) 0))
3114 (list (save-excursion (back-to-indentation) (point))
3141 (list (save-excursion (back-to-indentation) (point)) 0)))))
3145 (list (+ (save-excursion (back-to-indentation) (point)) label) 0)
3146 (list (+ (save-excursion (back-to-indentation) (point)) label)
3168 (list (save-excursion (back-to-indentation) (point)) 'ada-indent))
3174 (list cur-indent 0)
3175 (list cur-indent 'ada-broken-indent)))
3179 (list cur-indent '(- ada-label-indent))))))
3202 (list (+ (save-excursion (back-to-indentation) (point)) label) 0))
3210 (list (+ (car pos) label) (cdr pos))))
3238 (list (save-excursion (back-to-indentation) (point)) 'ada-indent))
3239 (list (save-excursion (back-to-indentation) (point)) 'ada-broken-indent))
3257 (list (+ (save-excursion (back-to-indentation) (point)) label)
3263 (list (+ (save-excursion (back-to-indentation) (point)) label)
3287 (list (+ (save-excursion (back-to-indentation) (point)) label)
3290 (list (+ (save-excursion (back-to-indentation) (point)) label)
3311 (list (save-excursion (back-to-indentation) (point)) 0))
3319 (list (save-excursion (back-to-indentation) (point)) 'ada-indent))
3326 (list (save-excursion (back-to-indentation) (point)) 0))
3335 (list (save-excursion (back-to-indentation) (point)) 'ada-broken-indent))
3340 (list (save-excursion (back-to-indentation) (point))
3733 ;; This is removed from the list when "package", "procedure",...
4061 (set-syntax-table ada-mode-symbol-syntax-table)
4109 ;; found a parameter-list but should ignore it => skip it
4172 "Return t if point is inside a parameter-list."
4202 ;; Type is in this list because of discriminants
4258 In Transient Mark mode, if the mark is active, operate on the contents
4262 ((eq ada-tab-policy 'indent-auto)
4274 ((eq ada-tab-policy 'indent-auto) (error "Not implemented"))
4279 "Ada mode version of the `indent-line-function'."
4409 (set-syntax-table ada-mode-symbol-syntax-table)
4453 (set-syntax-table ada-mode-symbol-syntax-table)
4561 "Create the keymap associated with the Ada mode."
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)
4566 (define-key ada-mode-map "\t" 'ada-tab)
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)
4570 (define-key ada-mode-map '(shift tab) 'ada-untab)
4571 (define-key ada-mode-map [(shift tab)] 'ada-untab))
4572 (define-key ada-mode-map "\C-c\C-f" 'ada-format-paramlist)
4576 (define-key ada-mode-map "\M-\C-e" 'ada-next-procedure)
4577 (define-key ada-mode-map "\M-\C-a" 'ada-previous-procedure)
4578 (define-key ada-mode-map "\C-c\C-a" 'ada-move-to-start)
4579 (define-key ada-mode-map "\C-c\C-e" 'ada-move-to-end)
4582 (unless (lookup-key ada-mode-map "\C-c\C-c")
4583 (define-key ada-mode-map "\C-c\C-c" 'compile))
4586 (define-key ada-mode-map "\C-c\C-b" 'ada-adjust-case-buffer)
4587 (define-key ada-mode-map "\C-c\C-t" 'ada-case-read-exceptions)
4588 (define-key ada-mode-map "\C-c\C-y" 'ada-create-case-exception)
4589 (define-key ada-mode-map "\C-c\C-\M-y" 'ada-create-case-exception-substring)
4595 (define-key ada-mode-map [backspace] 'backward-delete-char-untabify)
4596 (define-key ada-mode-map "\177" 'backward-delete-char-untabify))
4599 (define-key ada-mode-map "\C-c\C-n" 'ada-make-subprogram-body)
4602 (define-key ada-mode-map "\C-c;" 'comment-region)
4603 (define-key ada-mode-map "\C-c:" 'ada-uncomment-region)
4610 (define-key ada-mode-map '(shift button3) 'ada-point-and-xref)
4611 (define-key ada-mode-map '(control tab) 'ada-complete-identifier))
4612 (define-key ada-mode-map [C-tab] 'ada-complete-identifier)
4613 (define-key ada-mode-map [S-mouse-3] 'ada-point-and-xref))
4615 (define-key ada-mode-map "\C-co" 'ff-find-other-file)
4616 (define-key ada-mode-map "\C-c5\C-d" 'ada-goto-declaration-other-frame)
4617 (define-key ada-mode-map "\C-c\C-d" 'ada-goto-declaration)
4618 (define-key ada-mode-map "\C-c\C-s" 'ada-xref-goto-previous-reference)
4619 (define-key ada-mode-map "\C-c\C-c" 'ada-compile-application)
4620 (define-key ada-mode-map "\C-cc" 'ada-change-prj)
4621 (define-key ada-mode-map "\C-cd" 'ada-set-default-project-file)
4622 (define-key ada-mode-map "\C-cg" 'ada-gdb-application)
4623 (define-key ada-mode-map "\C-c\C-m" 'ada-set-main-compile-application)
4624 (define-key ada-mode-map "\C-cr" 'ada-run-application)
4625 (define-key ada-mode-map "\C-c\C-o" 'ada-goto-parent)
4626 (define-key ada-mode-map "\C-c\C-r" 'ada-find-references)
4627 (define-key ada-mode-map "\C-cl" 'ada-find-local-references)
4628 (define-key ada-mode-map "\C-c\C-v" 'ada-check-current)
4629 (define-key ada-mode-map "\C-cf" 'ada-find-file)
4631 (define-key ada-mode-map "\C-cu" 'ada-prj-edit)
4664 (define-key ada-mode-map "\C-ct" map))
4672 ["Ada Mode" (info "ada-mode") t]
4682 ("Options" :included (eq major-mode 'ada-mode)
4683 ["Auto Casing" (setq ada-auto-case (not ada-auto-case))
4684 :style toggle :selected ada-auto-case]
4719 ("Goto" :included (eq major-mode 'ada-mode)
4748 ("Edit" :included (eq major-mode 'ada-mode)
4780 :included (eq major-mode 'ada-mode)
4821 (easy-menu-define ada-mode-menu ada-mode-map "Menu keymap for Ada mode" m)
4824 (define-key ada-mode-map [menu-bar] ada-mode-menu)
4825 (set 'mode-popup-menu (cons "Ada mode" ada-mode-menu))))))
4844 (string= mode-name "Ada"))
4864 (comment-region beg end (list (- (or arg 2))))
5029 ;; If this wasn't in either list, return name itself
5103 (up-list 1)
5201 ;; single quote is given punctuation syntax in `ada-mode-syntax-table'.
5202 ;; So, for Font Lock mode purposes, we mark single quotes as having string
5222 (list
5225 (list "\\<\\(function[ \t]+return\\)\\>" '(1 font-lock-keyword-face) )
5228 (list "^[ \t]*\\(#.*\n\\)" '(1 font-lock-type-face t))
5233 (list (concat
5253 (list (concat ; ":[ \t]*"
5278 (list (concat "\\<\\("
5286 ;; Keywords followed by a (comma separated list of) reference.
5289 (list (concat "\\<\\(goto\\|raise\\|use\\|with\\)"
5298 (list "\\([0-9]+#[0-9a-fA-F_]+#\\)" '(1 font-lock-constant-face t))
5301 (list "\\W\\([-+]?[0-9._]+\\)\\>" '(1 font-lock-constant-face))
5304 "Default expressions to highlight in Ada mode.")
5348 ;; The Ada mode has a set of function to automatically generate a subprogram
5431 (insert-buffer-substring (car (cdr (buffer-list))))
5433 (ada-mode)
5500 ;; Create the keymap once and for all. If we do that in ada-mode,
5518 ;; Setup auto-loading of the other Ada mode files.
5578 (provide 'ada-mode)
5581 ;;; ada-mode.el ends here