816 |
(aset info 3 (copy-marker (region-end)))) |
(aset info 3 (copy-marker (region-end)))) |
817 |
(aset info (if (> calc-embed-arg 0) 2 3) (point-marker)) |
(aset info (if (> calc-embed-arg 0) 2 3) (point-marker)) |
818 |
(forward-line calc-embed-arg) |
(forward-line calc-embed-arg) |
819 |
|
(when (> calc-embed-arg 0) |
820 |
|
(forward-line -1) |
821 |
|
(end-of-line)) |
822 |
(aset info (if (> calc-embed-arg 0) 3 2) (point-marker))) |
(aset info (if (> calc-embed-arg 0) 3 2) (point-marker))) |
823 |
(aset info 4 (copy-marker (aref info 2))) |
(aset info 4 (copy-marker (aref info 2))) |
824 |
(aset info 5 (copy-marker (aref info 3)))) |
(aset info 5 (copy-marker (aref info 3)))) |