# HG changeset patch # User Karl Heuer # Date 766094984 0 # Node ID c451a18c19450466773c5a069291ad0cd31f2ec8 # Parent a379e974be7ce34063d83cef4462911eb8304517 (dired-move-to-filename): Handle leading blanks. diff -r a379e974be7c -r c451a18c1945 lisp/dired.el --- a/lisp/dired.el Mon Apr 11 19:59:49 1994 +0000 +++ b/lisp/dired.el Mon Apr 11 20:09:44 1994 +0000 @@ -1154,18 +1154,10 @@ ;; This is the UNIX version. (or eol (setq eol (progn (end-of-line) (point)))) (beginning-of-line) - (if (re-search-forward - dired-move-to-filename-regexp - eol t) + (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 - (skip-chars-forward " ") ; there is one SPC after day of month - (skip-chars-forward "^ " eol) ; move after time of day (or year) - (skip-chars-forward " " eol) ; there is space before the file name - ;; Actually, if the year instead of clock time is displayed, - ;; there are (only for some ls programs?) two spaces instead - ;; of one before the name. - ;; If we could depend on ls inserting exactly one SPC we - ;; would not bomb on names _starting_ with SPC. + (goto-char (match-end 0)) (point)) (if raise-error (error "No file on this line")