1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 888c5578dbe..613aa6667da 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -185,7 +185,7 @@ The name used for the buffer is actually whatever is returned by
 the function in `compilation-buffer-name-function', so you can set that
 to a function that generates a unique name."
   (interactive (list (read-from-minibuffer "Compile command: "
-                                           compile-command nil
+                                           compile-command nil nil
                                            '(compile-history . 1))))
   (setq compile-command command)
   (save-some-buffers nil nil)