From: Miles Bader <miles@gnu.org>
Date: Wed, 24 Dec 2003 23:18:55 +0000 (+0000)
Subject: Revision: miles@gnu.org--gnu-2003/emacs--cvs-trunk--0--patch-135
X-Git-Tag: ttn-vms-21-2-B4~8180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a372755cf1979cbaaf206e5ae49be78df34c5db;p=emacs.git

Revision: miles@gnu.org--gnu-2003/emacs--cvs-trunk--0--patch-135

Make dired more robust for non-english locales.

lisp/dired.el (dired-between-files): Always use dired-move-to-filename,
which is more robust in non-english locales.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index b7fe389827b..c15134e3bc9 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2380,12 +2380,10 @@ FILES is the list of marked files."
     (dired-move-to-filename)))
 
 (defun dired-between-files ()
-  ;; Point must be at beginning of line
-  ;; Should be equivalent to (save-excursion (not (dired-move-to-filename)))
-  ;; but is about 1.5..2.0 times as fast. (Actually that's not worth it)
-  (or (looking-at "^$\\|^. *$\\|^. total\\|^. wildcard\\|^. used\\|^. find")
-      (and (looking-at dired-subdir-regexp)
-	   (save-excursion (not (dired-move-to-filename))))))
+  ;; This used to be a regexp match of the `total ...' line output by
+  ;; ls, which is slightly faster, but that is not very robust; notably,
+  ;; it fails for non-english locales.
+  (save-excursion (not (dired-move-to-filename))))
 
 (defun dired-next-marked-file (arg &optional wrap opoint)
   "Move to the next marked file, wrapping around the end of the buffer."