diff options
| author | Richard M. Stallman | 1993-12-31 06:45:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-31 06:45:33 +0000 |
| commit | aa648601df886d7336e064caf6d7f72b05244b93 (patch) | |
| tree | eecf1adb9e5b68a124a1baa4e9ed480acde84e85 | |
| parent | 385f7c8e56b9dc9788b912a38da5e9b899be58d4 (diff) | |
| download | emacs-aa648601df886d7336e064caf6d7f72b05244b93.tar.gz emacs-aa648601df886d7336e064caf6d7f72b05244b93.zip | |
(open-line): Properly put fill-prefix on each line.
| -rw-r--r-- | lisp/simple.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 2a471f61f9e..8eb0ace9d46 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -44,11 +44,12 @@ With arg N, insert N newlines." | |||
| 44 | (if (and buffer-undo-list (not (eq buffer-undo-list t))) | 44 | (if (and buffer-undo-list (not (eq buffer-undo-list t))) |
| 45 | (setq buffer-undo-list (cons (point) buffer-undo-list))) | 45 | (setq buffer-undo-list (cons (point) buffer-undo-list))) |
| 46 | (forward-char -1))) | 46 | (forward-char -1))) |
| 47 | (while (> arg 0) | 47 | (save-excursion |
| 48 | (save-excursion | 48 | (while (> arg 0) |
| 49 | (insert ?\n) | 49 | (if do-fill-prefix (insert fill-prefix)) |
| 50 | (if do-fill-prefix (insert fill-prefix))) | 50 | (insert ?\n) |
| 51 | (setq arg (1- arg))) | 51 | (setq arg (1- arg)))) |
| 52 | (end-of-line) | ||
| 52 | (if flag (forward-char 1)))) | 53 | (if flag (forward-char 1)))) |
| 53 | 54 | ||
| 54 | (defun split-line () | 55 | (defun split-line () |