From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 25 Jan 1996 00:59:05 +0000 (+0000)
Subject: (ada-adjust-case-region, ada-indent-region): Delete format call inside message.
X-Git-Tag: emacs-19.34~1523
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fb0f713c54c192cef7792a89998b2d9f13d98aa;p=emacs.git

(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 90bf328a320..d34f08b8586 100644
--- 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))