(tar-next-line, tar-previous-line): Add doc string,

call the argument "arg" to match plain next-line and
previous-line.  From Kevin Ryde <user42@zip.com.au>.

2 files changed, 12 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ff7107dc0d..0d68ee81adb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-20  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+        * tar-mode.el (tar-next-line, tar-previous-line): Add doc string,
+        call the argument "arg" to match plain next-line and
+        previous-line.  From Kevin Ryde <user42@zip.com.au>.
+
 2002-02-19  Sam Steingold  <sds@gnu.org>
 
         * mwheel.el (mouse-wheel-scroll-amount): Can specify different
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 10fe019b3a5..2bfd75c7630 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -609,14 +609,16 @@ appear on disk when you save the tar-file's buffer."
           (setq tar-header-offset old-offset)))))
 
 
-(defun tar-next-line (p)
+(defun tar-next-line (arg)
+  "Move cursor vertically down ARG lines and to the start of the filename."
   (interactive "p")
-  (forward-line p)
+  (forward-line arg)
   (if (eobp) nil (forward-char (if tar-mode-show-date 54 36))))
 
-(defun tar-previous-line (p)
+(defun tar-previous-line (arg)
+  "Move cursor vertically up ARG lines and to the start of the filename."
   (interactive "p")
-  (tar-next-line (- p)))
+  (tar-next-line (- arg)))
 
 (defun tar-current-descriptor (&optional noerror)
   "Return the tar-descriptor of the current line, or signals an error."