(compilation-start): Pass nil as startfile to comint-exec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7387459f25025cb9bb327c7cbbefdf068a0b377..8574be35565d43500b390516fcffdb232c62a5e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-07  Sam Steingold  <sds@gnu.org>
+
+       * progmodes/compile.el (compilation-start): Pass nil as startfile
+       to comint-exec.
+
 2007-08-07  Chong Yidong  <cyd@stupidchicken.com>
 
        * longlines.el (longlines-decoded): New variable.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index caf0e94b9273c83ece6ca7b08e796b0b065e4b9b..d7283037b6fdd9fc7b6012567e011337ecc218a5 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -170,7 +170,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
     (maven
      ;; Maven is a popular build tool for Java.  Maven is Free Software.
      "\\(.*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\]" 1 2 3)
-    
+
     (bash
      "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2)
 
@@ -1136,7 +1136,7 @@ Returns the compilation buffer created."
                       (if (file-remote-p default-directory)
                           "/bin/sh"
                         shell-file-name)
-                      `("-c" ,command))))
+                      nil `("-c" ,command))))
                 (start-file-process-shell-command (downcase mode-name)
                                                   outbuf command))))
          ;; Make the buffer's mode line show process state.