657 |
(list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" |
(list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" |
658 |
;; Don't put "\\2" inside expand-file-name, since |
;; Don't put "\\2" inside expand-file-name, since |
659 |
;; it will be transformed to "/2" on DOS/Windows. |
;; it will be transformed to "/2" on DOS/Windows. |
660 |
(concat temporary-file-directory "\\2")))) |
(concat temporary-file-directory "\\2") t))) |
661 |
|
|
662 |
;; See if we should import version-control from the environment variable. |
;; See if we should import version-control from the environment variable. |
663 |
(let ((vc (getenv "VERSION_CONTROL"))) |
(let ((vc (getenv "VERSION_CONTROL"))) |