(goto-line): Call prefix-numeric-value.

diff --git a/lisp/simple.el b/lisp/simple.el
index 7d46eede3af415b4fd647605884dd1a07be24f64..9c729358fe10930c9f5d91287955b8b420ccd963 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -595,6 +595,7 @@ Get previous element of history which is a completion of minibuffer contents."
 (defun goto-line (arg)
   "Goto line ARG, counting from line 1 at beginning of buffer."
   (interactive "NGoto line: ")
+  (setq arg (prefix-numeric-value arg))
   (save-restriction
     (widen)
     (goto-char 1)