Index: emacs/lisp/calc/calc-embed.el
diff -c emacs/lisp/calc/calc-embed.el:1.27 emacs/lisp/calc/calc-embed.el:1.28
*** emacs/lisp/calc/calc-embed.el:1.27 Sat May 28 05:05:55 2005
--- emacs/lisp/calc/calc-embed.el Sat May 28 05:36:16 2005
***************
*** 815,824 ****
(aset info 2 (copy-marker (region-beginning)))
(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))))
--- 815,825 ----
(aset info 2 (copy-marker (region-beginning)))
(aset info 3 (copy-marker (region-end))))
(aset info (if (> calc-embed-arg 0) 2 3) (point-marker))
! (if (> calc-embed-arg 0)
! (progn
! (forward-line (1- calc-embed-arg))
! (end-of-line))
! (forward-line (1+ calc-embed-arg)))
(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))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
