937 |
(setcdr tmp (list (cons body (cadr tmp)))) |
(setcdr tmp (list (cons body (cadr tmp)))) |
938 |
(add-to-list 'ada-other-file-alist (list reg (list body))))) |
(add-to-list 'ada-other-file-alist (list reg (list body))))) |
939 |
|
|
940 |
(add-to-list 'auto-mode-alist (cons spec 'ada-mode)) |
(add-to-list 'auto-mode-alist |
941 |
(add-to-list 'auto-mode-alist (cons body 'ada-mode)) |
(cons (concat (regexp-quote spec) "\\'") 'ada-mode)) |
942 |
|
(add-to-list 'auto-mode-alist |
943 |
|
(cons (concat (regexp-quote body) "\\'") 'ada-mode)) |
944 |
|
|
945 |
(add-to-list 'ada-spec-suffixes spec) |
(add-to-list 'ada-spec-suffixes spec) |
946 |
(add-to-list 'ada-body-suffixes body) |
(add-to-list 'ada-body-suffixes body) |