From f618b7e55b8c88e58dfbd6b0bf9acfe6fcdd6515 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Sun, 15 Sep 2002 16:35:23 +0000 Subject: [PATCH] (dired-move-to-filename): Fix previous change. --- lisp/ChangeLog | 4 ++++ lisp/dired.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 588c14d8bec..2fc7694ec61 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-09-15 Markus Rost + + * dired.el (dired-move-to-filename): Fix previous change. + 2002-09-14 Kim F. Storm * emulation/keypad.el (keypad-setup, keypad-shifted-setup) diff --git a/lisp/dired.el b/lisp/dired.el index f0306d32d7a..43941bc17aa 100644 --- 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 -- 2.39.5