(array-what-position): Delete format call inside message.

diff --git a/lisp/array.el b/lisp/array.el
index 605c31bf874125b078efa80ecf145583f1ce25a7..fab1c1ec59c46e503eab28d063a882747d779d41 100644 (file)
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -103,9 +103,9 @@ to the optional arguments A-ROW and A-COLUMN."
   (interactive)
   (let ((buffer-line (current-line))
        (buffer-column (current-column)))
-    (message (format "Array row: %s  Array column: %s" 
-                    (prin1-to-string (array-current-row))
-                    (prin1-to-string (array-current-column))))))
+    (message "Array row: %s  Array column: %s" 
+            (prin1-to-string (array-current-row))
+            (prin1-to-string (array-current-column)))))
 
 (defun array-display-local-variables ()
   "Display the current state of the local variables in the minibuffer."