1462 |
(setq file-name (car ada-case-exception-file))) |
(setq file-name (car ada-case-exception-file))) |
1463 |
(t |
(t |
1464 |
(error (concat "No exception file specified. " |
(error (concat "No exception file specified. " |
1465 |
"See variable ada-case-exception-file.")))) |
"See variable ada-case-exception-file")))) |
1466 |
|
|
1467 |
(set-syntax-table ada-mode-symbol-syntax-table) |
(set-syntax-table ada-mode-symbol-syntax-table) |
1468 |
(unless word |
(unless word |
1501 |
(car ada-case-exception-file)) |
(car ada-case-exception-file)) |
1502 |
(t |
(t |
1503 |
(error (concat "No exception file specified. " |
(error (concat "No exception file specified. " |
1504 |
"See variable ada-case-exception-file.")))))) |
"See variable ada-case-exception-file")))))) |
1505 |
|
|
1506 |
;; Find the substring to define as an exception. Order is: the parameter, |
;; Find the substring to define as an exception. Order is: the parameter, |
1507 |
;; if any, or the selected region, or the word under the cursor |
;; if any, or the selected region, or the word under the cursor |
5398 |
(setq body-file (ada-get-body-name)) |
(setq body-file (ada-get-body-name)) |
5399 |
(if body-file |
(if body-file |
5400 |
(find-file body-file) |
(find-file body-file) |
5401 |
(error "No body found for the package. Create it first.")) |
(error "No body found for the package. Create it first")) |
5402 |
|
|
5403 |
(save-restriction |
(save-restriction |
5404 |
(widen) |
(widen) |