# HG changeset patch # User John Paul Wallington # Date 1211753633 0 # Node ID cf89ac5d2869b68b4e5eeb04e63bc8861cadd3d7 # Parent a1e891587964fdfb0eb91af33ff30fb227c58b5f (proced-next-line, proced-previous-line): Avoid calling `next-line' and `previous-line' from Lisp code. diff -r a1e891587964 -r cf89ac5d2869 lisp/proced.el --- a/lisp/proced.el Sun May 25 20:09:23 2008 +0000 +++ b/lisp/proced.el Sun May 25 22:13:53 2008 +0000 @@ -353,14 +353,14 @@ "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)