[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el

[Jay Belanger]

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