Mercurial > emacs
comparison lisp/dired.el @ 85406:25e29d02bb55
(dired-next-line, dired-previous-line): Use forward-line.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Thu, 18 Oct 2007 15:59:01 +0000 |
| parents | 591c29778a30 |
| children | 2d68ac2d165c 1251cabc40b7 |
comparison
equal
deleted
inserted
replaced
| 85405:d9e1a202593d | 85406:25e29d02bb55 |
|---|---|
| 1680 | 1680 |
| 1681 (defun dired-next-line (arg) | 1681 (defun dired-next-line (arg) |
| 1682 "Move down lines then position at filename. | 1682 "Move down lines then position at filename. |
| 1683 Optional prefix ARG says how many lines to move; default is one line." | 1683 Optional prefix ARG says how many lines to move; default is one line." |
| 1684 (interactive "p") | 1684 (interactive "p") |
| 1685 (next-line arg) | 1685 (forward-line arg) |
| 1686 (dired-move-to-filename)) | 1686 (dired-move-to-filename)) |
| 1687 | 1687 |
| 1688 (defun dired-previous-line (arg) | 1688 (defun dired-previous-line (arg) |
| 1689 "Move up lines then position at filename. | 1689 "Move up lines then position at filename. |
| 1690 Optional prefix ARG says how many lines to move; default is one line." | 1690 Optional prefix ARG says how many lines to move; default is one line." |
| 1691 (interactive "p") | 1691 (interactive "p") |
| 1692 (previous-line arg) | 1692 (forward-line (- arg)) |
| 1693 (dired-move-to-filename)) | 1693 (dired-move-to-filename)) |
| 1694 | 1694 |
| 1695 (defun dired-next-dirline (arg &optional opoint) | 1695 (defun dired-next-dirline (arg &optional opoint) |
| 1696 "Goto ARG'th next directory file line." | 1696 "Goto ARG'th next directory file line." |
| 1697 (interactive "p") | 1697 (interactive "p") |