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")
(save-excursion
(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)
(unless (region-active-p)
(newline))