andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-embedded-make-info): When selecting region with positive prefix

Browse source 
argument, use end of line instead of beginning of next line.
This commit is contained in:
Jay Belanger 2005-05-28 05:05:55 +00:00
parent f5a3eb30e9
commit 21646dd1cd
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/calc/calc-embed.el
View file

@ -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))))