(dired-move-to-filename): Fix previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 588c14d8becb1cb9e021cf440f29fccf37f24eb0..2fc7694ec6106fff74131a98f466422efa7dd181 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-15  Markus Rost  <rost@math.ohio-state.edu>
+
+       * dired.el (dired-move-to-filename): Fix previous change.
+
 2002-09-14  Kim F. Storm  <storm@cua.dk>
 
        * emulation/keypad.el (keypad-setup, keypad-shifted-setup)

diff --git a/lisp/dired.el b/lisp/dired.el
index f0306d32d7a11cac58066002a512ba68014dfa10..43941bc17aa14c81877141d063f6baeb81fb57cc 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1589,7 +1589,8 @@ regardless of the language.")
   ;; First try assuming `ls --dired' was used.
   (let ((change (next-single-property-change (point) 'dired-filename
                                             nil eol)))
-    (if change (goto-char change)
+    (if (and change (< change eol))
+       (goto-char change)
       (if (re-search-forward dired-move-to-filename-regexp eol t)
          (goto-char (match-end 0))
        (if raise-error