(ada-adjust-case-region, ada-indent-region): Delete format call inside message.

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 90bf328a32079ea49f84b2088825a6ceeceb05a5..d34f08b85864bf7bc3a785617650ecaa625c9573 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -858,8 +858,8 @@ Attention: This function might take very long for big regions !"
            ;; 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 @@ Moves to 'begin' if in a declarative part."
     (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))