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 |