mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(dired-standard-move-to-filename-regexp): New variable.

Browse source 
(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.
This commit is contained in:
Karl Heuer 1996-01-09 23:15:52 +00:00
parent 2f29e0c6d9
commit 9eabb7d50c
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/dired.el
View file

@ -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)