Mercurial > emacs
changeset 6796:c451a18c1945
(dired-move-to-filename): Handle leading blanks.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 11 Apr 1994 20:09:44 +0000 |
| parents | a379e974be7c |
| children | 42c6431d1e00 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 3 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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")