# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766098208 0
# Node ID 7c587b0670bd866d8e8de14b2080c961748a0419
# Parent  34cc2fd97a9e6afd0f88ae5d8d332f303d24348c
(dired-move-to-filename): Use skip-chars-forward
instead of looking-at, for speed.

diff -r 34cc2fd97a9e -r 7c587b0670bd lisp/dired.el
--- a/lisp/dired.el	Mon Apr 11 20:54:33 1994 +0000
+++ b/lisp/dired.el	Mon Apr 11 21:03:28 1994 +0000
@@ -1154,14 +1154,13 @@
   ;; 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,