diff options
| author | Jay Belanger <[email protected]> | 2005-05-28 05:36:16 +0000 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2005-05-28 05:36:16 +0000 |
| commit | c622c18ec0d4aed4a57fea55171f52eff59e2c20 (patch) | |
| tree | 100d3b665b07eb9a35177683f68744c0e89aee34 | |
| parent | e0b43b66a5025dca7527495dc456150d1c66e847 (diff) | |
(calc-embedded-make-info): Adjust positioning of end of selected
region when an argument is given.
| -rw-r--r-- | lisp/calc/calc-embed.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 75ba72a694..e6e95cae0a 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)))) |