# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822956955 0
# Node ID db084c0ae4bd4da171a4055ac1cbebc1e300a621
# Parent  6e7bb4bd501095d1d14fa620a13bb93d7f170550
(ada-indent-region, ada-check-matching-start, ada-check-defun-name): Fix error
format string.

diff -r 6e7bb4bd5010 -r db084c0ae4bd lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Mon Jan 29 22:30:55 1996 +0000
+++ b/lisp/progmodes/ada-mode.el	Mon Jan 29 23:09:15 1996 +0000
@@ -1408,9 +1408,7 @@
 	  (setq lines-remaining (1- lines-remaining)))
       ;; show line number where the error occurred
       (error
-       (error (format "line %d: %s"
-                      (1+ (count-lines (point-min) (point)))
-                      err) nil)))
+       (error "line %d: %s" (1+ (count-lines (point-min) (point))) err)))
     (message "indenting ... done")))
 
 
@@ -2501,9 +2499,7 @@
   ;; Moves point to the matching block start.
   (ada-goto-matching-start 0)
   (if (not (looking-at (concat "\\<" keyword "\\>")))
-      (error (concat
-              "matching start is not '"
-              keyword "'"))))
+      (error "matching start is not '%s'" keyword)))
 
 
 (defun ada-check-defun-name (defun-name)
@@ -2542,14 +2538,9 @@
     ;; should be looking-at the correct name
     ;;
     (if (not (looking-at (concat "\\<" defun-name "\\>")))
-        (error
-         (concat
-          "matching defun has different name: "
-          (buffer-substring
-           (point)
-           (progn
-             (forward-sexp 1)
-             (point))))))))
+        (error "matching defun has different name: %s"
+	       (buffer-substring (point)
+				 (progn (forward-sexp 1) (point)))))))
 
 
 (defun ada-goto-matching-decl-start (&optional noerror nogeneric)