From 210f943e018c9c0813e5489a7db722a40d3a7796 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Wed, 20 Feb 2002 09:04:25 +0000 Subject: [PATCH] (tar-next-line, tar-previous-line): Add doc string, call the argument "arg" to match plain next-line and previous-line. From Kevin Ryde . --- lisp/ChangeLog | 6 ++++++ lisp/tar-mode.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ff7107dc0..0d68ee81ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-02-20 Pavel Jan,Bm(Bk + + * 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 . + 2002-02-19 Sam Steingold * mwheel.el (mouse-wheel-scroll-amount): Can specify different diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 10fe019b3a..2bfd75c763 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." -- 2.20.1