diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-06-14 15:23:26 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-06-14 15:23:26 +0000 |
| commit | eb4ed27f9a3c5ea3a827f199ca3d0726fec81ea2 (patch) | |
| tree | daee08d824ccfde29a68bce7a844b05bee2c7ee2 /lisp/progmodes/ada-mode.el | |
| parent | ff12e78d4ba17cb8e643a1e0c792f6d7c9a31e05 (diff) | |
| download | emacs-eb4ed27f9a3c5ea3a827f199ca3d0726fec81ea2.tar.gz | |
(ada-create-case-exception, ada-create-case-exception-substring,
ada-make-subprogram-body): Follow error conventions.
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index bc0edb1f047..ba4702d90a4 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1462,7 +1462,7 @@ The standard casing rules will no longer apply to this word." (setq file-name (car ada-case-exception-file))) (t (error (concat "No exception file specified. " - "See variable ada-case-exception-file.")))) + "See variable ada-case-exception-file")))) (set-syntax-table ada-mode-symbol-syntax-table) (unless word @@ -1501,7 +1501,7 @@ word itself has a special casing." (car ada-case-exception-file)) (t (error (concat "No exception file specified. " - "See variable ada-case-exception-file.")))))) + "See variable ada-case-exception-file")))))) ;; Find the substring to define as an exception. Order is: the parameter, ;; if any, or the selected region, or the word under the cursor @@ -5398,7 +5398,7 @@ This function typically is to be hooked into `ff-file-created-hooks'." (setq body-file (ada-get-body-name)) (if body-file (find-file body-file) - (error "No body found for the package. Create it first.")) + (error "No body found for the package. Create it first")) (save-restriction (widen) |