comparison lisp/dired.el @ 13929:490fe0437271

(dired-insert-directory): Force use of C locale.

13928:d9a95968edb8

(defun dired-insert-directory (dir-or-list switches &optional wildcard full-p)
  ;; Do the right thing whether dir-or-list is atomic or not.  If it is,
  ;; inset all files listed in the cdr (the car is the passed-in directory
  ;; list).
  (let ((opoint (point))
	end)
    (if (consp dir-or-list)
	;; In this case, use the file names in the cdr
	;; exactly as originally given to dired-noselect.
	(mapcar
	 (function (lambda (x) (insert-directory x switches wildcard full-p)))

13929:490fe0437271

(defun dired-insert-directory (dir-or-list switches &optional wildcard full-p)
  ;; Do the right thing whether dir-or-list is atomic or not.  If it is,
  ;; inset all files listed in the cdr (the car is the passed-in directory
  ;; list).
  (let ((opoint (point))
	(process-environment (copy-sequence process-environment))
	end)
    ;; This makes sure that month names come out in English
    ;; so we can find the start of the file name.
    (setenv "LC_ALL" "C")
    (if (consp dir-or-list)
	;; In this case, use the file names in the cdr
	;; exactly as originally given to dired-noselect.
	(mapcar
	 (function (lambda (x) (insert-directory x switches wildcard full-p)))