# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1118762606 0
# Node ID d6e1fdb10546aae641f7730e4f9e4f55184406a7
# Parent  9d665488ae5aa08178751de856a33c0c8de639fa
(ada-create-case-exception, ada-create-case-exception-substring,
ada-make-subprogram-body): Follow error conventions.

diff -r 9d665488ae5a -r d6e1fdb10546 lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Tue Jun 14 15:22:35 2005 +0000
+++ b/lisp/progmodes/ada-mode.el	Tue Jun 14 15:23:26 2005 +0000
@@ -1462,7 +1462,7 @@
            (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 @@
 		(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 @@
           (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)