677 |
(let ((opoint (point)) |
(let ((opoint (point)) |
678 |
(process-environment (copy-sequence process-environment)) |
(process-environment (copy-sequence process-environment)) |
679 |
end) |
end) |
680 |
(if dired-use-ls-dired |
(if (and dired-use-ls-dired |
681 |
|
(not (file-remote-p dir))) |
682 |
(setq switches (concat "--dired " switches))) |
(setq switches (concat "--dired " switches))) |
683 |
;; We used to specify the C locale here, to force English month names; |
;; We used to specify the C locale here, to force English month names; |
684 |
;; but this should not be necessary any more, |
;; but this should not be necessary any more, |