diff options
| author | Sam Steingold | 2007-08-07 20:10:15 +0000 |
|---|---|---|
| committer | Sam Steingold | 2007-08-07 20:10:15 +0000 |
| commit | c94d5f81aaef23672bf1be040c9388f8fe9f88e5 (patch) | |
| tree | 83de740f50ce23f974f3fcac649989b5df221250 | |
| parent | cbd826c50bc187934799b73e9b28e5f6fd927d13 (diff) | |
| download | emacs-c94d5f81aaef23672bf1be040c9388f8fe9f88e5.tar.gz emacs-c94d5f81aaef23672bf1be040c9388f8fe9f88e5.zip | |
(compilation-start): Pass nil as startfile to comint-exec.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7387459f25..8574be35565 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2007-08-07 Sam Steingold <sds@gnu.org> | ||
| 2 | |||
| 3 | * progmodes/compile.el (compilation-start): Pass nil as startfile | ||
| 4 | to comint-exec. | ||
| 5 | |||
| 1 | 2007-08-07 Chong Yidong <cyd@stupidchicken.com> | 6 | 2007-08-07 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 7 | ||
| 3 | * longlines.el (longlines-decoded): New variable. | 8 | * longlines.el (longlines-decoded): New variable. |
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index caf0e94b927..d7283037b6f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -170,7 +170,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) | |||
| 170 | (maven | 170 | (maven |
| 171 | ;; Maven is a popular build tool for Java. Maven is Free Software. | 171 | ;; Maven is a popular build tool for Java. Maven is Free Software. |
| 172 | "\\(.*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\]" 1 2 3) | 172 | "\\(.*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\]" 1 2 3) |
| 173 | 173 | ||
| 174 | (bash | 174 | (bash |
| 175 | "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2) | 175 | "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2) |
| 176 | 176 | ||
| @@ -1136,7 +1136,7 @@ Returns the compilation buffer created." | |||
| 1136 | (if (file-remote-p default-directory) | 1136 | (if (file-remote-p default-directory) |
| 1137 | "/bin/sh" | 1137 | "/bin/sh" |
| 1138 | shell-file-name) | 1138 | shell-file-name) |
| 1139 | `("-c" ,command)))) | 1139 | nil `("-c" ,command)))) |
| 1140 | (start-file-process-shell-command (downcase mode-name) | 1140 | (start-file-process-shell-command (downcase mode-name) |
| 1141 | outbuf command)))) | 1141 | outbuf command)))) |
| 1142 | ;; Make the buffer's mode line show process state. | 1142 | ;; Make the buffer's mode line show process state. |