From: Juanma Barranquero Date: Tue, 14 Jun 2005 15:23:26 +0000 (+0000) Subject: (ada-create-case-exception, ada-create-case-exception-substring, X-Git-Tag: emacs-pretest-22.0.90~8952 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb4ed27f9a3c5ea3a827f199ca3d0726fec81ea2;p=emacs.git (ada-create-case-exception, ada-create-case-exception-substring, ada-make-subprogram-body): Follow error conventions. --- 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)