/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

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

revision 1.33 by monnier, Fri Jan 25 22:41:28 2002 UTC revision 1.34 by kai, Wed Apr 3 16:56:36 2002 UTC
# Line 1089  Full documentation is in the Texinfo fil Line 1089  Full documentation is in the Texinfo fil
1089    "Go to the previous line.    "Go to the previous line.
1090  If a prefix argument is given, move by that many lines."  If a prefix argument is given, move by that many lines."
1091    (interactive "p")    (interactive "p")
1092    (ewoc-goto-prev cvs-cookies arg))    (ewoc-goto-prev cvs-cookies arg)
1093      (let ((fpos (next-single-property-change
1094                   (point) 'cvs-goal-column
1095                   (current-buffer) (line-end-position)))
1096            (eol (line-end-position)))
1097        (when (< fpos eol)
1098          (goto-char fpos))))
1099    
1100  (defun-cvs-mode cvs-mode-next-line (arg)  (defun-cvs-mode cvs-mode-next-line (arg)
1101    "Go to the next line.    "Go to the next line.
1102  If a prefix argument is given, move by that many lines."  If a prefix argument is given, move by that many lines."
1103    (interactive "p")    (interactive "p")
1104    (ewoc-goto-next cvs-cookies arg))    (ewoc-goto-next cvs-cookies arg)
1105      (let ((fpos (next-single-property-change
1106                   (point) 'cvs-goal-column
1107                   (current-buffer) (line-end-position)))
1108            (eol (line-end-position)))
1109        (when (< fpos eol)
1110          (goto-char fpos))))
1111    
1112  ;;;;  ;;;;
1113  ;;;; Mark handling  ;;;; Mark handling

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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