diff options
| author | John Paul Wallington <jpw@pobox.com> | 2008-05-25 22:13:53 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2008-05-25 22:13:53 +0000 |
| commit | 27ab83abf9975c65efa9b1ec768982c5766f81cd (patch) | |
| tree | 0f2ddaf7394a74254675216dcb98f7c2cf150531 /lisp | |
| parent | 4980d28f5a36afd0228803c9bb97de4547eff25f (diff) | |
| download | emacs-27ab83abf9975c65efa9b1ec768982c5766f81cd.tar.gz emacs-27ab83abf9975c65efa9b1ec768982c5766f81cd.tar.bz2 emacs-27ab83abf9975c65efa9b1ec768982c5766f81cd.zip | |
(proced-next-line, proced-previous-line): Avoid calling `next-line'
and `previous-line' from Lisp code.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/proced.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index 0a9827dc5eb..fa99eb25d04 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -353,14 +353,14 @@ information will be displayed but not selected. "Move down lines then position at `proced-goal-column'. Optional prefix ARG says how many lines to move; default is one line." (interactive "p") - (next-line arg) + (forward-line arg) (proced-move-to-goal-column)) (defun proced-previous-line (arg) "Move up lines then position at `proced-goal-column'. Optional prefix ARG says how many lines to move; default is one line." (interactive "p") - (previous-line arg) + (forward-line (- arg)) (proced-move-to-goal-column)) (defun proced-mark (&optional count) |