diff options
| -rw-r--r-- | lisp/calc/calc-embed.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 48114735b72..75ba72a694b 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el | |||
| @@ -816,6 +816,9 @@ The command \\[yank] can retrieve it from there." | |||
| 816 | (aset info 3 (copy-marker (region-end)))) | 816 | (aset info 3 (copy-marker (region-end)))) |
| 817 | (aset info (if (> calc-embed-arg 0) 2 3) (point-marker)) | 817 | (aset info (if (> calc-embed-arg 0) 2 3) (point-marker)) |
| 818 | (forward-line calc-embed-arg) | 818 | (forward-line calc-embed-arg) |
| 819 | (when (> calc-embed-arg 0) | ||
| 820 | (forward-line -1) | ||
| 821 | (end-of-line)) | ||
| 819 | (aset info (if (> calc-embed-arg 0) 3 2) (point-marker))) | 822 | (aset info (if (> calc-embed-arg 0) 3 2) (point-marker))) |
| 820 | (aset info 4 (copy-marker (aref info 2))) | 823 | (aset info 4 (copy-marker (aref info 2))) |
| 821 | (aset info 5 (copy-marker (aref info 3)))) | 824 | (aset info 5 (copy-marker (aref info 3)))) |