Mercurial > emacs
changeset 14337:c819273fe29c
(ada-adjust-case-region, ada-indent-region): Delete format call inside message.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 25 Jan 1996 00:59:05 +0000 |
| parents | 036075cd1493 |
| children | 0f8f00733165 |
| files | lisp/progmodes/ada-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))