From 21646dd1cdc1efe13cf6450dd6491a64b3eb7755 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sat, 28 May 2005 05:05:55 +0000 Subject: [PATCH] (calc-embedded-make-info): When selecting region with positive prefix argument, use end of line instead of beginning of next line. --- lisp/calc/calc-embed.el | 3 +++ 1 file changed, 3 insertions(+) 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)))) -- 2.39.2