Mercurial > emacs
diff lisp/dired.el @ 53224:f0eb34e60705
tag of miles@gnu.org--gnu-2003/emacs--cvs-trunk--0--patch-137
(automatically generated log message)
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--base-0
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Wed, 24 Dec 2003 16:09:13 +0000 |
| parents | e9b83c6e5ab4 |
| children | 7efe8089eadf |
line wrap: on
line diff
--- a/lisp/dired.el Tue Dec 02 15:01:52 2003 +0000 +++ b/lisp/dired.el Wed Dec 24 16:09:13 2003 +0000 @@ -2380,12 +2380,10 @@ (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."