From 8a372755cf1979cbaaf206e5ae49be78df34c5db Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 24 Dec 2003 23:18:55 +0000 Subject: [PATCH] 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. --- lisp/dired.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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." -- 2.39.2