X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b578f267af27af50e3c091f8c9c9eee939b69978..66236b772af493888a34148662dca58561958a6f:/lisp/array.el

diff --git a/lisp/array.el b/lisp/array.el
index 605c31bf87..a172c52a08 100644
--- 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."
@@ -790,6 +790,7 @@ Return COLUMN."
 
 (put 'array-mode 'mode-class 'special)
 
+;;;###autoload
 (defun array-mode ()
   "Major mode for editing arrays.