(calc-embedded-make-info): Adjust positioning of end of selected

region when an argument is given.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 75ba72a694b..e6e95cae0ac 100644
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -815,10 +815,11 @@ The command \\[yank] can retrieve it from there."
                 (aset info 2 (copy-marker (region-beginning)))
                 (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))
+            (if (> calc-embed-arg 0)
+                (progn
+                  (forward-line (1- calc-embed-arg))
+                  (end-of-line))
+              (forward-line (1+ calc-embed-arg)))
             (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))))