/[emacs]/emacs/lisp/tar-mode.el
ViewVC logotype

Diff of /emacs/lisp/tar-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83 by monnier, Sat Nov 17 00:04:29 2001 UTC revision 1.84 by pj, Wed Feb 20 09:03:38 2002 UTC
# Line 609  appear on disk when you save the tar-fil Line 609  appear on disk when you save the tar-fil
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."

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26