mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source 
call the argument "arg" to match plain next-line and
previous-line.  From Kevin Ryde <user42@zip.com.au>.
This commit is contained in:
Pavel Janík 2002-02-20 09:04:25 +00:00
parent a2372cfd06
commit 210f943e01
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

10
lisp/tar-mode.el
View File

@ -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."