diff options
| -rw-r--r-- | lisp/dired.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index b8ebaa1f63e..f87f02a6958 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1154,18 +1154,10 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on | |||
| 1154 | ;; This is the UNIX version. | 1154 | ;; This is the UNIX version. |
| 1155 | (or eol (setq eol (progn (end-of-line) (point)))) | 1155 | (or eol (setq eol (progn (end-of-line) (point)))) |
| 1156 | (beginning-of-line) | 1156 | (beginning-of-line) |
| 1157 | (if (re-search-forward | 1157 | (if (and (re-search-forward dired-move-to-filename-regexp eol t) |
| 1158 | dired-move-to-filename-regexp | 1158 | (looking-at " \\([0-9][0-9]:[0-9][0-9]\\| [0-9]+\\|[0-9]+ \\) ")) |
| 1159 | eol t) | ||
| 1160 | (progn | 1159 | (progn |
| 1161 | (skip-chars-forward " ") ; there is one SPC after day of month | 1160 | (goto-char (match-end 0)) |
| 1162 | (skip-chars-forward "^ " eol) ; move after time of day (or year) | ||
| 1163 | (skip-chars-forward " " eol) ; there is space before the file name | ||
| 1164 | ;; Actually, if the year instead of clock time is displayed, | ||
| 1165 | ;; there are (only for some ls programs?) two spaces instead | ||
| 1166 | ;; of one before the name. | ||
| 1167 | ;; If we could depend on ls inserting exactly one SPC we | ||
| 1168 | ;; would not bomb on names _starting_ with SPC. | ||
| 1169 | (point)) | 1161 | (point)) |
| 1170 | (if raise-error | 1162 | (if raise-error |
| 1171 | (error "No file on this line") | 1163 | (error "No file on this line") |