From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 9 Jan 1996 23:15:52 +0000 (+0000)
Subject: (dired-standard-move-to-filename-regexp): New variable.
X-Git-Tag: emacs-19.34~1753
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9eabb7d50c668d2b39b389a27390d26b3086e1c9;p=emacs.git

(dired-standard-move-to-filename-regexp): New variable.
(dired-insert-directory): Don't alter environment if would use the
C locale anyway, or if dired-move-to-filename-regexp has been
changed from the default value.
When changing the environment, avoid need for setenv.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 6bf16084c00..e8697cd0a78 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -566,7 +566,15 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
 	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")
+    ;; But if the user has customized the way of finding the file name,
+    ;; this is not necessary.
+    (if (and (equal dired-move-to-filename-regexp
+		    dired-standard-move-to-filename-regexp)
+	     ;; It also isn't necessary if we'd use the C locale anyway.
+	     (not (equal (or (getenv "LC_ALL") (getenv "LC_TIME")
+			     (getenv "LANGUAGE") "C")
+			 "C")))
+	(setq process-environment (cons "LC_ALL=C" process-environment)))
     (if (consp dir-or-list)
 	;; In this case, use the file names in the cdr
 	;; exactly as originally given to dired-noselect.
@@ -1246,6 +1254,10 @@ Optional arg GLOBAL means to replace all matches."
   "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+ [ 0-9][0-9][:0-9][0-9][ 0-9] "
   "Regular expression to match a month abbreviation followed by a number.")
 
+(defconst dired-standard-move-to-filename-regexp
+  "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+ [ 0-9][0-9][:0-9][0-9][ 0-9] "
+  "Regular expression to match a month abbreviation followed by a number.")
+
 ;; Move to first char of filename on this line.
 ;; Returns position (point) or nil if no filename on this line."
 (defun dired-move-to-filename (&optional raise-error eol)