(calc-embedded-make-info): When selecting region with positive prefix

argument, use end of line instead of beginning of next line.

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 48114735b725442613ac09e363395fd87cb1cb49..75ba72a694ba40e247e9b68cd3ddeac89656ba6f 100644 (file)
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -816,6 +816,9 @@ The command \\[yank] can retrieve it from there."
                (aset info 3 (copy-marker (region-end))))
            (aset info (if (> calc-embed-arg 0) 2 3) (point-marker))
            (forward-line calc-embed-arg)
+            (when (> calc-embed-arg 0)
+              (forward-line -1)
+              (end-of-line))
            (aset info (if (> calc-embed-arg 0) 3 2) (point-marker)))
          (aset info 4 (copy-marker (aref info 2)))
          (aset info 5 (copy-marker (aref info 3))))