diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/dired.el | 3 |
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 @@ | |||
| 1 | 2002-09-15 Markus Rost <rost@math.ohio-state.edu> | ||
| 2 | |||
| 3 | * dired.el (dired-move-to-filename): Fix previous change. | ||
| 4 | |||
| 1 | 2002-09-14 Kim F. Storm <storm@cua.dk> | 5 | 2002-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 |