diff options
Diffstat (limited to 'lisp/vc')
| -rw-r--r-- | lisp/vc/vc-hg.el | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index dab2c7256ba..62d0bb5ba5f 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -211,18 +211,11 @@ highlighting the Log View buffer." | |||
| 211 | (append | 211 | (append |
| 212 | (list "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1") | 212 | (list "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1") |
| 213 | process-environment))) | 213 | process-environment))) |
| 214 | (if (file-remote-p file) | 214 | (process-file |
| 215 | (process-file | 215 | vc-hg-program nil t nil |
| 216 | "env" nil t nil | 216 | "--config" "alias.status=status" |
| 217 | "HGPLAIN=1" vc-hg-program | 217 | "--config" "defaults.status=" |
| 218 | "--config" "alias.status=status" | 218 | "status" "-A" (file-relative-name file))) |
| 219 | "--config" "defaults.status=" | ||
| 220 | "status" "-A" (file-relative-name file)) | ||
| 221 | (process-file | ||
| 222 | vc-hg-program nil t nil | ||
| 223 | "--config" "alias.status=status" | ||
| 224 | "--config" "defaults.status=" | ||
| 225 | "status" "-A" (file-relative-name file)))) | ||
| 226 | ;; Some problem happened. E.g. We can't find an `hg' | 219 | ;; Some problem happened. E.g. We can't find an `hg' |
| 227 | ;; executable. | 220 | ;; executable. |
| 228 | (error nil))))))) | 221 | (error nil))))))) |