# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531545 0
# Node ID c819273fe29c3960fffa0d0cb7fdd2e753b3332d
# Parent  036075cd149326166fd463948e0ab6bdcf1c0da5
(ada-adjust-case-region, ada-indent-region): Delete format call inside message.

diff -r 036075cd1493 -r c819273fe29c lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Thu Jan 25 00:58:53 1996 +0000
+++ b/lisp/progmodes/ada-mode.el	Thu Jan 25 00:59:05 1996 +0000
@@ -858,8 +858,8 @@
 	    ;; print status message
 	    ;;
 	    (setq reldiff (- (point) from))
-	    (message (format "adjusting case ... %5d characters left"
-			     (- (point) from)))
+	    (message "adjusting case ... %5d characters left"
+		     (- (point) from))
 	    (forward-char 1)
 	    (or
 	     ;; do nothing if it is a string or comment
@@ -1399,7 +1399,7 @@
     (condition-case err
         (while (< (point) endmark)
           (if (> block-done 9)
-              (progn (message (format msg lines-remaining))
+              (progn (message msg lines-remaining)
                      (setq block-done 0)))
 	  (if (looking-at "^$") nil
 	    (ada-indent-current))