Mercurial > emacs

changeset 63425:d6e1fdb10546

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-create-case-exception, ada-create-case-exception-substring, ada-make-subprogram-body): Follow error conventions.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 14 Jun 2005 15:23:26 +0000
parents 9d665488ae5a
children 1fca8244172a
files lisp/progmodes/ada-mode.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)