aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/dired.el3
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 588c14d8bec..2fc7694ec61 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12002-09-15 Markus Rost <rost@math.ohio-state.edu>
2
3 * dired.el (dired-move-to-filename): Fix previous change.
4
12002-09-14 Kim F. Storm <storm@cua.dk> 52002-09-14 Kim F. Storm <storm@cua.dk>
2 6
3 * emulation/keypad.el (keypad-setup, keypad-shifted-setup) 7 * 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.")
1589 ;; First try assuming `ls --dired' was used. 1589 ;; First try assuming `ls --dired' was used.
1590 (let ((change (next-single-property-change (point) 'dired-filename 1590 (let ((change (next-single-property-change (point) 'dired-filename
1591 nil eol))) 1591 nil eol)))
1592 (if change (goto-char change) 1592 (if (and change (< change eol))
1593 (goto-char change)
1593 (if (re-search-forward dired-move-to-filename-regexp eol t) 1594 (if (re-search-forward dired-move-to-filename-regexp eol t)
1594 (goto-char (match-end 0)) 1595 (goto-char (match-end 0))
1595 (if raise-error 1596 (if raise-error