Commit c622c18e authored by Jay Belanger's avatar Jay Belanger
Browse files

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

region when an argument is given.
parent e0b43b66
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment