609 |
(setq tar-header-offset old-offset))))) |
(setq tar-header-offset old-offset))))) |
610 |
|
|
611 |
|
|
612 |
(defun tar-next-line (p) |
(defun tar-next-line (arg) |
613 |
|
"Move cursor vertically down ARG lines and to the start of the filename." |
614 |
(interactive "p") |
(interactive "p") |
615 |
(forward-line p) |
(forward-line arg) |
616 |
(if (eobp) nil (forward-char (if tar-mode-show-date 54 36)))) |
(if (eobp) nil (forward-char (if tar-mode-show-date 54 36)))) |
617 |
|
|
618 |
(defun tar-previous-line (p) |
(defun tar-previous-line (arg) |
619 |
|
"Move cursor vertically up ARG lines and to the start of the filename." |
620 |
(interactive "p") |
(interactive "p") |
621 |
(tar-next-line (- p))) |
(tar-next-line (- arg))) |
622 |
|
|
623 |
(defun tar-current-descriptor (&optional noerror) |
(defun tar-current-descriptor (&optional noerror) |
624 |
"Return the tar-descriptor of the current line, or signals an error." |
"Return the tar-descriptor of the current line, or signals an error." |