From 5fb0f713c54c192cef7792a89998b2d9f13d98aa Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 25 Jan 1996 00:59:05 +0000 Subject: [PATCH] (ada-adjust-case-region, ada-indent-region): Delete format call inside message. --- lisp/progmodes/ada-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.39.2