diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-02-20 09:04:25 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-02-20 09:04:25 +0000 |
| commit | 210f943e018c9c0813e5489a7db722a40d3a7796 (patch) | |
| tree | b19bef584ef2b5c73f257908b0ebfb5d6dd2a373 /lisp/tar-mode.el | |
| parent | a2372cfd069f9828ecff0fa94a5e02ee3d5e704c (diff) | |
| download | emacs-210f943e018c9c0813e5489a7db722a40d3a7796.tar.gz | |
(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>.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 10 |
1 files changed, 6 insertions, 4 deletions
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." |