Commit aa648601 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(open-line): Properly put fill-prefix on each line.

parent 385f7c8e
......@@ -44,11 +44,12 @@ With arg N, insert N newlines."
(if (and buffer-undo-list (not (eq buffer-undo-list t)))
(setq buffer-undo-list (cons (point) buffer-undo-list)))
(forward-char -1)))
(while (> arg 0)
(save-excursion
(insert ?\n)
(if do-fill-prefix (insert fill-prefix)))
(setq arg (1- arg)))
(save-excursion
(while (> arg 0)
(if do-fill-prefix (insert fill-prefix))
(insert ?\n)
(setq arg (1- arg))))
(end-of-line)
(if flag (forward-char 1))))
(defun split-line ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment