diff options
| -rw-r--r-- | lisp/dired.el | 10 |
1 files 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." | |||
| 2380 | (dired-move-to-filename))) | 2380 | (dired-move-to-filename))) |
| 2381 | 2381 | ||
| 2382 | (defun dired-between-files () | 2382 | (defun dired-between-files () |
| 2383 | ;; Point must be at beginning of line | 2383 | ;; This used to be a regexp match of the `total ...' line output by |
| 2384 | ;; Should be equivalent to (save-excursion (not (dired-move-to-filename))) | 2384 | ;; ls, which is slightly faster, but that is not very robust; notably, |
| 2385 | ;; but is about 1.5..2.0 times as fast. (Actually that's not worth it) | 2385 | ;; it fails for non-english locales. |
| 2386 | (or (looking-at "^$\\|^. *$\\|^. total\\|^. wildcard\\|^. used\\|^. find") | 2386 | (save-excursion (not (dired-move-to-filename)))) |
| 2387 | (and (looking-at dired-subdir-regexp) | ||
| 2388 | (save-excursion (not (dired-move-to-filename)))))) | ||
| 2389 | 2387 | ||
| 2390 | (defun dired-next-marked-file (arg &optional wrap opoint) | 2388 | (defun dired-next-marked-file (arg &optional wrap opoint) |
| 2391 | "Move to the next marked file, wrapping around the end of the buffer." | 2389 | "Move to the next marked file, wrapping around the end of the buffer." |