diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index f87f02a6958..efdd09dcd4b 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1154,14 +1154,13 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on ;; This is the UNIX version. (or eol (setq eol (progn (end-of-line) (point)))) (beginning-of-line) - (if (and (re-search-forward dired-move-to-filename-regexp eol t) - (looking-at " \\([0-9][0-9]:[0-9][0-9]\\| [0-9]+\\|[0-9]+ \\) ")) - (progn - (goto-char (match-end 0)) - (point)) - (if raise-error - (error "No file on this line") - nil))) + (or (if (re-search-forward dired-move-to-filename-regexp eol t) + (progn + (goto-char (match-end 0)) + (if (= 7 (skip-chars-forward " 0-9:" (+ (point) 7))) + (point)))) + (if raise-error + (error "No file on this line")))) (defun dired-move-to-end-of-filename (&optional no-error) ;; Assumes point is at beginning of filename, |