239 |
If wrapping is performed, point remains on the line. If the line does |
If wrapping is performed, point remains on the line. If the line does |
240 |
not need to be wrapped, move point to the next line and return t." |
not need to be wrapped, move point to the next line and return t." |
241 |
(if (longlines-set-breakpoint) |
(if (longlines-set-breakpoint) |
242 |
(progn (backward-char 1) |
(progn (insert-before-markers ?\n) |
243 |
(delete-char 1) |
(backward-char 1) |
244 |
(insert-char ?\n 1) |
(delete-char -1) |
245 |
|
(forward-char 1) |
246 |
nil) |
nil) |
247 |
(if (longlines-merge-lines-p) |
(if (longlines-merge-lines-p) |
248 |
(progn (end-of-line) |
(progn (end-of-line) |