diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-28 05:05:55 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-28 05:05:55 +0000 |
| commit | 21646dd1cdc1efe13cf6450dd6491a64b3eb7755 (patch) | |
| tree | 5660aa0469668df92922b179e66f41ec04d2d07b | |
| parent | f5a3eb30e9e058c90a45b3a0218c3bf8add614a3 (diff) | |
| download | emacs-21646dd1cdc1efe13cf6450dd6491a64b3eb7755.tar.gz | |
(calc-embedded-make-info): When selecting region with positive prefix
argument, use end of line instead of beginning of next line.
| -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." (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)) (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)))) |