246 |
nil) |
nil) |
247 |
(if (longlines-merge-lines-p) |
(if (longlines-merge-lines-p) |
248 |
(progn (end-of-line) |
(progn (end-of-line) |
|
(delete-char 1) |
|
249 |
;; After certain commands (e.g. kill-line), there may be two |
;; After certain commands (e.g. kill-line), there may be two |
250 |
;; successive soft newlines in the buffer. In this case, we |
;; successive soft newlines in the buffer. In this case, we |
251 |
;; replace these two newlines by a single space. Unfortunately, |
;; replace these two newlines by a single space. Unfortunately, |
252 |
;; this breaks the conservation of (spaces + newlines), so we |
;; this breaks the conservation of (spaces + newlines), so we |
253 |
;; have to fiddle with longlines-wrap-point. |
;; have to fiddle with longlines-wrap-point. |
254 |
(if (or (bolp) (eolp)) |
(if (or (prog1 (bolp) (forward-char 1)) (eolp)) |
255 |
(if (> longlines-wrap-point (point)) |
(progn |
256 |
(setq longlines-wrap-point |
(delete-char -1) |
257 |
(1- longlines-wrap-point))) |
(if (> longlines-wrap-point (point)) |
258 |
(insert-char ? 1)) |
(setq longlines-wrap-point |
259 |
|
(1- longlines-wrap-point)))) |
260 |
|
(insert-before-markers-and-inherit ?\ ) |
261 |
|
(backward-char 1) |
262 |
|
(delete-char -1) |
263 |
|
(forward-char 1)) |
264 |
nil) |
nil) |
265 |
(forward-line 1) |
(forward-line 1) |
266 |
t))) |
t))) |