(proced-next-line, proced-previous-line): Avoid calling `next-line'

and `previous-line' from Lisp code.

diff --git a/lisp/proced.el b/lisp/proced.el
index 0a9827dc5ebc91d2d9f94cce58dd86498edd804c..fa99eb25d04ec4086f0ce5a316310e589eef3fdb 100644 (file)
--- 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)