(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>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ff7107dc0db981954f1aee8ce05da1ea311bb01..0d68ee81adbd023bcaa6bba0b2a9ed6e75ac5336 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-20  Pavel Jan\e,Bm\e(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 10fe019b3a5e67c037e110bccdf78eb4f760ba5f..2bfd75c76301bb1c5b614f29f2fc8cd3829b2d80 100644 (file)
--- 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."