X-Git-Url: https://plomlompom.com/repos/?p=plomvi.el;a=blobdiff_plain;f=plomvi.el;fp=plomvi.el;h=6c9df1d273c04bb7d01cb8cb3b3f7e77b52a7ba3;hp=34524fd35b0359fa5043df3a120e31005b2b7b0d;hb=5ba1b297ba4d62a2c686f6f226b433c699f47cab;hpb=6ea767416e40c7590cccf7b865e098f3fb553daa

diff --git a/plomvi.el b/plomvi.el
index 34524fd..6c9df1d 100644
--- a/plomvi.el
+++ b/plomvi.el
@@ -181,20 +181,14 @@ Note that this ignores killed rectangles."
            (start-end-pos (region-end))
            (region-start (progn
                            (goto-char start-start-pos)
-                           (beginning-of-line)
-                           (point)))
+                           (line-beginning-position)))
            (region-end (progn
                          (goto-char start-end-pos)
-                         (end-of-line)
-                         (+ 1 (point)))))
+                         (+ 1 (line-end-position)))))
       (copy-region-as-kill region-start region-end)
       (goto-char region-start)))
    (t
-    (let ((keep-pos (point))
-          (region-start (progn (beginning-of-line) (point)))
-          (region-end (progn (end-of-line) (+ 1 (point)))))
-      (copy-region-as-kill region-start region-end)
-      (goto-char keep-pos)))))
+    (copy-region-as-kill (line-beginning-position) (+ 1 (line-end-position))))))
 
 (defun plomvi-copy-region()
   "Copy marked region."