From 5d831bedd4fc74c395c96843fc0477eaf1cb307d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 11 Apr 1994 20:09:44 +0000 Subject: (dired-move-to-filename): Handle leading blanks. --- lisp/dired.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) (limited to 'lisp/dired.el') diff --git a/lisp/dired.el b/lisp/dired.el index b8ebaa1f63..f87f02a695 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 ;; 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") -- cgit v1.2.3