# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754013503 0
# Node ID da6f8aa6c0aa8a6a75251f311cbf7631a1f49994
# Parent  b37f62d720499c33e2b7f229787902400e40779b
(dired-goto-file): Don't try matching one line twice.

diff -r b37f62d72049 -r da6f8aa6c0aa lisp/dired.el
--- a/lisp/dired.el	Mon Nov 22 19:47:26 1993 +0000
+++ b/lisp/dired.el	Tue Nov 23 00:11:43 1993 +0000
@@ -1418,7 +1418,10 @@
 		    ;; correct) match could have been elsewhere on the
 		    ;; ;; line (e.g. "-" would match somewhere in the
 		    ;; permission bits).
-		  (setq found (dired-move-to-filename)))))))
+		  (setq found (dired-move-to-filename))
+		;; If this isn't the right line, move forward to avoid
+		;; trying this line again.
+		(forward-line 1))))))
     (and found
 	 ;; return value of point (i.e., FOUND):
 	 (goto-char found))))