# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1117258576 0
# Node ID 58322099b4d7ad2c1383e19cf81d5fee89c6b8a9
# Parent  8ee1e48392f6f969c7404bb022e000a2a6de3d7c
(calc-embedded-make-info): Adjust positioning of end of selected
region when an argument is given.

diff -r 8ee1e48392f6 -r 58322099b4d7 lisp/calc/calc-embed.el
--- a/lisp/calc/calc-embed.el	Sat May 28 05:29:14 2005 +0000
+++ b/lisp/calc/calc-embed.el	Sat May 28 05:36:16 2005 +0000
@@ -815,10 +815,11 @@
 		(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))))