diff options
| -rw-r--r-- | lisp/misc.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/misc.el b/lisp/misc.el index 81769696f95..de82b97fa6f 100644 --- a/lisp/misc.el +++ b/lisp/misc.el | |||
| @@ -71,13 +71,15 @@ Also see the `copy-from-above-command' command." | |||
| 71 | (interactive "p") | 71 | (interactive "p") |
| 72 | (unless n | 72 | (unless n |
| 73 | (setq n 1)) | 73 | (setq n 1)) |
| 74 | (let ((line (buffer-substring (line-beginning-position) (line-end-position)))) | 74 | (let ((line (concat (buffer-substring (line-beginning-position) |
| 75 | (line-end-position)) | ||
| 76 | "\n"))) | ||
| 75 | (save-excursion | 77 | (save-excursion |
| 76 | (forward-line 1) | 78 | (forward-line 1) |
| 77 | (unless (bolp) | 79 | (unless (bolp) |
| 78 | (insert "\n")) | 80 | (insert "\n")) |
| 79 | (dotimes (_ n) | 81 | (dotimes (_ n) |
| 80 | (insert line "\n"))))) | 82 | (insert line))))) |
| 81 | 83 | ||
| 82 | (declare-function rectangle--duplicate-right "rect" (n)) | 84 | (declare-function rectangle--duplicate-right "rect" (n)) |
| 83 | 85 | ||