Fix duplicate-thing for long lines

This commit is contained in:
Lars Tveito 2020-03-10 20:45:54 +01:00
parent ea7083c205
commit faabaa958b

View File

@ -766,7 +766,8 @@
(interactive "P") (interactive "P")
(save-excursion (save-excursion
(let ((start (if (region-active-p) (region-beginning) (point-at-bol))) (let ((start (if (region-active-p) (region-beginning) (point-at-bol)))
(end (if (region-active-p) (region-end) (point-at-eol)))) (end (if (region-active-p) (region-end) (point-at-eol)))
(fill-column most-positive-fixnum))
(goto-char end) (goto-char end)
(unless (region-active-p) (unless (region-active-p)
(newline)) (newline))